Wieso Fehler
08.06.2020 18:54:09
kurt
ich habe mir eine UF zusammengestellt um die Passworteingabe mit Sternchen
zu verstecken.
Private Sub UserForm_Initialize()
Me.TextBox1.PasswordChar = "*"
Me.TextBox1.SetFocus
End Sub
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox1 "kk1" Then
MsgBox "Das Paßwort war falsch!!!", vbOKOnly + vbInformation, "Paßwortabfrage"
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
Unload Me
ActiveSheet.Unprotect (getStrPasswort)
ThisWorkbook.Sheets("Halle").Visible = True
ThisWorkbook.Sheets("Halle").Unprotect (getStrPasswort)
End If
End Sub
Laufzeitfehler 1004 Das eingegebene Passwort ist ungültig. ....
Ohne Passwort funktioniert das Makro einwandfrei.
Das habe ich für das Passwort hinterlegt:
Public Function getStrPasswort() As String
getStrPasswort = "kk1"
End Function
Anzeige