如何用vba强制启用所有宏?

在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代码启用所有宏或者禁用所有宏:

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软件之外强制启用宏:

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即可。

       

发表评论