【禁用宏】如何设置Excel文件安全模式，这里有说明，不要错过

No.1

网络安全是重点内容。无论是生产企业还是国家事业，互联网已经成为生活不可分割的一部分。

于是，网络安全就显得十分重要，美国的互联网是世界最强的国家，面对网络安全依然无法避免发生事故。

面对网络勒索也没有十足的办法应对，唯一用赎金来解决问题。

这是一个很明显的网络安全事故教训。

如何做到网络安全，就不得不提到一些网络安全方面的管理机制。

本节主要介绍VBA中一个文本安全模式的问题。

AutomationSecurity是Application对象下的属性，它表示Microsoft Excel方式打开文件时使用的安全模式。

AtuomationSecurity属性有三个值可选，分别代表不同的意义，如下图所示：

名称	值	说明
msoAutomationSecurityByUI	2	使用 “安全性” 对话框中指定的安全设置。
msoAutomationSecurityForceDisable	3	禁用以编程方式打开的所有文件中的所有宏，而不显示任何安全警告。
msoAutomationSecurityLow	1	启用所有的宏。 此为启动应用程序时的默认值。

上图为示例界面，可实现对安全模式的返回和设置功能。

安全模式应用于编程中的一些功能性权限设置。

如有些文件不希望启用宏，就设置为禁用宏，有些需要启用可设置开启。

No.2

代码

本示例将返回当前的自动安全设置，然后把设置改为禁用宏，显示 “打开” 对话框；在打开选定的文档后，将自动安全设回原始设置。

Sub Security() Dim secAutomation As MsoAutomationSecurity '定义一个安全模式变量 secAutomation = A '保存默认安全模式 A = msoAutomationSecurityForceDisable '不显示安全警告 A(msoFileDialogOpen).Show A = secAutomation '恢复安全模式 End Sub

返回当前打开文件安全模式

Private Sub CommandButton1_Click() MsgBox "当前安全模式值为：" & A End Sub

AutomationSecurity属性就介绍到这里。

欢迎关注、收藏

---END---