Käynnistä Visual Basic -editori.
Valitse haluamasi projekti Projekti-ikkunasta.
Lisää uusi luokkamoduuli valitsemalla Lisää | Luokan moduuli.
Aktivoi uusi luokkamoduuli ja nimeä se uudelleen, esim. AppEventClass
Kopioi ja liitä nämä esimerkkimakrot uuteen luokkamoduuliin:
Julkinen With Tapahtumat Sovellus Sovellus Yksityinen alisovellus Appl_NewWorkbook (ByVal Wb As Workbook) 'koodisi täällä MsgBox "Uusi työkirja on luotu!" Lopeta Sub Yksityinen alisovellus Appl_WorkbookBeforeClose (ByVal Wb As Workbook, _ Cancel As Boolean) 'koodi täällä MsgBox "Työkirja on suljettu!" Lopeta Sub Yksityinen alisovellus Appl_WorkbookBeforePrint (ByVal Wb As Workbook, _ Cancel as Boolean) 'koodi täällä MsgBox "Työkirja tulostetaan!" Lopeta Sub Yksityinen alisovellus Appl_WorkbookBeforeSave (ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel as Boolean) 'koodi täällä MsgBox "Työkirja on tallennettu!" Lopeta Sub Yksityinen Sub Appl_WorkbookOpen (ByVal Wb As Workbook) 'koodi täällä MsgBox "Työkirja on avattu!" End Sub
Kun olet lopettanut sovellusobjektin tapahtumamakrojen muokkaamisen,
Sinun on lisättävä koodia ThisWorkbook -moduuliin aktivoidaksesi uudet tapahtumamakrot:
Dim ApplicationClass kuin uusi AppEventClass Private Sub Workbook_Open () Aseta ApplicationClass.Appl = Application End Sub
Kun olet suorittanut Workbook_Open -menettelyn, sovellusobjektiin liitetyt tapahtumat aktivoituvat.