Visual Basic düzenleyicisini başlatın.
Proje penceresinde istediğiniz projeyi seçin.
Ekle menüsünü seçerek yeni bir sınıf modülü ekleyin | Sınıf Modülü.
Yeni sınıf modülünü etkinleştirin ve yeniden adlandırın, ör. UygulamaEtkinlikSınıfı
Bu örnek makroları kopyalayıp yeni sınıf modülüne yapıştırın:
Public WithEvents Appl As Application Private Sub Appl_NewWorkbook(ByVal Wb As Workbook) ' kodunuz burada MsgBox "Yeni bir çalışma kitabı oluşturuldu!" End Sub Private Sub Appl_WorkbookBeforeClose(ByVal Wb As Workbook, _ Cancel As Boolean) ' kodunuz burada MsgBox "Bir çalışma kitabı kapatıldı!" End Sub Private Sub Appl_WorkbookBeforePrint(ByVal Wb As Workbook, _ Cancel As Boolean) ' kodunuz burada MsgBox "Bir çalışma kitabı yazdırıldı!" End Sub Private Sub Appl_WorkbookBeforeSave(ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) ' kodunuz burada MsgBox "Bir çalışma kitabı kaydedildi!" End Sub Private Sub Appl_WorkbookOpen(ByVal Wb As Workbook) ' kodunuz burada MsgBox "Bir çalışma kitabı açıldı!" Alt Bitiş
Uygulama nesnesi için olay makrolarını düzenlemeyi bitirdikten sonra,
yeni olay makrolarını etkinleştirmek için ThisWorkbook modülüne bazı kodlar eklemeniz gerekir:
Dim ApplicationClass As New AppEventClass Private Sub Workbook_Open() Set ApplicationClass.Appl = Application End Sub
Workbook_Open yordamını çalıştırdıktan sonra, Uygulama nesnesine eklenen olaylar etkinleştirilir.