AW: Datei mit Passwortabfrage
24.09.2003 12:13:46
Ulf
Hallo nicht Code funktioniert aber allerdings mit Inputbox. Kannst den Code aber auch in Userform einfügen dan kannst du die Kennwörter als String eingeben.
Dim PW, PWEingabe, Fehler
PWort = "abc"
Fehler = 1
'Die Passwort Eingabe wird geprüft
nochmal:
PWEingabe = InputBox("Bitte geben sie Ihr Paßwort ein" & Chr(13) & _
"Das richtige Paßwort lautet: ""abc""", "Paßwortabfrage")
If PWEingabe <> PWort Then
'Prüfen wie oft bereits Fehler
If Fehler < 3 Then
MsgBox "Sie haben kein oder ein ungültiges Paßwort eingegeben!", _
vbOKOnly, "Falsche Eingabe"
Fehler = Fehler + 1 'Fehler zählen
GoTo nochmal 'Zurück zur Paßworteingabe
Else
MsgBox "Sie haben 3 Mal ein falsches Paßwort eingegeben" _
& Chr(13) & "Die Datei wird geschlossen"
'Datei ohne Speichern schließen
ThisWorkbook.Close SaveChanges:=False
End If
Else
MsgBox "Ihre Paßwort-Eingabe war OK"
End If
ulf