给文件加了到期自焚功能，有人说这都是黑客干的，其实操作很简单

昨天的文章，分享了一位刚毕业不久的老铁在公司的经历。大致内容如下：

她做的报告，被同事给抢走了，导致她自己不敢再用相同的报告，怕同事和领导说她抄袭老员工的，只得说自己还没做好。结果，被领导狠狠批评了一顿。

之后，这老员工故技重施，又想抢她的报告，不过，她在报告里加上了到期自焚程序。结果这老员工在会议现场打开报告，显示了“文件已到期，无法查看，请联系原开发者”的字样，并且，文件直接销毁。

关于案例具体内容，我就这样大致说一下，各位有兴趣的话，可以自行翻看昨天的文章。

文章发出之后，有些人直接对老田进行了炮轰。至于炮轰的原因，很简单，他们认为，文件到期自焚，这都是科幻片里面黑客的手段，现实生活中，根本不可能。并且，文章里提到的主人公还是一个刚毕业半年的小姑娘，更不可能有这技术。

老田在这里可以明确告诉大家，这手段，其实一点都不高级，也用不到什么黑客技术，简单的工作软件使用技能而已。别说我文章里提到的小姑娘是大学毕业，哪怕是只有九年义务教育水平，甚至九年义务没毕业，只要你识字，并且有手，能打字，会点鼠标就能搞定。

下面，我就会把文件到期自焚程序的设置方法展示出来，让大家都来看看，这个事情难不难。

这里老田用来演示的，是微软office办公软件里的excel文件，老田用的，是office2013版本。2016、2021等更高的版本，也是有相关功能的，大家到时候可以自己查看。

第一步，打开文件，依次选择：开发工具→Visual Basic（老田也懒得弄表格了，随便找了一张之前的表格演示一下）

第二步，在弹出的Visual Basic界面，双击This Workbook，之后，在打开的空白界面输入如下代码：

Private Sub Workbook_open()

If Date >= "2026/2/1" Then

MsgBox "文件已到期，无法查看，请联系原开发者"

ActiveWorkbook.ChangeFileAccess xlReadOnly

Kill ActiveWorkbook.FullName

Application.Quit

End If

End Sub

这代码，有两个地方我稍微说明一下：

1.第二行里的日期，需要根据实际进行更改，这个日期，就是文件过期的时间。2026/2/1是我用来演示的日期，意思是2026年2月1日开始，对这个文件进行删除操作，使其失效；

2.第三行里的“文件已到期，无法查看，请联系原开发者"字样，也可以随意更改，你想让输出界面输出什么，就改成什么。

第三步，保存文件，依次点击保存按钮，并在弹出的对话框里选择“否”

这里我强调一下，一定要选择“否”，因为直接选“是”的话，文件类型不改变，这个到期销毁文件的宏命令是不能生效的。

第四步，将文件类型更改为启用宏的工作簿，之后保存。

至此，这个带有到期自焚功能的excel文件就设置好了。

下面看一下效果，打开之后就是这样：

由于老田用来演示的表格，里面内容比较少，所以，都能看到。但是，如果是真正的报告之类，比较大的文件，就没办法显示全了。

在这个界面，点击其他任何菜单都无效，无法滚动，无法翻页，不能切换sheet。准确来说，是无法对于这个表格文件进行任何操作，只能点这个提示下面的确定。

在点完确定之后，文件会关闭，并且直接被删除。最主要的，是彻底删除，回收站都找不到的那种。

教程也做完了，那么，我想回头来问问那些炮轰老田的人，现在你还觉得这手段高级吗？是科幻片里黑客的技能吗？正常人能操作吗？能实现吗？