Office: (Office 2010) EnableEvents = Flase verhindert Msgbox nicht

Hola,

In Workbook_BeforeClose möchte ich einen ToggleButton resetten (Value auf False), allerdings soll dabei nicht die Msgbox im Click-Event ausgerufen werden (Die Captionänderung schon):

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
With ThisWorkbook.Worksheets(1)
    .ToggleButton2.Visible = False
    .ToggleButton2.Value = False
End With
Application.EnableEvents = True
ThisWorkbook.Save
End Sub

Code:

Private Sub ToggleButton2_Click()

With ToggleButton2
    If ToggleButton2 = True Then
        MsgBox "Die Bearbeitung wurde freigegeben"
[INDENT].Caption "An"[/INDENT]
    Else
        MsgBox "Die Bearbeitung wurde gesperrt"
[INDENT].Caption "Aus"[/INDENT]
    End If
End With

End Sub

Leider wird trotzdem immer die Msgbox ausgeführt.

Gibt es dazu eine Lösung oder muss ich das gestalten?

 

Hi,

EnableEvents wirkt nicht bei Steuerelementen. Deklariere stattdessen eine Public-Variable als Boolean (im Standardmodul) und setze sie im BeforeClose-Ereignis auf True. Im Code für den Toggle-Button prüfst du, ob sie False ist: falls ja (Code wurde vom Toggle-Button selbst gestartet), dann den Code des Toggle-Button ausführen. Falls sie True ist (Code wurde aus dem BeforeClose-Ereignis aufgerufen) nichts machen.

Bis später,
Karin

 

Ah gut zu wissen!

Vielen Dank so funktioniert es.