Можно ли отключить макрос?

[Busine2009]

У меня есть макрос, который срабатывает при открытии документа. Это занимается некоторое время. В определенных ситуациях мне не надо чтобы он срабатывал. Есть ли в ВБА тумблер (выключатель) макросов, или же надо их удалять?

Заранее спасибо.

[akokin]

Busine2009, если у вас Word 2003, то откройте диалог "Безопасность" (Сервис-Макрос-Безопасность) и установите на вкладке "Уровень безопасности" параметр "Средняя".
Если 2007, то Параметры Word - вкладка Центр управления безопасностью - Параметры макросов - Отключить все с уведомлением.
И при запуске макроса в документе будет отображаться уведомление, где уже вы сможете запустить макрос, либо же не подключать его.

[viter.alex]

Пропишите в вашем макросе условие, при котором он не должен выполняться. Например, такое условие можно поставить, чтобы не запускать макрос в июле:

Private Sub Document_Open()
  If Month(Now) = 7 Then Exit Sub
'Дальше идет код макроса
End Sub

[Busine2009]

У меня макрос универсальный, а не для одного документа, то есть Sub AutoOpen(), поэтому средства безопасности не будут работать.
То есть, как я понял, тумблеров таких не имеется.

Смысл в том, что у меня макрос по поиску скрытого текста. Если я уже один раз открыл документ и знаю, что в нем нет скрытого текста, то хотелось бы, чтобы макрос не срабатывал при следующем его открытии - это касается больших документов более 200 страниц. Т.к. при работе с документами часто бывают ситуации, что вылетаешь по разным и непонятным причинам и затем снова надо открыть этот же документ, то макрос срабатывает, что может занять секунд 20-30.

[viter.alex]

В таком случае могу предложить использовать какое-нибудь свойство документа, например, комментарии, и при старте макроса его проверять. Если оно пустое, то макрос должен срабатывать, если в нем уже записано кодовое слово, например Checked, то выходить из макроса.

Private Sub AutoOpen()
  If ActiveDocument.BuiltInDocumentProperties(wdPropertyComments) = "Checked" Then Exit Sub
  'Текст макроса
  
  
  'В самом конце записываем
  ActiveDocument.BuiltInDocumentProperties(wdPropertyComments) = "Checked"
End Sub

[Busine2009]

Спасибо, гляну, да и для общего развития пригодится, почаще заходить в свойства и что-то там делать.