USERFORM Passwort
15.03.2007 15:24:12
helena
kleines Problem für Euch denke ich
mit CODE (Schnipsel aus Forum)
Private Sub CommandButton1_Click()
Const passw = "test"
If TextBox1.Value = passw Then
'MsgBox "Passwort OK!"
Unload Me
Else
Label2.Visible = True
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End If
End Sub
funktiniert die PAsswortsperre einwandfrei, möchte aber wenn FALSCHEINGABE wieder löschen
und nach Bedarf wieder Abfragen mit NEUSTARTEN
Sub test()
UserForm1.Show
End Sub
DANKE für Eure HIlfe
gruss helena