Excel VBA UserForm "Passwort ändern" funktioniert nicht?
Ich komme echt nicht weiter bei so einem einfachen Code! :(
Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?
PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.
Option Explicit
Sub CheckBoxAltesPasswort_Click()
If CheckBoxAltesPasswort.Value = True Then
TextBoxAltesPasswort.PasswordChar = ""
Else
TextBoxAltesPasswort.PasswordChar = "*"
End If
End Sub
Sub CheckBoxNeuesPasswort1_Click()
If CheckBoxNeuesPasswort1.Value = True Then
TextBoxNeuesPasswort1.PasswordChar = ""
Else
TextBoxNeuesPasswort1.PasswordChar = "*"
End If
End Sub
Sub CheckBoxNeuesPasswort2_Click()
If CheckBoxNeuesPasswort2.Value = True Then
TextBoxNeuesPasswort2.PasswordChar = ""
Else
TextBoxNeuesPasswort2.PasswordChar = "*"
End If
End Sub
Sub CommandButtonAbbrechen_Click()
Me.Hide
End Sub
Sub CommandButtonSpeichern_Click()
If TextBoxAltesPasswort.Value <> AltesPasswort Then
MsgBox ("Das Passwort ist nicht korrekt.")
Exit Sub
End If
If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
MsgBox ("Die Passwörter stimmen nicht überein.")
Exit Sub
End If
If Len(TextBoxNeuesPasswort1.Value) < 5 Then
MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
Exit Sub
End If
NeuesPasswort = TextBoxNeuesPasswort1.Value
Passwort = NeuesPasswort
Me.Hide
End Sub
Sub UserForm_Activate()
AltesPasswort = Passwort
End Sub
1 Antwort
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel, VBA
Ich gehe davon aus, dass bei UserForm_activate die Dinge noch in Ordnung sind?
Verwende mal
TextBoxNeuesPasswort1.Text
anstatt
TextBoxNeuesPasswort1.Value