Problem mit UserForm und InPutBox
17.03.2006 12:11:56
Konni
ich habe vom Forumsmitglied K.Rola einen Code bekommen, der das Passwort durch "***" maskiert. Dies soll mit Hilfe einer UserForm geschehen.
Ich bekomme es einfach nicht hin!
Hat jemand dazu eine Lösung parat, wenn ja, welche?
Vielen Dank
Konni
Nachastehend die beiden Codes:
Sub EK_Register_einblenden()
ActiveWorkbook.Unprotect Password:="Passwort"
Dim s As String
Const passw = "Passwort"
s = InputBox("Geben Sie das Passwort ein")
If s = passw Then MsgBox "Es werden nun alle Tabellen zur Bearbeitung durch den Einkauf angezeigt" Else _
Application.DisplayAlerts = False: MsgBox _
"Sie haben ein falsches Passwort eingegeben! (Diese Funktion ist nur für den Einkauf bestimmt)": Exit Sub
.......
.......
ActiveSheet.Protect Password:="Passwort"
ActiveWorkbook.Protect Password:="Passwort"
End Sub
________________________________________________________________________________
Private Sub CommandButton1_Click() 'Code freundlicherweise von K.Rola
If TextBox1 Like "Passwort" Then
MsgBox "Passwort ok!"
End If
End
End Sub
Private Sub CommandButton2_Click()
End Sub
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Activate()
TextBox1.PasswordChar = "*"
End Sub
________________________________________________________________________________