网络安全是一个重点内容，无论是生产企业还是国家事业，网络已经成为生活中密不可分的一部分。
于是，网络安全就显得十分重要，美国的互联网是世界最强的国家，面对网络安全依然无法避免发生事故。
面对网络勒索也没有十足的办法应对，唯一用赎金来解决问题。
这是一个很明显的网络安全事故教训。
如何做到网络安全，就不得不提到一些网络安全方面的管理机制。
本节主要介绍VBA中一个文本安全模式的问题。
AutomationSecurity是Application对象下的属性，它表示Microsoft Excel方式打开文件时使用的安全模式。
AtuomationSecurity属性有三个值可选，分别代表不同的意义，如下图所示：
名称 | 值 | 说明 |
msoAutomationSecurityByUI | 2 | 使用 “安全性” 对话框中指定的安全设置。 |
msoAutomationSecurityForceDisable | 3 | 禁用以编程方式打开的所有文件中的所有宏，而不显示任何安全警告。 |
msoAutomationSecurityLow | 1 | 启用所有的宏。 此为启动应用程序时的默认值。 |
上图为示例界面，可实现对安全模式的返回和设置功能。
安全模式应用于编程中的一些功能性权限设置。
如有些文件不希望启用宏，就设置为禁用宏，有些需要启用可设置开启。
代码
本示例将返回当前的自动安全设置，然后把设置改为禁用宏，显示 “打开” 对话框；在打开选定的文档后，将自动安全设回原始设置。
Sub Security()
Dim secAutomation As MsoAutomationSecurity '定义一个安全模式变量
secAutomation = Application.AutomationSecurity '保存默认安全模式
Application.AutomationSecurity = msoAutomationSecurityForceDisable '不显示安全警告
Application.FileDialog(msoFileDialogOpen).Show
Application.AutomationSecurity = secAutomation '恢复安全模式
End Sub
返回当前打开文件安全模式
Private Sub CommandButton1_Click()
MsgBox "当前安全模式值为：" & Application.AutomationSecurity
End Sub
AutomationSecurity属性就介绍到这里。
欢迎关注、收藏
---END---
