如何通过vba启用宏2
发布网友
发布时间：2023-10-24 03:52
共2个回答
热心网友
时间：2024-12-04 13:50
1，打开excel2010
2，在工具栏空白处，右击：自定义功能区---选择添加 开发工具 选项 -- 确定
3，点开 开发工具 菜单项，点击 宏安全
4，选中 ActiveX 设置， 选中右边的 无*启用...... 选项， 取消 选中 安全模式
5，选中 宏设置 菜单， 选中右边 启用所有宏 选项， 选中 开发人员宏设置 选项--确定
6，将excel文档 另存为： excel启用宏的工作薄 格式 。关闭文档
7，打开该文档，可以录制宏，并且执行宏
8，打开开发工具，插入一个按钮，
9,右击添加的 按钮，选择 指定宏 菜单，在弹出框中输入 宏名 ，点击 新建 按钮
10，确定后，就可以进入后台，编写vba代码了。
例如在方法里写： MsgBox ("helloworld")
点击按钮后，就弹出一个消息：hello world
11，office2010 启用宏和使用VBA介绍完毕。
备注：
换行符 用 vbCrLf
变量赋值内容包含引号，用"" 代替（两个双引号）。如："h" 换成 ""h""
行列都是从1开始的，如 CELLS(1,1)
注意要选择ACTIVE控件，选择form控件使用不是太方便
热心网友
时间：2024-12-04 13:51
同如何用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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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即可。
