在Excel中强制用户启用宏，打开VBA开发的Excel表格

董辉

　　为了防止宏病毒对用户的文档产生危害，Microsoft为Office应用程序创建了一个安全模型，能够使用户选择禁用宏，以作为一个防护措施。虽然这能够在一定程度上防止宏病毒，但同时也带来了副作用，因为有很多文档中的许多功能依赖于用户已经实现的宏，如果禁用宏，那么这些功能就不可用。

　　这个问题也一直困扰着许多VBA开发人员，因为他们开发的功能发送给用户时，如果用户禁用宏或者将宏安全级别设置为高以上，就意味着用户无法使用他们的功能，特别是那些对宏一无所知的用户。因此，很多人问：有没有办法能够去掉打开带有宏的文档时出现的警告消息而直接启用宏。

　　下面是一个技巧，看了之后觉得很有意思，特辑录于此。这个技巧并不能够去掉是否关于宏的安全警告消息，但能够提示用户，如果不启用宏，那么就不能够使用该工作簿。这个提示信息是通过事先在工作簿中创建的一个默认工作表（即名为“启用宏”的工作表）来实现的。

　　

AskUserEnableMacros1.png

　　上面这个就是在Excel中强制用户启用宏，打开VBA开发的Excel表格所显示的界面，具体实在的代码如下：

1. Sub AskUserEnabledMacros()
   
2.     Dim wksInfoSheet As Worksheet
   
3.     Dim objSheet As Object
   
4. 
   
5.     On Error Resume Next
   
6. 
   
7.     '引用<启用宏>工作表并判断其是否存在
   
8.     Set wksInfoSheet = ThisWorkbook.Worksheets("启用宏")
   
9.     If wksInfoSheet Is Nothing Then
   
10.         MsgBox "不能够找到<启用宏>工作表", vbCritical
    
11.         Exit Sub
    
12.     End If
    
13. 
    
14.     '关闭屏幕更新
    
15.     Application.ScreenUpdating = False
    
16. 
    
17.     '遍历工作簿中的所有工作表并设置所有工作表可见
    
18.     For Each objSheet In ThisWorkbook.Sheets
    
19.         objSheet.Visible = xlSheetVisible
    
20.     Next objSheet
    
21. 
    
22.     '隐藏<启用宏>工作表
    
23.     wksInfoSheet.Visible = xlSheetVeryHidden
    
24. 
    
25.     '保存工作簿
    
26.     ThisWorkbook.Saved = True
    
27. 
    
28.     '恢复屏幕更新
    
29.     Application.ScreenUpdating = True
    
30. End Sub
    
31. 
    
32. '隐藏除<启用宏>工作表之外的所有工作表
    
33. Sub RunOnClose()
    
34.     Dim wksInfoSheet As Worksheet
    
35.     Dim objSheet As Object
    
36. 
    
37.     On Error Resume Next
    
38. 
    
39.     '引用<启用宏>工作表并判断其是否存在
    
40.     Set wksInfoSheet = ThisWorkbook.Worksheets("启用宏")
    
41.     If wksInfoSheet Is Nothing Then
    
42.         MsgBox "不能够找到<启用宏>工作表", vbCritical
    
43.         Exit Sub
    
44.     End If
    
45. 
    
46.     '关闭屏幕更新
    
47.     Application.ScreenUpdating = False
    
48. 
    
49.     '显示<启用宏>工作表
    
50.     wksInfoSheet.Visible = xlSheetVisible
    
51. 
    
52.     '隐藏其他工作表
    
53.     For Each objSheet In ThisWorkbook.Sheets
    
54.         If Not objSheet Is wksInfoSheet Then
    
55.             objSheet.Visible = xlSheetVeryHidden
    
56.         End If
    
57.     Next objSheet
    
58. 
    
59.     '保存工作簿
    
60.     ThisWorkbook.Save
    
61. End Sub
    
62. 
    
63. Sub auto_open()
    
64.     '当工作簿打开时运行AskUserEnabledMacros过程
    
65.     AskUserEnabledMacros
    
66. End Sub
    
67. 
    
68. Sub auto_close()
    
69.     '隐藏除<启用宏>工作表之外的所有工作表
    
70.     RunOnClose
    
71. End Sub

复制代码

　　打开该工作簿时，如果禁用宏，那么就只出现“启用宏”工作表，提示用户只有启用宏才能够使用该工作簿。如果启用宏，那么就会出现具体的工作表。

野潴

谢谢。。学习了

Richeng

哈哈，还没用到那么复杂。

浩宇之宇

         恩 是的宏的单机版是禁止启动的    讲解的很好

lizu116

谢谢楼主分享，以后会用到的

375686860

么这些功能就不可用。

　　这个问题也一直困扰着许多VBA开发人员，因为他们开发的功能发送给

偶尔露下脸

谢谢分享，以后有用

雪豹

谢谢！学习了。

舆狼/mg囲儛

怎么 找不
不到呢

じ☆星梦ve缘

我想建立一个半成品表单及先进先出、进出帐表单，有谁可以帮帮我呢