Obsah
Spustite editor jazyka Visual Basic.
V okne Projekt vyberte požadovaný projekt.
Vložiť nový modul triedy výberom ponuky Vložiť | Modul triedy.
Aktivujte nový modul triedy a premenujte ho, napr. AppEventClass
Skopírujte a prilepte tieto ukážkové makrá do nového modulu triedy:
Public WithEvents Appl ako aplikácia Private Sub Appl_NewWorkbook (ByVal Wb As Workbook) 'váš kód tu MsgBox "Vytvoril sa nový zoš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 tu MsgBox "Zošit je vytlačený!" End Sub Private Sub Appl_WorkbookBeforeSave (ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) '' your code here MsgBox "A workbook is saved!" End Sub Private Sub Appl_WorkbookOpen (ByVal Wb As Workbook) 'your code here MsgBox "A workbook is opened!" Koniec pod
Po dokončení úprav makier udalostí pre objekt Application,
na aktiváciu nových makier udalostí musíte do modulu ThisWorkbook pridať nejaký kód:
Dim ApplicationClass as New AppEventClass Private Sub Workbook_Open () Set ApplicationClass.Appl = Application End Sub
Po spustení procedúry Workbook_Open sa aktivujú udalosti pripojené k objektu Application.
