AutomationSecurity 属性

返回或设置一个 MsoAutomationSecurity 常量，该常量代表当程序打开文件时，Microsoft Word 使用的安全模式，可读写。

MsoAutomationSecurity 可以是下列 MsoAutomationSecurity 常量之一：

msoAutomationSecurityByUI 使用“安全”对话框指定的安全设置。

msoAutomationSecurityForceDisable 在程序打开的所有文件中禁用所有宏，而不显示任何安全提醒。

msoAutomationSecurityLow 启用所有宏，这是启动应用程序时的默认值。

expression.AutomationSecurity

expression 必需。该表达式返回“应用于”列表中的一个对象。

说明

当 Word 启动时，本属性自动设置为 msoAutomationSecurityLow，从而避免了中断依赖于默认设置的解决方案。当程序打开文件后，您应该小心地将本属性重新设为 msoAutomationSecurityLow，另外，在程序打开文件之前和之后，应该立即对本属性进行设置，以避免恶意破坏。

将 ScreenUpdating 设为 False，不会影响警告提醒和安全警告。DisplayAlerts 设置不会应用于安全警告。例如，如果用户将DisplayAlerts 设为 False，将 AutomationSecurity 设为 msoAutomationSecurityByUI，则用户处于“中等”安全级别，在该级别下运行宏时，会显示安全警告。这使宏可以捕获文件打开错误，而同时如果文件继续打开的话，显示安全警告。

示例

本示例捕获当前的自动安全设置，将设置改为禁用宏，显示“打开”对话框以及在打开选定的文档后，将自动安全设置设为初始设置。

Sub Security()
    Dim secAutomation As MsoAutomationSecurity

    With Application
        secAutomation = .AutomationSecurity
        .AutomationSecurity = msoAutomationSecurityForceDisable
        With .FileDialog(msoFileDialogOpen)
            .Show
            .Execute
        End With
        .AutomationSecurity = secAutomation
    End With

End Sub