Hallo Forum,
ich habe eine Inputbox mit der ich ein Paswort abfrage. Dies funktioniert auch.
Nun mein Problem: Das klicken auf "Abbrechen" wird auch als Fehleingabe gewertet und brich nicht die Inputbox ab.
Wie kann ich mit dem Klick auf abbrechen die Inputbox schließen?
Anbei mein Beispielcode:
Dim I As Integer
For I = 1 To 3 'maximal 3 Eingabeversuche
If InputBox("Passwortabfrage") = "geheim" Then Exit For
MsgBox "Falsches PW"
If I = 3 Then Exit Sub
Next
MsgBox "ab hier gehts weiter" 'weiterer Code bei erfolgreicher Passworteingabe
Danke schonmal im Voraus für eure Hilfe!
|