Passwort Eingabe 3x falsch dann beenden
03.06.2004 12:27:29
Michael
komme leider nicht weiter. Habe einen VBA Code der eine Passwort Eingabe verlangt. Nach richtiger Eingabe soll dann eine Datei im gleichem ORDNER geöffnet werden. Da ich es am Anfang meiner VBA Programmierung bin bin ich damit überfordert.
Ausserdem spuckt mir der code andauernd Fehlermeldungen aus.
Vielen Dank im vorraus
Michael
Public Fehleingabe As Integer
Private Sub CommandButton1_Click()
If TextBox1 = "12345" And TextBox2 = "12345" Then
Fehleingabe = 0
Unload Me
UserForm1.Show
Else
If Fehleingabe = 3 Then
Application.DisplayAlerts = False
ThisWorkbook.Close
Exit Sub
End If
MsgBox "Das Passwort oder Benutzername falsch - Bitte versuchen Sie es erneut"
With TextBox1
.Value = ""
.SetFocus
End With
TextBox2 = ""
Fehleingabe = Fehleingabe + 1
End If
End Sub