Palaidiet Visual Basic redaktoru.
Logā Projekts atlasiet vēlamo projektu.
Ievietojiet jaunu klases moduli, izvēloties izvēlni Ievietot | Klases modulis.
Aktivizējiet jauno klases moduli un pārdēvējiet to, piem. AppEventClass
Kopējiet un ielīmējiet šos makro piemērus jaunajā klases modulī:
Public WithEvents Appl Kā lietojumprogramma Privāta apakšaplikācija Appl_NewWorkbook (ByVal Wb As Workbook) 'jūsu kods šeit MsgBox "Ir izveidota jauna darbgrāmata!" Beigt apakšprivāto privāto apakšprogrammu Appl_WorkbookBeforeClose (ByVal Wb kā darbgrāmata, _ Atcelt kā Būla) '' jūsu kods šeit MsgBox "Darbgrāmata ir aizvērta!" Beigt apakšprivāto privāto apakšprogrammu Appl_WorkbookBeforePrint (ByVal Wb kā darbgrāmata, _ Atcelt kā Būla) 'jūsu kods šeit MsgBox "Darba grāmata ir izdrukāta!" Beigt apakšprivāto privāto apakšprogrammu Appl_WorkbookBeforeSave (ByVal Wb kā darbgrāmata, _ ByVal SaveAsUI kā Būla, atcelt kā Būla) '' jūsu kods šeit MsgBox "Darbgrāmata ir saglabāta!" Beigt apakšprivātu Sub Appl_WorkbookOpen (ByVal Wb As Workbook) 'savu kodu šeit MsgBox "Tiek atvērta darbgrāmata!" Beigt apakš
Kad esat pabeidzis lietojumprogrammas objekta notikumu makro rediģēšanu,
Lai aktivizētu jauno notikumu makro, modulim ThisWorkbook jāpievieno kods:
Dimdēt ApplicationClass kā jaunu AppEventClass Private Sub Workbook_Open () Iestatīt ApplicationClass.Appl = Lietojumprogrammas beigu apakšdaļa
Pēc Workbook_Open procedūras palaišanas tiek aktivizēti notikumi, kas pievienoti lietojumprogrammas objektam.