这套教程共三册，147讲。它涵盖的内容非常广泛，也是初学者和中级之间的过渡教程。修改内容主要提供了程序源代码文件以及32位和64位代码的代码修改。未来我们会逐步为您推出。今天的内容是第21讲：抱歉，禁用宏将无法工作

第二十一讲 在EXCEL中，如果禁用VBA将无法继续工作

朋友们大家好，今天我们将继续讲解第21讲的VBA代码解决方案。本讲我们将讲解使用VBA开发的工作簿文件完成后，要求用户同时启用VBA代码打开工作簿的时间。也就是说，我们希望用户在打开工作簿时启用宏。这时，我们就可以使用“禁用宏并关闭工作簿”功能。

您还可以隐藏所有包含数据的工作表。如果用户在打开工作簿时禁用宏，则只会显示一个空白的工作表，达到强制启用宏的效果。

此处将使用应用于Worksheets 对象的Visible 属性。该属性决定对象是否可见。

语法如下：表达式.Visible

范围

表达式是必需的，并返回上述对象之一。

Visible 属性可以设置为以下常量之一。

a) xlSheetHidden，其值为0，表示该对象被隐藏，通过“格式”“工作表”“取消隐藏”菜单可以使该对象再次可见，相当于设置为False。

b) xlSheetVisible 值为-1表示使对象再次可见，相当于设置为True。

c) xlSheetVeryHidden 值为2 表示该对象是隐藏的。使对象再次可见的唯一方法是将此属性设置为True 或xlSheetVisible。

1 利用Visible属性，使禁用VBA时工作表无法有效显示

我们看下面的代码：

私人sh 作为工作表

Private Sub Workbook_BeforeClose(Cancel As Boolean) '讲座21 如何在禁用VBA 的情况下使其无法继续工作

工作表（'空白'）.Visible=True

对于ThisWorkbook.Sheets 中的每个sh

如果sh.Name '空白' 那么

sh.Visible=xlSheetVeryHidden

下一个

活动工作簿.保存

Private Sub Workbook_Open() '第21 讲如何在禁用VBA 的情况下使其无法继续工作

对于ThisWorkbook.Sheets 中的每个sh

如果sh.Name '空白' 那么

sh.Visible=xlSheetVisible

下一个

工作表（'空白'）.Visible=xlSheetVeryHidden

代码截图

2 代码的讲解及实际测试效果

代码说明：

1）代码第2行到第10行是工作簿的BeforeClose事件过程，它在工作簿关闭之前隐藏除“空白”表之外的所有工作表。

2) 代码第3行将“空白”表的Visible属性设置为True，使其可见。

3）代码第4行到第8行使用For Each.Next语句遍历工作簿中的所有工作表，并将除“空白”表之外的所有工作表的Visible属性设置为xlSheetVeryHidden以隐藏它们。

Visible属性设置为xlSheetVeryHidden后，工作表无法通过“格式”“工作表”“取消隐藏”菜单显示隐藏的工作表。

4）代码第9行使用Save方法保存对代码所在工作簿的更改，并且在关闭工作簿时不显示消息框。

5) 代码第10行到第18行是工作簿的Open事件过程。打开工作簿时，除“空白”表之外的所有工作表的Visible 属性均设置为xlSheetVisible 且取消隐藏。如果在打开工作簿时禁用宏，则除“空白”工作表外，工作簿中的其他工作表仍处于深度隐藏状态。这将具有强制用户启用宏的效果。当然，这也需要VBA项目保护的配合。

代码运行效果，禁用宏并启用VBA代码后的工作表视图：

今日内容回顾：

1 当禁用VBA代码时如何使视图仅显示“空白”页面。

2 xlSheetHidden的值是什么？有什么意义？

3.你明白本节两段代码的含义吗？

本讲内容参考程序文件：VBA代码解答修订版(1-48).xlsm

我20多年的VBA实践经验全部浓缩在以下教程中：