Uruchom edytor Visual Basic.
Wybierz żądany projekt w oknie Projekt.
Wstaw nowy moduł klasy, wybierając menu Wstaw | Moduł klasy.
Aktywuj nowy moduł zajęć i zmień jego nazwę, np. AppEventClass
Skopiuj i wklej te przykładowe makra do nowego modułu klasy:
Public WithEvents Appl As Application Private Sub Appl_NewWorkbook(ByVal Wb As Workbook) ' Twój kod tutaj MsgBox "Utworzono nowy skoroszyt!" End Sub Private Sub Appl_WorkbookBeforeClose(ByVal Wb As Workbook, _ Cancel As Boolean) ' Twój kod tutaj MsgBox "Skoroszyt jest zamknięty!" End Sub Private Sub Appl_WorkbookBeforePrint(ByVal Wb As Workbook, _ Cancel As Boolean) ' Twój kod tutaj MsgBox "Skoroszyt jest drukowany!" End Sub Private Sub Appl_WorkbookBeforeSave(ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) ' Twój kod tutaj MsgBox "Skoroszyt został zapisany!" End Sub Private Sub Appl_WorkbookOpen(ByVal Wb As Workbook) ' Twój kod tutaj MsgBox "Skoroszyt jest otwarty!" Napis końcowy
Po zakończeniu edycji makr zdarzeń dla obiektu Application,
musisz dodać trochę kodu do modułu ThisWorkbook, aby aktywować nowe makra zdarzeń:
Dim ApplicationClass jako nowy AppEventClass Private Sub Workbook_Open() Ustaw ApplicationClass.Appl = Application End Sub
Po uruchomieniu procedury Workbook_Open zostaną aktywowane zdarzenia dołączone do obiektu Application.