关闭

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

2671人阅读 评论(1) 收藏 举报

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,不必来个“实例一”。仅供参考。
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:780910次
    • 积分:11372
    • 等级:
    • 排名:第1369名
    • 原创:352篇
    • 转载:0篇
    • 译文:0篇
    • 评论:241条
    微软中文