Userform abbrechen.
04.07.2005 11:52:36
Heinz H
Habe eine Userform zum einblenden von einzelnen Tab.Blätter mit Paßwort eingeben.
Nun bin ich aber draufgekommen wenn man einmal ein falsches Paßwort eingibt & dann auf abrechen geht,das trotzdem das Tab.Blatt angezeigt wird.
wie kan man das abstellen,bzw wenn ich auf das Kreuz zum abrechen klicke das es verschwindet ??
Kann mir bitte da jemand helfen Danke
gruß Heinz
Option Explicit
Private Sub cmdOK_Click()
If txtPasswort.Text = "Paßwort" Then
Unload Me
Else
MsgBox "Sie haben ein falsches Passwort eingegeben, " _
& Chr(13) & "Versuchen Sie es nocheinmal !", vbExclamation, "Falsche Eingabe"
txtPasswort.Text = ""
txtPasswort.SetFocus
End If
Application.ScreenUpdating = False
Sheets("Jänner").Visible = True
End Sub
Private Sub UserForm_Initialize()
txtPasswort.SetFocus
End Sub