UserForm Passwort
10.08.2006 10:22:56
stefanseevetal
Ich habe mal wieder ein Problem. Ich versuche schon die ganze Zeit herauszufinden, warum die unten stehende Passwortabfrage nicht wie gewünscht funktioniert. Ich habe den Code hier im Forum gefunden und an meine Bedürfnisse angepasst. Es funktioniert auch alles gut, bis auf das Problem, dass das UserForm1 auch angezeigt wird, wenn kein Passwort eingegeben wurde. Irgendwas muss ich da falsch gemacht haben?! Kann mir da jemand helfen?
Danke und Gruß,
Stefan
Public PW As String
Private Sub UserForm_Initialize()
Dim frm As UserForm
Set frm = UserForm2
frm.TextBox1.PasswordChar = "*"
frm.TextBox1.SetFocus
frm.Label2.Visible = False
frm.Label3.Visible = False
TextBox1.BackColor = RGB(255, 255, 0)
End Sub
Private Sub CommandButton1_Click()
Dim passw As String
passw = "test"
If TextBox1.Value = passw Then
Label3.Visible = False
Label2.Visible = False
Load UserForm1
UserForm1.Show
Unload Me
ElseIf TextBox.Value = "" Then
Label3.Visible = True
Else
Label2.Visible = True
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End If
End Sub
Anzeige