Δημιουργήστε eventmacros για το αντικείμενο εφαρμογής χρησιμοποιώντας VBA στο Microsoft Excel

Ξεκινήστε τον επεξεργαστή της Visual Basic.
Επιλέξτε το έργο που θέλετε στο παράθυρο Project.
Εισαγάγετε μια νέα ενότητα κλάσης επιλέγοντας το μενού Εισαγωγή | Ενότητα τάξης.
Ενεργοποιήστε τη νέα ενότητα κλάσης και μετονομάστε την, π.χ. AppEventClass
Αντιγράψτε και επικολλήστε αυτά τα παραδείγματα μακροεντολών στη νέα λειτουργική κατηγορία:

Public WithEvents Appl As Application Private Sub Appl_NewWorkbook (ByVal Wb As Workbook) 'ο κωδικός σας εδώ MsgBox "Δημιουργείται ένα νέο βιβλίο εργασίας!" End Sub Private Sub Appl_WorkbookBeforeClose (ByVal Wb As Workbook, _ Cancel As Boolean) 'ο κωδικός σας εδώ MsgBox "Ένα βιβλίο εργασίας έκλεισε!" End Sub Private Sub Appl_WorkbookBeforePrint (ByVal Wb As Workbook, _ Cancel As Boolean) 'ο κωδικός σας εδώ MsgBox "Εκτυπώνεται ένα βιβλίο εργασίας!" End Sub Private Sub Appl_WorkbookBeforeSave (ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) 'ο κωδικός σας εδώ MsgBox "Ένα βιβλίο εργασίας αποθηκεύεται!" End Sub Private Sub Appl_WorkbookOpen (ByVal Wb As Workbook) 'ο κωδικός σας εδώ MsgBox "Ένα βιβλίο εργασίας ανοίγει!" Τέλος υπο

Αφού ολοκληρώσετε την επεξεργασία των μακροεντολών συμβάντων για το αντικείμενο εφαρμογής,
πρέπει να προσθέσετε κάποιο κώδικα στη μονάδα ThisWorkbook για να ενεργοποιήσετε τις νέες μακροεντολές συμβάντων:

Dim ApplicationClass As New AppEventClass Private Sub Workbook_Open () Set ApplicationClass.Appl = Sub Application End Sub

Αφού εκτελέσετε τη διαδικασία Workbook_Open, ενεργοποιούνται τα συμβάντα που επισυνάπτονται στο αντικείμενο εφαρμογής.