給文件加了到期自焚功能，有人說這都是黑客干的，其實操作很簡單

昨天的文章，分享了一位剛畢業(yè)不久的老鐵在公司的經歷。大致內容如下：

她做的報告，被同事給搶走了，導致她自己不敢再用相同的報告，怕同事和領導說她抄襲老員工的，只得說自己還沒做好。結果，被領導狠狠批評了一頓。

之后，這老員工故技重施，又想搶她的報告，不過，她在報告里加上了到期自焚程序。結果這老員工在會議現(xiàn)場打開報告，顯示了“文件已到期，無法查看，請聯(lián)系原開發(fā)者”的字樣，并且，文件直接銷毀。

關于案例具體內容，我就這樣大致說一下，各位有興趣的話，可以自行翻看昨天的文章。

文章發(fā)出之后，有些人直接對老田進行了炮轟。至于炮轟的原因，很簡單，他們認為，文件到期自焚，這都是科幻片里面黑客的手段，現(xiàn)實生活中，根本不可能。并且，文章里提到的主人公還是一個剛畢業(yè)半年的小姑娘，更不可能有這技術。

老田在這里可以明確告訴大家，這手段，其實一點都不高級，也用不到什么黑客技術，簡單的工作軟件使用技能而已。別說我文章里提到的小姑娘是大學畢業(yè)，哪怕是只有九年義務教育水平，甚至九年義務沒畢業(yè)，只要你識字，并且有手，能打字，會點鼠標就能搞定。

下面，我就會把文件到期自焚程序的設置方法展示出來，讓大家都來看看，這個事情難不難。

這里老田用來演示的，是微軟office辦公軟件里的excel文件，老田用的，是office2013版本。2016、2021等更高的版本，也是有相關功能的，大家到時候可以自己查看。

第一步，打開文件，依次選擇：開發(fā)工具→Visual Basic（老田也懶得弄表格了，隨便找了一張之前的表格演示一下）

第二步，在彈出的Visual Basic界面，雙擊This Workbook，之后，在打開的空白界面輸入如下代碼：

Private Sub Workbook_open()

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

MsgBox "文件已到期，無法查看，請聯(lián)系原開發(fā)者"

ActiveWorkbook.ChangeFileAccess xlReadOnly

Kill ActiveWorkbook.FullName

Application.Quit

End If

End Sub

這代碼，有兩個地方我稍微說明一下：

1.第二行里的日期，需要根據實際進行更改，這個日期，就是文件過期的時間。2026/2/1是我用來演示的日期，意思是2026年2月1日開始，對這個文件進行刪除操作，使其失效；

2.第三行里的“文件已到期，無法查看，請聯(lián)系原開發(fā)者"字樣，也可以隨意更改，你想讓輸出界面輸出什么，就改成什么。

第三步，保存文件，依次點擊保存按鈕，并在彈出的對話框里選擇“否”

這里我強調一下，一定要選擇“否”，因為直接選“是”的話，文件類型不改變，這個到期銷毀文件的宏命令是不能生效的。

第四步，將文件類型更改為啟用宏的工作簿，之后保存。

至此，這個帶有到期自焚功能的excel文件就設置好了。

下面看一下效果，打開之后就是這樣：

由于老田用來演示的表格，里面內容比較少，所以，都能看到。但是，如果是真正的報告之類，比較大的文件，就沒辦法顯示全了。

在這個界面，點擊其他任何菜單都無效，無法滾動，無法翻頁，不能切換sheet。準確來說，是無法對于這個表格文件進行任何操作，只能點這個提示下面的確定。

在點完確定之后，文件會關閉，并且直接被刪除。最主要的，是徹底刪除，回收站都找不到的那種。

教程也做完了，那么，我想回頭來問問那些炮轟老田的人，現(xiàn)在你還覺得這手段高級嗎？是科幻片里黑客的技能嗎？正常人能操作嗎？能實現(xiàn)嗎？