在工作中有些重要文件给到某一些人，但担心泄密，但很多时候又不得不给，苦于没有手段，就硬着头皮给了；文件保密工作想做好需要好手段，这里就有一个简单易学的手段，让你能成为像特工一样的存在。
下面是一份机密文件及文件中的机密内容，现在我准备做一个文件打开后，阅读完文件，一旦关闭文件就将文件删除，具体是阅读几次我们可以自己设定，我们暂且设定为3次吧，防止打开过程中出现故障，阅读的人还没看呢就给删除了。
第一步我们需要记录下文档打开的次数，通过这个记录来确定文件第几次被打开，我们需要用到自定义文档的属性，打开-文件-信息-属性-高级属性-自定义，在名称输入opentimes(可以按自己的喜欢的名字命名），类型选数字，取值设为0，即当前打开次数为0。
接下来在Excel中按ALT F11打开VBA编程界面，我们输入如下代码：
接下来我们点击保存就完成这个操作了，这个代码大家是可以直接复制使用的。。
简单介绍下代码含义：
Private Sub Workbook_Open() '这个是打开文件簿就会触发以下动作，文件一定要在Thisworkbook下操作，不然不起作用
Dim opentimes As Integer '定义打开次数为整数型
opentimes=ThisWorkbook.CustomDocumentProperties("opentimes")._Value 1 '给opentimes赋值，打开一次增加1
If opentimes > 3 Then
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
Application.Quit
'如果打开次数大于3，文件簿格式设为只读文件，然后删掉
Else
ThisWorkbook.CustomDocumentProperties("opentimes").Value = opentimes
ThisWorkbook.Save
'如果小于等于3，把打开次数更新，然后文件进行保存，这里不会删除文件
End If
End Sub
是不是很厉害呢，大家可以试试看》
喜欢我的文章欢迎关注我的*跟我学EXCEL图表
