ich habe mir folgendes zusammengebastelt, leider wiß ich nicht
wie ich es hin bekomme, mit dem Abbruch !
Private Sub UserForm_Initialize()
Me.TextBox1.PasswordChar = "*"
Me.TextBox1.SetFocus
End Sub
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call Admin_Schutz_Raus
'dieses Makro soll ausgeführt werden, wenn Passwort RICHTIG ist,
'sonst Abbruch und Info falsches Passwort.
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Mein Passwort ist hiermit in jeder Sheet so festgelegt:
Public Function getStrPasswort() As String
Dim Passwort
getStrPasswort = "wolli"
End Function
mfg
wolfgang