EXCEL表的自杀代码

Sub Kill_ThisWorkbook()
With ThisWorkbook
        .Saved = True       '保存工作簿
        .ChangeFileAccess xlReadOnly    '将工作簿文件属性设为“只读”
        Kill .FullName      '删除该文件
        .Close False        '关闭工作簿文件，并放弃所有对此工作簿的更改。
End With

End Sub