Starta Visual Basic -redigeraren.
Välj önskat projekt i projektfönstret.
Infoga en ny klassmodul genom att välja menyn Infoga | Klassmodul.
Aktivera den nya klassmodulen och byt namn på den, t.ex. AppEventClass
Kopiera och klistra in dessa exempelmakron till den nya klassmodulen:
Public WithEvents Appl As Application Private Sub Appl_NewWorkbook (ByVal Wb As Workbook) 'din kod här MsgBox "En ny arbetsbok skapas!" End Sub Private Sub Appl_WorkbookBeforeClose (ByVal Wb As Workbook, _ Cancel As Boolean) 'your code here MsgBox "En arbetsbok är stängd!" End Sub Private Sub Appl_WorkbookBeforePrint (ByVal Wb As Workbook, _ Cancel As Boolean) 'your code here MsgBox "En arbetsbok skrivs ut!" End Sub Private Sub Appl_WorkbookBeforeSave (ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) 'your code here MsgBox "En arbetsbok sparas!" Avsluta Sub Private Sub Appl_WorkbookOpen (ByVal Wb As Workbook) 'din kod här MsgBox "En arbetsbok öppnas!" Avsluta Sub
När du har redigerat händelsemakronen för programobjektet,
du måste lägga till lite kod till modulen ThisWorkbook för att aktivera de nya händelsemakronen:
Dim ApplicationClass As New AppEventClass Private Sub Workbook_Open () Set ApplicationClass.Appl = Application End Sub
När du har kört Workbook_Open -proceduren aktiveras de händelser som är kopplade till programobjektet.