提供一个实现自杀功能的XLS文件，源代码公开

提供一个实现自杀功能的XLS文件，源代码公开

Option Explicit
Public Sub Auto_Open() Dim KillBook As Object Set KillBook = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Temporary:=True, Type:=msoControlPopup) KillBook.Caption = "自杀一号" KillBook.OnAction = "killMe" Call KillMeEnd Sub
Public Sub KillMe() Dim Yn As String Dim Bookpath As String Yn = MsgBox(ThisWorkbook.Name & " 问：" & vbCrLf & vbCrLf & "确定要自杀吗?", vbYesNo + vbQuestion) If Yn = vbYes Then MsgBox "再见了....哭....", vbInformation Application.DisplayAlerts = False ThisWorkbook.ChangeFileAccess xlReadOnly Kill ThisWorkbook.FullName ThisWorkbook.Close False Else MsgBox "嘻嘻，我知道你舍不得我~~~", vbInformation End IfEnd Sub