- Код: Выделить всё
'Открытие рабочей книги с автоматическим отключением макросов
Sub OpenWithMacrosOff()
Dim secAutomation As MsoAutomatianSecurity
secAutomation = Application.AutomationSecurity
Application.AutomationSecurity = msoAutomationSecurityForceDisable
Application.FileDialog(msoFileDialogOpen).Show
Dim fn As String
fn = Application.FileDialog(msoFileDialogFilePicker).Selectedltems(1)
Application.Workbooks.Open fn
Application.AutomationSecurity = secAutomation
End Sub
Вопрос: Свойство Application.AutomationSecurity нет в списке. Я предполагаю, что необходимо подключить библиотеку. Какую?
Спасибо заранее.[/code]
