Avvia l'editor di Visual Basic.
Seleziona il progetto desiderato nella finestra Progetto.
Inserisci un nuovo modulo di classe selezionando il menu Inserisci | Modulo di classe.
Attiva il nuovo modulo di classe e rinominalo, ad es. AppEventClass
Copia e incolla queste macro di esempio nel nuovo modulo di classe:
Public WithEvents Appl As Application Private Sub Appl_NewWorkbook(ByVal Wb As Workbook) ' il tuo codice qui MsgBox "Una nuova cartella di lavoro è stata creata!" End Sub Private Sub Appl_WorkbookBeforeClose(ByVal Wb As Workbook, _ Cancel As Boolean) ' il tuo codice qui MsgBox "Una cartella di lavoro è chiusa!" End Sub Private Sub Appl_WorkbookBeforePrint(ByVal Wb As Workbook, _ Cancel As Boolean) ' il tuo codice qui MsgBox "Una cartella di lavoro è stampata!" End Sub Private Sub Appl_WorkbookBeforeSave(ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) ' il tuo codice qui MsgBox "Una cartella di lavoro è stata salvata!" End Sub Private Sub Appl_WorkbookOpen(ByVal Wb As Workbook) ' il tuo codice qui MsgBox "Una cartella di lavoro è aperta!" Fine sottotitolo
Dopo aver terminato la modifica delle macro di eventi per l'oggetto Application,
devi aggiungere del codice al modulo ThisWorkbook per attivare le nuove macro di eventi:
Dim ApplicationClass As New AppEventClass Private Sub Workbook_Open() Imposta ApplicationClass.Appl = Application End Sub
Dopo aver eseguito la procedura Workbook_Open, vengono attivati gli eventi associati all'oggetto Application.