楼主
xyh9999 |
Q:如何不通过Excel中的“宏安全性设置”来设置宏安全性?
A:方法如下
[Excel2003解法]
把以下内容用记事本写在Lqc2003.vbs文件(注意:扩展名必须为.vbs)中,直接双击该文件,对Excel2003来说就没问题了。
注意：ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")中VBA安全级别值对应：低。若为ret=WSH.RegWrite(regStr1, "4", "REG_DWORD")安全级别值对应：非常高。
- Dim WSH
- Set WSH = CreateObject("Wscript.Shell")
- regStr1 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & "11.0" & "\Excel\Security\Level"
- regStr2 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & "11.0" & "\Excel\Security\AccessVBOM"
- ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")'VBA安全级别值1-4分别对应：低，中，高，非常高
- ret=WSH.RegWrite(regStr2, "1", "REG_DWORD")
- Set WSH = Nothing
[Excel2010解法]
把以下内容用记事本写在Lqc2010.vbs文件(注意:扩展名必须为.vbs)中,直接双击该文件,对Excel2010来说就没问题了。
注意：ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")中VBA安全级别值对应：低。若为ret=WSH.RegWrite(regStr1, "4", "REG_DWORD")安全级别值对应：非常高。
- Dim WSH
- Set WSH = CreateObject("Wscript.Shell")
- regStr1 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & 14.0 & "\Excel\Security\VBAWarnings"
- regStr2 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & 14.0 & "\Excel\Security\AccessVBOM"
- ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")'VBA安全级别值1-4分别对应：低，中，高，非常高
- ret=WSH.RegWrite(regStr2, "1", "REG_DWORD")
- Set WSH = Nothing
[Excel2007解法]
把以下内容用记事本写在Lqc2007.vbs文件(注意:扩展名必须为.vbs)中,直接双击该文件,对Excel2007来说就没问题了。
注意：ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")中VBA安全级别值对应：低。若为ret=WSH.RegWrite(regStr1, "4", "REG_DWORD")安全级别值对应：非常高。
- 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\AccessVBOM"
- ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")'VBA安全级别值1-4分别对应：低，中，高，非常高
- ret=WSH.RegWrite(regStr2, "1", "REG_DWORD")
- Set WSH = Nothing
|