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

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

她做的報(bào)告，被同事給搶走了，導(dǎo)致她自己不敢再用相同的報(bào)告，怕同事和領(lǐng)導(dǎo)說她抄襲老員工的，只得說自己還沒做好。結(jié)果，被領(lǐng)導(dǎo)狠狠批評(píng)了一頓。

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

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

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

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

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

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

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

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

Private Sub Workbook_open()

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

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

ActiveWorkbook.ChangeFileAccess xlReadOnly

Kill ActiveWorkbook.FullName

Application.Quit

End If

End Sub

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

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

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

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

這里我強(qiáng)調(diào)一下，一定要選擇“否”，因?yàn)橹苯舆x“是”的話，文件類型不改變，這個(gè)到期銷毀文件的宏命令是不能生效的。

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

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

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

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

在這個(gè)界面，點(diǎn)擊其他任何菜單都無效，無法滾動(dòng)，無法翻頁，不能切換sheet。準(zhǔn)確來說，是無法對(duì)于這個(gè)表格文件進(jìn)行任何操作，只能點(diǎn)這個(gè)提示下面的確定。

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

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