Gruppe
Dialog
Problem
Wie kann ich eine einfache Paßwortabfrage über InputBox starten?
StandardModule: basMain
Sub Passwort()
Dim sWord As String
Do While InputBox("Passwort:") <> "MeinPasswort"
Beep
If MsgBox("War wohl nix!", vbOKCancel) = vbCancel Then End
Loop
MsgBox "Paßwort stimmt!"
End Sub