Author:水如烟
因为安全审核,一般用Access打开一个文件时显示安全警告,作了选择后才进行下去,用代码打开也一样。因此,为取消这个选择,不让它显示出来,需要将安全级别设置为最低,但是,程序退出之前,必须记住设回默认值。
在Office2003,可以直接读取和设置安全级别。
Namespace
uOffice
Public Enum MsoAutomationSecurityEnum
SecurityLow = 1
SecurityByUI = 2
SecurityForceDisable = 3
End Enum
End Namespace
Public Enum MsoAutomationSecurityEnum
SecurityLow = 1
SecurityByUI = 2
SecurityForceDisable = 3
End Enum
End Namespace
ApplicationBaseCommon.vb
Public
Property
AutomationSecurity()
As
MsoAutomationSecurityEnum
Get
Return Me .gApplicationObject.AutomationSecurity
End Get
Set ( ByVal value As MsoAutomationSecurityEnum)
Me .gApplicationObject.AutomationSecurity = value
End Set
End Property
Get
Return Me .gApplicationObject.AutomationSecurity
End Get
Set ( ByVal value As MsoAutomationSecurityEnum)
Me .gApplicationObject.AutomationSecurity = value
End Set
End Property
而在之前的版本,不知是否有直接设置的属性。这里提供操作注册表的方法: