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

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

         ' '' <summary>
         ' '' 宏安全级别
         ' '' </summary>
         ' '' <remarks>低1,中2,高3,非常高4</remarks>
         Public   Property  MacroSecurityLevel()  As   Integer
             Get
                 Return  SecurityLevelKey.GetValue( " Level " )
             End   Get
             Set ( ByVal  value  As   Integer )
                SecurityLevelKey.SetValue( " Level " , value, Microsoft.Win32.RegistryValueKind.DWord)
             End   Set
         End Property

         ' '' <summary>
         ' '' 宏安全级别注册表键
         ' '' </summary>
         Private   Function  SecurityLevelKey()  As  Microsoft.Win32.RegistryKey
             Dim  strKey  As   String   =   " Software\Microsoft\Office\{0}\{1}\Security "   ' {0}版本号
            strKey  =   String .Format(strKey,  Me .Version,  Me .gOfficeApplication.ToString)
             Dim  rk  As  Microsoft.Win32.RegistryKey
            rk  =  Microsoft.Win32.Registry.CurrentUser.OpenSubKey(strKey,  True )

             If  rk  Is   Nothing   Then
                rk  =  Microsoft.Win32.Registry.CurrentUser.CreateSubKey(strKey, Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree)
             End   If

             If  Array.IndexOf(rk.GetValueNames,  " Level " )  =   - 1   Then
                rk.SetValue( " Level " ,  2 , Microsoft.Win32.RegistryValueKind.DWord)  ' 默认为中级
             End   If

             Return  rk
         End Function

这里要注意的，注册表的值在更改后，只有重新启动Access才生效。
所以，CreateInstance也要修改一下：

         Private   Sub  CreateInstance()
             ' 实例一,用于取默认参数，并保存到有关变量，再初始某些参数。多作用于注册表。

            gBeforeProcessStartTime  =  Now
             Select   Case  gOfficeApplication
                 Case  ApplicationEnum.Access
                    gApplicationObject  =   CreateObject (SR.GetString( " Office_Application_Access " ), gServer)
                 Case  ApplicationEnum.Excel
                    gApplicationObject  =   CreateObject (SR.GetString( " Office_Application_Excel " ), gServer)
                 Case  ApplicationEnum.Word
                    gApplicationObject  =   CreateObject (SR.GetString( " Office_Application_Word " ), gServer)
             End   Select
            gAfterProcessStartTime  =  Now

             ' 读取和保留默认配置
            SaveDefaultPropertiesWhenApplicationInitialize()

             ' 退出本参考实例
            Application_Quit()
             Try
                ApplicationRelease()
             Catch  ex  As  Exception
             End   Try

             ' 初始有关参数,多作用于注册表
            InitializeDefaultPropertyiesWhenApplicationStart()

             ' 实例二
             ' 取实例前时间
            gBeforeProcessStartTime  =  Now

             ' 实例
             Select   Case  gOfficeApplication
                 Case  ApplicationEnum.Access
                    gApplicationObject  =   CreateObject (SR.GetString( " Office_Application_Access " ), gServer)
                 Case  ApplicationEnum.Excel
                    gApplicationObject  =   CreateObject (SR.GetString( " Office_Application_Excel " ), gServer)
                 Case  ApplicationEnum.Word
                    gApplicationObject  =   CreateObject (SR.GetString( " Office_Application_Word " ), gServer)
             End   Select

             ' 取实例后时间
            gAfterProcessStartTime  =  Now
         End Sub

还好，我的是2003，不必来个“实例一”。仅供参考。