PowerPoint VBA教程:AutomationSecurity属性

返回或设置MsoAutomationSecurity 常数,该常数代表用编程方式打开文件时 Microsoft PowerPoint 使用的安全模式。启动应用程序时,此属性自动设置为msoAutomationSecurityLow 值。因此,为了避免破坏基于默认设置的解决方案,在用编程方式打开文件后要注意将此属性重新设置为 msoAutomationSecurityLow。同样,在用编程方式打开文件之前或之后都应立即设置此属性以避免遭受蓄意破坏。可读写。

MsoAutomationSecurity 可以是下列 MsoAutomationSecurity 类型常数之一。
msoAutomationSecurityByUI 使用在“安全性”对话框中指定的安全设置。
msoAutomationSecurityForceDisable 禁用所有以编程方式打开的文件中的所有宏而不显示任何安全警告。
msoAutomationSecurityLow 启用所有的宏。启动应用程序时此参数为默认值。

expression.AutomationSecurity

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

说明

DisplayAlerts属性的值将不会应用于安全警告。例如,如果用户将 DisplayAlerts属性设置为 False 并将 AutomationSecurity属性设置为 msoAutomationSecurityByUI,而用户又处于中等安全级别,则在运行宏时将出现安全警告。此属性将允许宏捕获打开文件时产生的错误,这样即使文件成功打开,仍将显示安全警告。

VBA示例

本示例捕获当前的自动安全设置,将该设置更改为禁用宏,显示“打开”对话框,并在打开选定的演示文稿之后将自动安全性恢复为其原始设置。


Sub Security()
    Dim secAutomation As MsoAutomationSecurity
    secAutomation = Application.AutomationSecurity
    Application.AutomationSecurity = msoAutomationSecurityForceDisable
    Application.FileDialog(msoFileDialogOpen).Show
    Application.AutomationSecurity = secAutomation
End Sub

上页:PowerPoint VBA教程:AutoLoad属性 下页:PowerPoint VBA教程:AutoReverse属性

PowerPoint VBA教程:AutomationSecurity属性

版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号