EnableEvents- Frage
09.05.2005 14:22:06
MichaV
war gerade dabei, über die Frage von ingo https://www.herber.de/forum/messages/609089.html nachzudenken. Dazu hab ich ein bischen Code getippelt um eine mögliche Antwort auszuprobieren. Nun hab ich selbst ein Problem. Das On_Click- Ereignis ruft sich selbst auf, obwohl ich Application.EnableEvents = False setze. Woran kann das liegen?
Private Sub CheckBox1_Click()
If Not CheckBox1.Value Then Exit Sub 'Abfrage nur, wenn kein Haken gesetzt
Application.EnableEvents = False
CheckBox1.Value = 0 'Haken wieder rausnehmen
'Warum wird hier die Sub CheckBox1_Click wieder ausgeführt,
'obwohl EnableEvents auf FALSE ist?
If InputBox("Passwort eingeben!", "Abfrage") = "Passwort" Then
CheckBox1.Value = 1 'PW okay, Haken wieder setzen
Else
MsgBox "Falsches Passwort!", vbOKOnly + vbCritical, "Meldung"
End If
Application.EnableEvents = True
End Sub
Kann mich bitte jemand aufklären?
Danke- Micha
Anzeige