Свойство Application.AutomationSecurity (PowerPoint)

Статья
04/07/2023

Представляет режим безопасности, используемый Microsoft PowerPoint при программном открытии файлов. Для чтения и записи.

Синтаксис

выражение. AutomationSecurity

выражение: переменная, представляющая объект Application.

Возвращаемое значение

MsoAutomationSecurity

Замечания

Это свойство автоматически задается в msoAutomationSecurityLow при запуске приложения. Поэтому, чтобы избежать нарушения решений, использующих параметр по умолчанию, следует сбросить это свойство до msoAutomationSecurityLow после открытия файла программным способом. Кроме того, чтобы избежать вредоносной подверсии, следует задать это свойство непосредственно перед и после открытия файла программным способом .

Значение свойства DisplayAlerts не применяется к предупреждениям системы безопасности. Например, если пользователь задает для свойства DisplayAlerts значение False , а для свойства AutomationSecurity — msoAutomationSecurityByUI, в то время как пользователь находится на среднем уровне безопасности, при выполнении макроса будут отображаться предупреждения системы безопасности. Это позволяет макросу перехватывать ошибки открытия файлов, при этом при этом отображается предупреждение системы безопасности, если файл успешно открывается.

Значение свойства AutomationSecurity может быть одной из этих констант MsoAutomationSecurity .

Константа	Описание
msoAutomationSecurityByUI	Использует параметр безопасности, указанный в диалоговом окне Центр управления безопасностью .
msoAutomationSecurityForceDisable	Отключает все макросы во всех файлах, открытых программным способом, без отображения оповещений системы безопасности.
msoAutomationSecurityLow	Включает все макросы. Это значение по умолчанию при запуске приложения.

Пример

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

Sub Security()

    Dim secAutomation As MsoAutomationSecurity



    secAutomation = Application.AutomationSecurity



    Application.AutomationSecurity = msoAutomationSecurityForceDisable

    Application.FileDialog(msoFileDialogOpen).Show



    Application.AutomationSecurity = secAutomation



End Sub

См. также

Объект Application

Поддержка и обратная связь

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

Share via