Käivitage Visual Basic redaktor.
Valige projekti aknas soovitud projekt.
Sisestage uus klassimoodul, valides menüü Lisa | Klassi moodul.
Aktiveerige uus klassimoodul ja nimetage see ümber, nt. AppEventClass
Kopeerige ja kleepige need näidismakrod uude klassimoodulisse:
Public WithEvents Appl kui rakendus Private Subl Appl_NewWorkbook (ByVal Wb As Workbook) 'teie kood siin MsgBox "Uus töövihik on loodud!" End Sub Private Sub Appl_WorkbookBeforeClose (ByVal Wb As Workbook, _ Cancel As Boolean) 'teie kood siin MsgBox "Töövihik on suletud!" End Sub Private Sub Appl_WorkbookBeforePrint (ByVal Wb As Workbook, _ Cancel As Boolean) 'teie kood siin MsgBox "Töövihik on trükitud!" End Sub Private Sub Appl_WorkbookBeforeSave (ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel as Boolean) 'teie kood siin MsgBox "Töövihik on salvestatud!" End Sub Private Sub Appl_WorkbookOpen (ByVal Wb As Workbook) 'oma kood siin MsgBox "Töövihik on avatud!" End Sub
Kui olete rakenduse objekti sündmuste makrode muutmise lõpetanud,
uute sündmuste makrode aktiveerimiseks peate lisama moodulile ThisWorkbook mõne koodi:
Dimmerdage ApplicationClass uue AppEventClass Private Sub Workbook_Open () Määrake ApplicationClass.Appl = Application End Sub
Pärast protseduuri Workbook_Open käivitamist aktiveeritakse rakendusobjektiga seotud sündmused.