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,在将上面的两行前面添加上空格。