Можно заранее записать такой код куда угодно (надстройку, в личную книгу макросов или в меню под правую кнопку, или на ленту и т.п.):
Код |
---|
Sub EnableEvents
Application.EnableEvents = True
End Sub |
А потом вызывать его по Alt-F8 или по правой кнопке мышки, или из меню/ленты
Если такой же код заранее поместить в отдельную книгу в обычный модуль в процедуру Auto_Open, то достаточно будет загрузить такую книгу для однократного восстановления EnableEvents
Но обычно я пишу код так, чтобы при ошибке в коде события все равно восстанавливались:
Код |
---|
Sub test()
On Error GoTo exit_
Application.EnableEvents = False
'...
exit_:
Application.EnableEvents = True
If Err Then MsgBox Err.Description, vbCritical, "Error #" & Err.Number
End Sub |