Porniți editorul Visual Basic.
Selectați proiectul dorit în fereastra Proiect.
Introduceți un nou modul de clasă selectând meniul Inserare | Modulul clasei.
Activați noul modul de clasă și redenumiți-l, de ex. AppEventClass
Copiați și lipiți aceste exemple de macrocomenzi în noul modul de clasă:
Public WithEvents Appl As Application Private Sub Appl_NewWorkbook (ByVal Wb As Workbook) 'codul dvs. aici MsgBox "Un nou registru de lucru este creat!" End Sub Private Sub Appl_WorkbookBeforeClose (ByVal Wb As Workbook, _ Cancel As Boolean) 'codul dvs. aici MsgBox "Un registru de lucru este închis!" End Sub Private Sub Appl_WorkbookBeforePrint (ByVal Wb As Workbook, _ Cancel As Boolean) 'codul dvs. aici MsgBox "Un registru de lucru este tipărit!" End Sub Private Sub Appl_WorkbookBeforeSave (ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) 'codul dvs. aici MsgBox "Un registru de lucru este salvat!" End Sub Private Sub Appl_WorkbookOpen (ByVal Wb As Workbook) 'codul dvs. aici MsgBox "Se deschide un registru de lucru!" Sfârșitul Sub
După ce ați terminat de editat macro-urile de evenimente pentru obiectul Aplicație,
trebuie să adăugați un cod la modulul ThisWorkbook pentru a activa noile macro-uri de evenimente:
Dim ApplicationClass As New AppEventClass Private Sub Workbook_Open () Set ApplicationClass.Appl = Application End Sub
După ce rulați procedura Workbook_Open, evenimentele atașate obiectului Aplicație sunt activate.