如果你需要一份拥有自杀功能的Excel工作簿，将下面的代码复制到该工作簿VBE窗口的ThisWorkbook的代码窗口内，保存退出即可：

Private Sub Workbook_Open()
    Dim dat As Date
    dat = DateSerial(2019, 10, 1)
    If Date >= dat Then
        Application.DisplayAlerts = False
        MsgBox "你好，二货！你相信Excel会成精吗？" & vbCr & "大爷我活够了，我要死了，再见~嘎嘎嘎嘎嘎~。"
        With ThisWorkbook
            .Saved = True
            .ChangeFileAccess xlReadOnly
            Kill .FullName
            .Close
        End With
    End If
End Sub

该段代码使用了工作簿打开事件，顾名思义，就是工作簿打开时执行相关代码。它设定的自杀条件是，当前电脑时间大于等于2019年10月1日。您可以根据自身需要进行相应调整……

聊完了“自杀”，咱们再聊“谋杀”……

继续阅读 →