Opret eventmakroer til Application -objektet ved hjælp af VBA i Microsoft Excel

Start Visual Basic -editoren.
Vælg det ønskede projekt i vinduet Projekt.
Indsæt et nyt klassemodul ved at vælge menuen Indsæt | Klassemodul.
Aktiver det nye klassemodul og omdøb det, f.eks. AppEventClass
Kopier og indsæt disse eksempelmakroer i det nye klassemodul:

Offentlig WithEvents Appl As Application Private Sub Appl_NewWorkbook (ByVal Wb As Workbook) 'din kode her MsgBox "En ny projektmappe er oprettet!" End Sub Private Sub Appl_WorkbookBeforeClose (ByVal Wb As Workbook, _ Cancel As Boolean) 'din kode her MsgBox "En projektmappe er lukket!" End Sub Private Sub Appl_WorkbookBeforePrint (ByVal Wb As Workbook, _ Cancel As Boolean) 'din kode her MsgBox "En projektmappe udskrives!" End Sub Private Sub Appl_WorkbookBeforeSave (ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) 'din kode her MsgBox "En projektmappe er gemt!" Afslut Sub Private Sub Appl_WorkbookOpen (ByVal Wb As Workbook) 'din kode her MsgBox "En projektmappe åbnes!" Afslut Sub

Når du er færdig med at redigere hændelsesmakroerne for programobjektet,
du skal tilføje kode til modulet ThisWorkbook for at aktivere de nye hændelsesmakroer:

Dim ApplicationClass som ny AppEventClass Private Sub Workbook_Open () Angiv ApplicationClass.Appl = Application End Sub

Når du har kørt proceduren Workbook_Open, aktiveres de hændelser, der er knyttet til programobjektet.