新建一个Excel工作簿,按Ctrl+F11打开Excel VBE代码编辑窗口,把以下代码指令放到ThisWorkbook,只要一运行就会毁掉当前工作簿,需要做好备份:
Sub kills()
Application.DisplayAlerts = False
With ThisWorkbook '定位到ThisWorkbook
.Saved = True '关闭保存时
.ChangeFileAccess xlReadOnly '将文件设为只读
Kill .FullName '毁掉文件
.Close
End With
Application.DisplayAlerts = True
End Sub
注意Kill与.FullName之间需留一空格。