返回或设置 MsoAutomationSecurity 常数,该常数代表用编程方式打开文件时 Microsoft PowerPoint 使用的安全模式。启动应用程序时,此属性自动设置为 msoAutomationSecurityLow 值。因此,为了避免破坏基于默认设置的解决方案,在用编程方式打开文件后要注意将此属性重新设置为 msoAutomationSecurityLow。同样,在用编程方式打开文件之前或之后都应立即设置此属性以避免遭受蓄意破坏。可读写。
MsoAutomationSecurity 可以是下列 MsoAutomationSecurity 类型常数之一。 |
msoAutomationSecurityByUI 使用在“安全性”对话框中指定的安全设置。 |
msoAutomationSecurityForceDisable 禁用所有以编程方式打开的文件中的所有宏而不显示任何安全警告。 |
msoAutomationSecurityLow 启用所有的宏。启动应用程序时此参数为默认值。 |
expression.AutomationSecurity
expression 必选。该表达式返回“应用于”列表中的对象之一。
DisplayAlerts 属性的值将不会应用于安全警告。例如,如果用户将 DisplayAlerts 属性设置为 False 并将 AutomationSecurity 属性设置为 msoAutomationSecurityByUI,而用户又处于中等安全级别,则在运行宏时将出现安全警告。此属性将允许宏捕获打开文件时产生的错误,这样即使文件成功打开,仍将显示安全警告。
本示例捕获当前的自动安全设置,将该设置更改为禁用宏,显示“打开”对话框,并在打开选定的演示文稿之后将自动安全性恢复为其原始设置。
Sub Security()
Dim secAutomation As MsoAutomationSecurity
secAutomation = Application.AutomationSecurity
Application.AutomationSecurity = msoAutomationSecurityForceDisable
Application.FileDialog(msoFileDialogOpen).Show
Application.AutomationSecurity = secAutomation
End Sub