浙江
昨天的文章，分享了一位剛畢業不久的老鐵在公司的經歷。大致內容如下：
她做的報告，被同事給搶走了，導致她自己不敢再用相同的報告，怕同事和領導說她抄襲老員工的，只得說自己還沒做好。結果，被領導狠狠批評了一頓。
之后，這老員工故技重施，又想搶她的報告，不過，她在報告里加上了到期自焚程序。結果這老員工在會議現場打開報告，顯示了“文件已到期，無法查看，請聯系原開發者”的字樣，并且，文件直接銷毀。
關于案例具體內容，我就這樣大致說一下，各位有興趣的話，可以自行翻看昨天的文章。
文章發出之后，有些人直接對老田進行了炮轟。至于炮轟的原因，很簡單，他們認為，文件到期自焚，這都是科幻片里面黑客的手段，現實生活中，根本不可能。并且，文章里提到的主人公還是一個剛畢業半年的小姑娘，更不可能有這技術。
老田在這里可以明確告訴大家，這手段，其實一點都不高級，也用不到什么黑客技術，簡單的工作軟件使用技能而已。別說我文章里提到的小姑娘是大學畢業，哪怕是只有九年義務教育水平，甚至九年義務沒畢業，只要你識字，并且有手，能打字，會點鼠標就能搞定。
下面，我就會把文件到期自焚程序的設置方法展示出來，讓大家都來看看，這個事情難不難。
這里老田用來演示的，是微軟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。準確來說，是無法對于這個表格文件進行任何操作，只能點這個提示下面的確定。
在點完確定之后，文件會關閉，并且直接被刪除。最主要的，是徹底刪除，回收站都找不到的那種。
教程也做完了，那么，我想回頭來問問那些炮轟老田的人，現在你還覺得這手段高級嗎？是科幻片里黑客的技能嗎？正常人能操作嗎？能實現嗎？
特別聲明：以上內容(如有圖片或視頻亦包括在內)為自媒體平臺“網易號”用戶上傳并發布，本平臺僅提供信息存儲服務。
Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.
