Могу ли я скомпилировать VBA на рабочей книге?

Question

Я пытаюсь найти способ компиляции кода в VBA на открытой рабочей книге. Я могу сделать это вручную, открыв среду VBA, перейдя в Debug и «Compile VBAProject», но задавался вопросом, есть ли способ сделать это с помощью кода каждый раз, когда открывается рабочая книга.

Целью этого является загрузка кода в память компьютеров, чтобы предотвратить компиляцию из-за использования некоторых объектов Active X. Как уже упоминалось, я могу сделать это вручную, и это решает проблему, однако, поскольку есть много пользователей, которые используют это, а рабочая книга защищена паролем, не все будут иметь доступ к опции отладки.

Answer 1

Я думаю, вы можете попытаться сделать это, автоматизировав VBE (редактор Visual Basic).

ТРЕБОВАНИЕ:

вы должны пойти в Excel/File/Options/Trust Center/Trust Center settings и установите флажок Trust access to the VBA project object model (по соображениям безопасности это по умолчанию отключено, и если вы не проверить его код ниже будет поднимать во время выполнения ошибка 1004 programmatic access to visual basic project is not trusted). Ясно, что вам нужно только сделать это один раз (на каждом компьютере, который вы хотите выполнить автоматическую компиляцию, конечно).

КОДИРОВАНИЕ:

Ваша команда инструкция бар (т.е. "Compile VBA Project") находится внутри объекта VBE Заявки Excel, в частности, в панели команд:

Dim objVBECommandBar As Object 
Set objVBECommandBar = Application.VBE.CommandBars 

Объект будет теперь содержат всю командную строку редактора Visual Basic. В частности, вы ищете кнопку ID 578, которая на самом деле является «компиляцией проекта VBA» (вы можете поместить наблюдателя в переменную и просмотреть все внутри локального окна, вы можете захотеть найти другую команд). Следовательно, подытожить:

Set compileMe = objVBECommandBar.FindControl(Type:=msoControlButton, ID:=578) 
compileMe.Execute 

Это позволит компилировать проект. Как вы просили, вы просто положили это на событие «Открытая рабочая книга»:

Private Sub ThisWorkbook_Open() 
    Set compileMe = objVBECommandBar.FindControl(Type:=msoControlButton, ID:=578) 
    compileMe.Execute 'the project should hence be compiled 
End Sub