MSOffice小知识:宏安全级别的更改

Author:水如烟

因为安全审核,一般用Access打开一个文件时显示安全警告,作了选择后才进行下去，用代码打开也一样。因此，为取消这个选择，不让它显示出来，需要将安全级别设置为最低，但是，程序退出之前，必须记住设回默认值。

在Office2003，可以直接读取和设置安全级别。

Namespace  uOffice

     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

而在之前的版本,不知是否有直接设置的属性。这里提供操作注册表的方法：