【原】带你做一个EXCEL重要机密文件阅后即焚的特工，一点都不难

在工作中有些重要文件给到某一些人，但担心泄密，但很多时候又不得不给，苦于没有手段，就硬着头皮给了；文件保密工作想做好需要好手段，这里就有一个简单易学的手段，让你能成为像特工一样的存在。

下面是一份机密文件及文件中的机密内容，现在我准备做一个文件打开后，阅读完文件，一旦关闭文件就将文件删除，具体是阅读几次我们可以自己设定，我们暂且设定为3次吧，防止打开过程中出现故障，阅读的人还没看呢就给删除了。

带你做一个EXCEL重要机密文件阅后即焚的特工，一点都不难

第一步我们需要记录下文档打开的次数，通过这个记录来确定文件第几次被打开，我们需要用到自定义文档的属性，打开-文件-信息-属性-高级属性-自定义，在名称输入opentimes(可以按自己的喜欢的名字命名），类型选数字，取值设为0，即当前打开次数为0。

带你做一个EXCEL重要机密文件阅后即焚的特工，一点都不难

接下来在Excel中按ALT+F11打开VBA编程界面，我们输入如下代码：

带你做一个EXCEL重要机密文件阅后即焚的特工，一点都不难

接下来我们点击保存就完成这个操作了，这个代码大家是可以直接复制使用的。。

简单介绍下代码含义：

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

是不是很厉害呢，大家可以试试看》