UserForm mit Passwort schützem
Schwierigkeitsgrad: ||| ( Etwas Schwerer )
Objekte: 3
-Command Button
-Command Button
-TextBox
Variablen: 2
-mstrPasswort As String
-mintVersuche As Integer
Zeit: 5 Mins
Ihr werdet nicht länger als 5 Minuten brauchen um dass zu machen 
Code:
Option Explicit
Private mintVersuche As Integer
Private mstrPasswort As String
Private Sub Form_Load()
MsgBox "Passwortgeschützter Bereich!" & vbCr & "Bitte geb dass Passwort ein." ,vbExclamaion, "Passwort benötigt!"
End Sub
Private Sub cmdOk_Click()
If intVersuche < 2 Then MsgBox "Du hast zu oft versucht dass Passwort einzugeben!" ,vbCritical, "Fehler!": End
strPasswort = "SA:MP"
If txtPasswort.Text = strPasswort Then
PasswortOK
Else
MsgBox "Inkorrektes Passwort!" ,vbExclamation, "Falsches Passwort!"
intVersuche = intVersuche + 1
End If
End Sub
Private Sub cmdAbbrechen_Click()
End
End Sub
Private Sub PasswortOk()
MsgBox "Dass Passwort ist Korrekt" ,vbInformation, "Korrektes Passwort"
WASS PASSIEREN SOLL WENN DASS RICHTIGE PASSWORT EINGEGEBEN WURDE Z.B. frmblabla.show
End Sub
Erfolgreich getestet in:
Gruß,
[GRC]Flip
