昨天的文章,分享了一位剛畢業不久的老鐵在公司的經歷。大致內容如下:
她做的報告,被同事給搶走了,導致她自己不敢再用相同的報告,怕同事和領導說她抄襲老員工的,只得說自己還沒做好。結果,被領導狠狠批評了一頓。
之后,這老員工故技重施,又想搶她的報告,不過,她在報告里加上了到期自焚程序。結果這老員工在會議現場打開報告,顯示了“文件已到期,無法查看,請聯系原開發者”的字樣,并且,文件直接銷毀。
關于案例具體內容,我就這樣大致說一下,各位有興趣的話,可以自行翻看昨天的文章。
![]()
文章發出之后,有些人直接對老田進行了炮轟。至于炮轟的原因,很簡單,他們認為,文件到期自焚,這都是科幻片里面黑客的手段,現實生活中,根本不可能。并且,文章里提到的主人公還是一個剛畢業半年的小姑娘,更不可能有這技術。
老田在這里可以明確告訴大家,這手段,其實一點都不高級,也用不到什么黑客技術,簡單的工作軟件使用技能而已。別說我文章里提到的小姑娘是大學畢業,哪怕是只有九年義務教育水平,甚至九年義務沒畢業,只要你識字,并且有手,能打字,會點鼠標就能搞定。
下面,我就會把文件到期自焚程序的設置方法展示出來,讓大家都來看看,這個事情難不難。
這里老田用來演示的,是微軟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.