Ustvarite mačke dogodkov za objekt Application z uporabo VBA v programu Microsoft Excel

Zaženite urejevalnik Visual Basic.
V oknu Project izberite želeni projekt.
Vstavite nov modul razreda tako, da izberete meni Vstavi | Modul razreda.
Aktivirajte nov modul razreda in ga preimenujte, npr. AppEventClass
Kopirajte in prilepite te primere makrov v nov modul razreda:

Javno WithEvents Appl As Application Private Sub Appl_NewWorkbook (ByVal Wb As Workbook) 'vaša koda tukaj MsgBox "Nov delovni zvezek je ustvarjen!" End Sub Private Sub Appl_WorkbookBeforeClose (ByVal Wb As Workbook, _ Cancel As Boolean) 'vaša koda tukaj MsgBox "Delovni zvezek je zaprt!" End Sub Private Sub Appl_WorkbookBeforePrint (ByVal Wb As Workbook, _ Cancel As Boolean) 'vaša koda tukaj MsgBox "Delovni zvezek je natisnjen!" End Sub Private Sub Appl_WorkbookBeforeSave (ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) 'vaša koda tukaj MsgBox "Delovni zvezek je shranjen!" End Sub Private Sub Appl_WorkbookOpen (ByVal Wb As Workbook) 'vaša koda tukaj MsgBox "Delovni zvezek je odprt!" End Sub

Ko končate urejanje makrov dogodkov za objekt Application,
v modul ThisWorkbook morate dodati nekaj kode, da aktivirate nove makre dogodkov:

Zatemni ApplicationClass kot novo AppEventClass Private Sub Workbook_Open () Nastavi ApplicationClass.Appl = Sub Application End Sub

Ko zaženete postopek Workbook_Open, se aktivirajo dogodki, priloženi objektu Application.