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