Application.EnableEvents wieder einschalten
Peter
In einem Workbook habe ich folgendes Workbook_BeforeClose Event:
Privat
Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.EnableEvents = False
Call BereicheDefinieren
Call xSpeichern
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Ich habe mit folgendem Code versucht:
Sub XNichtSpeichern
Dim wbkThis As Excel.Workbook
Set wkbThis = ThisWorkbook
Application.DisplayAlerts = False
Application.EnableEvents = False
wkbThis.Close False
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Gibt es eine andere Möglichkeit, dies zu erreichen?
Gruss, Peter