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

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

ThisWorkbook中添加事件代码：

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

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

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

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

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

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

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