1.本节课主要讲的是ExcelVBA基础教程之工作薄事件之Open事件，就是对涉密的文件在打开的时候加密。

2.在点击工具栏中的【开发工具】-【Visual Basic】打开对话框，在选择左侧的表格双击ThisWorkbook打开，在选择全部的代码先注销掉，在将上面一栏现在【Workbook】，后面选择【Open】。

3.在【Dimx$】下面输入sheet("绝密").Visible=0换行x=InputBox("请输入接头暗号")在换行输入If x="晚上小树林见"Then在换行Sheets（"绝密").Visible=-1。

4.在下面在输入Else，换行在输入ThisWorkbook.Close0

5.在最后在添加一行End If，在将上面的两行前面添加上空格。

6.在选择【文件】-【选项】-【信任中心】-【信任中心设置】-【隐私选项】将里面的保存时从文件属性中删除个人信息，这样在保存文件时就不会在有提醒了。

7.在将文件进行保存，在重新打开文件会出现【请输入接头暗号】的窗口，输入今晚小树林见就可以进入。

8.在点击【开发工具】-【Visual Basic】打开对话框，在里面在添加一行Sheets（"绝密").Activate。

9.在添加一行代码以后在对文件进行保存，在打开时输入密码就直接是绝密的文件，没加之前打开的上面一层的列表。

10.在选择工作薄下面一行的表格，在点击【开发文件】-【Visual Basic】打开对话框，在里面在添加一行Sheets（"查看资料").Cells（1,1).End(xIDown)(2,1).risize(1,3)=Array(thisworkbook.Name)

11.在接着上面的在后面在输入application.UserName。

12.在对文件进行保存，在选择打开的文件选中下面的空格表在选择进入代码中将查看资料修改为查看记录。

13.发现在保存打开的时候还是有问题，在点击进入代码框，在将里面的一个错误的单词修改为Resize。

14.在对文件进行重新保存，在关闭在打开输入密码在打开直接就是我们要打开的列表的表格。

15.会发现将打开的绝密的文件关闭后下面就会出现新的打开的记录。