@[TOC]默认启用宏)
默认启用宏
在excel“信任中心”的“宏设置”中,有“启用所有宏”、“禁用所有宏,并且不通知”、“禁用所有宏,并发出通知”、“禁用无数字签署的所有宏”等4个宏设置选项。
同如何用vba开启“信任对vba工程对象模型的访问”?一文中介绍的,以上的设置也是存储在注册表键值中的,不同的office 版本对应的键值是不同的。
在excel 14.0、15.0版本中,“宏设置”对应的键值是
HKEY_CURRENT_USER\Software\Microsoft\Office\版本号\Excel\Security\VBAWarnings
在excel 之前的版本中,“宏设置”对应的键值是
HKEY_CURRENT_USER\Software\Microsoft\Office\版本号\Excel\Security\Level
它的数据如果是1,表示开启所有宏。
基于以上的认识,再结合注册表键值修改的相关文章,可以使用以下的vba代码启用所有宏或者禁用所有宏:
- Visual Basic
Sub QQ1722187970()
Dim oWShell
Set oWShell = CreateObject("WScript.Shell")
Dim sValue As String
Dim sKey As String
Dim sVersion As String
sVersion = Excel.Application.Version
'键的名称
sKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & sVersion & "\Excel\Security\"
'2007以上版本(含2007)
sValue1 = "VBAWarnings"
'2007以下版本
sValue2 = "Level"
If sVersion >= 14 Then
sValue = sValue1
Else
sValue = sValue2
End If
With oWShell
'禁用所有宏,并发出通知
.RegWrite sKey & "\" & sValue, 0, "REG_DWORD"
'启用所有宏
.RegWrite sKey & "\" & sValue, 1, "REG_DWORD"
'禁用所有宏,并发出通知
.RegWrite sKey & "\" & sValue, 2, "REG_DWORD"
'禁用无数字签署的所有宏
.RegWrite sKey & "\" & sValue, 3, "REG_DWORD"
'禁用所有宏,并且不通知
.RegWrite sKey & "\" & sValue, 4, "REG_DWORD"
End With
End Sub
由于在禁止所有宏的情况下,vba代码无法运行,可以使用如下的vbs代码在office软件之外强制启用宏:
- Visual Basic
Dim oWShell
Set oWShell = CreateObject("WScript.Shell")
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
sVersion = oExcel.Version
'键的名称
sKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & sVersion & "\Excel\Security\"
'2007以上版本(含2007)
sValue1 = "VBAWarnings"
'2007以下版本
sValue2 = "Level"
If sVersion >= 14 Then
sValue = sValue1
Else
sValue = sValue2
End If
With oWShell
''禁用所有宏,并发出通知
'.RegWrite sKey & "\" & sValue, 0, "REG_DWORD"
'启用所有宏
.RegWrite sKey & "\" & sValue, 1, "REG_DWORD"
''禁用所有宏,并发出通知
'.RegWrite sKey & "\" & sValue, 2, "REG_DWORD"
''禁用无数字签署的所有宏
'.RegWrite sKey & "\" & sValue, 3, "REG_DWORD"
''禁用所有宏,并且不通知
'.RegWrite sKey & "\" & sValue, 4, "REG_DWORD"
End With
MsgBox "强制启用完毕!!!"
在一个空白的记事本下输入以上代码,然后将扩展名改为.vbs即可。