不启用宏看不到数据（Excel代码集团）

假设工作簿中有两个工作表，数据和首页

ThisWorkbook中添加事件代码：

?

1 2 3 4 5

Private Sub Workbook_BeforeClose(Cancel  As Boolean ) Sheets("首页"). Select Sheets("数据").Visible = 2 ActiveWorkbook.Save End Sub

显示数据工作表的代码（放置于模块中）：

?

1 2 3 4

Sub Show() Sheets("数据").Visible = -1 Sheets("数据").Select End Sub

首页工作表中插入按钮，并指定宏Show

为VBE设置密码：VBE》工具》VBAProject属性》保护》查看时锁定工程》设置密码》确定

工作簿保存为xlsm格式后关闭。

再度打开如果选择不启用宏，则无法查看到数据工作表中的内容，只有启用宏以后再点击首页工作表中的按钮才能看到。