Hallo,
ich habe folgendes für die Eingabe des Passworts in die Textbox2, durch die Hilfe des Forums:
If Len(TextBox2) = Len(cPassWord) Then
If TextBox2 = cPassWord = True Then MsgBox " Sie haben die Berechtigung ! ", vbInformation, _
"Bearbeitung der Liste.."
Unload Me
UserForm1.Show
Else
Exit Sub
MsgBox "Passwort NEU eingeben..."
End If
End Sub
Dazu: Dim blnCheck As Boolean
Const cPassWord As String = "bwwb"
Das Problem ich kann irgend einen Buchstabe eingeben, wird die UF geöffnet.
Ferner kann man bei der Eingabe die Buchstaben sehen.
Sollte jedoch abbrechen, wenn nicht der Richtige eingegeben wird.
Gruß Walter