Khởi động trình soạn thảo Visual Basic.

Chọn dự án mong muốn trong cửa sổ Dự án.

Chèn một mô-đun lớp mới bằng cách chọn menu Chèn | Mô-đun lớp học.

Kích hoạt mô-đun lớp mới và đổi tên nó, ví dụ: AppEventClass Sao chép và dán các macro ví dụ này vào mô-đun lớp mới:

Public WithEvents Appl As Application

Private Sub Appl_NewWorkbook(ByVal Wb As Workbook)

' your code here

MsgBox "A new workbook is created!"

End Sub

Private Sub Appl_WorkbookBeforeClose(ByVal Wb As Workbook, _

Cancel As Boolean)

' your code here

MsgBox "A workbook is closed!"

End Sub

Private Sub Appl_WorkbookBeforePrint(ByVal Wb As Workbook, _

Cancel As Boolean)

' your code here

MsgBox "A workbook is printed!"

End Sub

Private Sub Appl_WorkbookBeforeSave(ByVal Wb As Workbook, _

ByVal SaveAsUI As Boolean, Cancel As Boolean)

' your code here

MsgBox "A workbook is saved!"

End Sub

Private Sub Appl_WorkbookOpen(ByVal Wb As Workbook)

' your code here

MsgBox "A workbook is opened!"

End Sub

Sau khi hoàn tất việc chỉnh sửa macro sự kiện cho đối tượng Ứng dụng, bạn phải thêm một số mã vào mô-đun ThisWorkbook để kích hoạt macro sự kiện mới:

Dim ApplicationClass As New AppEventClass

Private Sub Workbook_Open()

Set ApplicationClass.Appl = Application

End Sub

Sau khi bạn chạy thủ tục Workbook_Open, các sự kiện được đính kèm với đối tượng Ứng dụng sẽ được kích hoạt.