Application Object und WorkbookBeforeSave
12.06.2008 00:28:11
Norman
wieso wird der Debug-Text nicht ausgegeben, wenn ich diesen Code im Modul der Tabelle1 anlege und dann die Excel-Datei speichere?
Option Explicit
Private WithEvents appMyXL As Application
Private Sub appMyXL_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Debug.Print "Test"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set appMyXL = Nothing
End Sub
Private Sub Workbook_Open()
Set appMyXL = Application
End Sub
Gibt es eigentlich auch etwas wie "AfterSave"?
Viele Grüße
Norman
Anzeige