Spusťte editor jazyka.
V okně Projekt vyberte požadovaný projekt.
Vložte nový modul třídy výběrem nabídky Vložit | Modul třídy.
Aktivujte nový modul třídy a přejmenujte jej, např. AppEventClass
Zkopírujte a vložte tato ukázková makra do nového modulu třídy:
Public WithEvents Appl jako aplikace Private Sub Appl_NewWorkbook (ByVal Wb As Workbook) 'váš kód zde MsgBox "Je vytvořen nový sešit!" End Sub Private Sub Appl_WorkbookBeforeClose (ByVal Wb As Workbook, _ Cancel As Boolean) 'your code here MsgBox "A workbook is closed!" End Sub Private Sub Appl_WorkbookBeforePrint (ByVal Wb As Workbook, _ Cancel As Boolean) 'váš kód zde MsgBox "Sešit je vytištěn!" End Sub Private Sub Appl_WorkbookBeforeSave (ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) 'your code here MsgBox "Sešit je uložen!" End Sub Private Sub Appl_WorkbookOpen (ByVal Wb As Workbook) 'your code here MsgBox "A workbook is opened!" End Sub
Poté, co jste dokončili úpravy maker událostí pro objekt Application,
pro aktivaci nových maker událostí musíte do modulu ThisWorkbook přidat nějaký kód:
Dim ApplicationClass as New AppEventClass Private Sub Workbook_Open () Set ApplicationClass.Appl = Application End Sub
Po spuštění procedury Workbook_Open se aktivují události připojené k objektu Application.