Есть ли способ включить функции событий "книга" в мой личный файл макросов?

Question

например

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Beep
End Sub

Это работает только в «ThisWorkbook» и только в 1 электронной таблице за раз, а не в моем файле personal.xlsb. (Вдохновленный отсюда.)

score 3 · Answer 1 · 2011-03-09T19:38:42

Нажмите F4 для отображения свойств проекта.
Назовите VBAProject для вашей личной книги Personal
Создайте подпрограмму, которая вызывает звуковой сигнал.
```
Public Sub MakeItBeep
    Beep
End Sub
```
В рабочей книге, в которой вы хотите включить это, нажмите Инструменты >> Ссылки в строке меню.
Нажмите Обзор ...
Найдите свой файл Personal.xls и выберите его. (Он может находиться в нескольких разных местах, поэтому поиск диска C:\ как правило, является самым простым способом найти его.)
В нужном случае вашей рабочей книги вставьте этот код (с учетом названия модуля, конечно).
```
Personal.Module1.MakeItBeep
```

Есть несколько проблем с этим, и я действительно не рекомендую это.

Это гораздо больше кода и работы, чем просто вызов Beep напрямую.
Это, скорее всего, приведет к ошибке для любого другого пользователя, который работает с книгой. Им нужно будет отключить макросы в этой книге. Так что, если есть какие-то другие макросы, которые должны работать, вы не можете сделать это.

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

1 ответ1