如何自动设置宏安全级别

如何自动设置宏安全级别

用VBA开发Excel的自定义功能面临一个问题，当文件移植到其他电脑上时，如果这个电脑Excel没有启用宏，宏就被禁用了，起不到作用，因此就有人想到利用其他程序操作注册表来修改，对于这个想法，从安全上来讲显然是行不通的，因为如果其他程序能轻松修改宏是否启用，那充斥的宏病毒就相当简单相当多了，可能造成各种意想不到的问题，会演变成微软的漏洞被堵住。网上流行的针对以前各Office版本自动启动宏而不被宏安全检查的代码在微软不断更新的版本中均已被堵死了。

虽然宏不能自动启用，但是可以修改在禁用宏条件下执行宏的安全提示，也即宏的安全级别，这个概念可以这样理解：虽然宏是禁用的，但是当打开带有宏的文件时会给你一些选择，包括完全禁用不提示任何信息、禁用但是给出提示、禁用无数字签名的宏，如果修改安全级别，就可以在完全禁止的情况下留一丝希望。

具体修改安全级别一般认为不能通过VBA自动进行，也就是VBA执行之前先修改安全级别，因为安全级别就是针对VBA自己的，当自己还没取得执行的权限时，显然不可能先去修改这个级别，只能通过其他手段进行。

修改地方：Office注册表

表现特征：

HKEY_CURRENT_USER\Software\Microsoft\Office\"&12.0&"\Excel\Security\VBA Warnings HKEY_CURRENT_USER\Software\Microsoft\Office\"& 12.0 & "\Excel\Security\AccessVBOM HKEY_CURRENT_USER\Software\Microsoft\Office\"& 12.0 & "\Excel\Security\Level 操作方式：注册表读写

采用任何一门语言都可以，本人以VBS为例，随一般都认为其只是一种脚本语言，但是很简单易用。

附例：

Dim Wsh

Set Wsh = CreateObject("Wscript.Shell")

RegStr1 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & 12.0 & "\Excel\Security\VBAWarnings"

RegStr2 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & 12.0 & "\Excel\Security\Level"

ret = WSH.RegRead(RegStr2) '读取当前安全级别

MsgBox"Excel当前宏安全级别为：" & ret

ret= Wsh.RegWrite(RegStr1, "4", "REG_DWORD")'VBA安全级别值1-4分别对应：低，中，高，非常高

ret= Wsh.RegWrite(RegStr2, "4", "REG_DWORD")

ret = Wsh RegRead(RegStr2)

MsgBox"Excel设置后的宏安全级别为：" & ret

Set WSH = Nothing

以上是针对Office2007版本，其中Office2003为11.0，Office2010为13.0。

效果如下图：