Servus!
ich würde gerne eine Userform erstellen, in der man eine Passwort Abfrage, erstellen kann.
Alles funktioniert soweit gut.
Nun möchte ich das der Benutzer, das Passwort auch ändern kann.
Gibts eine Möglichkeit, dass sich er "Karl" für immer ersetzt, durch die Benutzereingabe?
Private Sub CommandButton1_Click()
Dim Passwort$
Passwort = InputBox("Passwort:", "Bitte Passwort eingeben")
If Passwort <> "karl" Then
MsgBox "Falsches Passwort"
Unload Me
Else
Sheets("Tabelle2").Select
End If
End Sub
|