Gruppe
Dialog
Bereich
TextBox
Thema
Paßwortabfrage
Problem
Wie kann ich eine einfache Paßwortabfrage über InputBox starten?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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