Стартирайте редактора на Visual Basic.
Изберете желания проект в прозореца Project.
Вмъкнете нов модул за клас, като изберете менюто Insert | Модул клас.
Активирайте новия модул на класа и го преименувайте, напр. AppEventClass
Копирайте и поставете тези примерни макроси в новия модул на класа:
Публично WithEvents Прилагане като приложение Лично Sub Appl_NewWorkbook (ByVal Wb Като работна книга) 'вашият код тук 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 "Работна книга е отворена!" End Sub
След като приключите с редактирането на макросите на събитията за обекта Application,
трябва да добавите код към модула ThisWorkbook, за да активирате новите макроси за събития:
Dim ApplicationClass As New AppEventClass Private Sub Workbook_Open () Задайте ApplicationClass.Appl = Sub Application End
След като изпълните процедурата Workbook_Open, събитията, прикрепени към обекта Application, се активират.