Question

如何通过vba启用宏

Answer 1

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控件使用不是太方便

Answer 2

在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

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