Vielen Dank im vorraus.
Hier der dazugehörige Code:
Private Sub cmdOK_Click()
Dim PWort, PWEingabe, Fehler
PWort = "Test"
Fehler = 1
nochmal:
PWEingabe = Application.InputBox("Bitte geben Sie das Paßwort ein" + Chr(10) + "Das Paßwort lautet: Test", "Paßwortabfrage")
If PWEingabe = False Then Exit Sub
If PWEingabe <> PWort Then
If Fehler < 4 Then
If Fehler = 1 Then
MsgBox "Sie haben noch 3 Versuche", vbOKOnly, "Falsche Eingabe"
ElseIf Fehler = 2 Then
MsgBox "Sie haben noch 2 Versuche", vbOKOnly, "Falsche Eingabe"
ElseIf Fehler = 3 Then
MsgBox "Geben Sie auf, Sie haben noch 1 Versuch", vbOKOnly, "Falsche Eingabe"
End If
Fehler = Fehler + 1
GoTo nochmal
Else
MsgBox "Der Zugriff wurde verweigert!", vbOKOnly, "Indentifikationsfehler"
End If
Else
Sheets("Blatt1").Visible = True
Sheets("Blatt2").Visible = True
End If
End Sub
Private Sub CommandButton1_Click()
Sheets("Blatt1").Visible = xlSheetVeryHidden
Sheets("Blatt2").Visible = xlSheetVeryHidden
Unload Me
End Sub