Pokrenite uređivač Visual Basic.
Odaberite željeni projekt u prozoru Projekt.
Umetnite novi modul klase odabirom izbornika Umetni | Modul klase.
Aktivirajte novi modul klase i preimenujte ga, npr. AppEventClass
Kopirajte i zalijepite ove primjere makronaredbi u novi modul klase:
Javno Uz Događaje Primijeni kao aplikaciju Privatno Pod Appl_NewWorkbook (ByVal Wb Kao radna knjiga) 'vaš kôd ovdje MsgBox "Nova je radna knjiga stvorena!" Završite pod -privatnu pod -aplikaciju App__WorkbookBeforeClose (ByVal Wb kao radna knjiga, _ Cancel As Boolean) 'vaš kôd ovdje MsgBox "Radna knjiga je zatvorena!" Završi pod -privatnu pod -aplikaciju App__WorkbookBeforePrint (ByVal Wb kao radna knjiga, _ Cancel As Boolean) 'vaš kod ovdje MsgBox "Radna knjiga je ispisana!" Završite pod -privatnu pod -aplikaciju App__WorkbookBeforeSave (ByVal Wb kao radna knjiga, _ ByVal SaveAsUI kao Boolean, Cancel As Boolean) 'vaš kôd ovdje MsgBox "Radna knjiga je spremljena!" Završite pod -privatnu pod -aplikaciju Appl_WorkbookOpen (ByVal Wb kao radna knjiga) 'vaš kôd ovdje MsgBox "Otvorena je radna knjiga!" Kraj podm
Nakon što dovršite uređivanje makronaredbi događaja za objekt Application,
morate dodati neki kôd u modul ThisWorkbook da biste aktivirali nove makroe događaja:
Zatamni ApplicationClass kao novu AppEventClass privatnu pod -radnu knjigu_Open () Postavi ApplicationClass.Appl = Podloga za kraj aplikacije
Nakon što pokrenete postupak Workbook_Open, događaji pridruženi objektu Application se aktiviraju.