Passwortabfrage über UserBox
13.03.2003 18:02:35
Jill
Ich habe folgendes Makro (Ausschnitt) programmiert. Das interessante daran ist, dass die MsgBox und If-Abfrage nach jedem einzelnen eingegebenen Buchstaben starten. Wieso? Ich möchte, dass der Inhalt der TextBox erst nach KLicken des OK Button der UserForm übergeben wird.
Private Sub TextBox1_Change()
Dim Password As Variant
Password = TextBox1
If Password <> "jill" Then
MsgBox ("Falsches Passwort")
End If
Debug.Print Password
End Sub
Anzeige