Sub Kill_ThisWorkbook()
With ThisWorkbook
.Saved = True '保存工作簿
.ChangeFileAccess xlReadOnly '将工作簿文件属性设为“只读”
Kill .FullName '删除该文件
.Close False '关闭工作簿文件,并放弃所有对此工作簿的更改。
End With
End Sub
EXCEL表的自杀代码
最新推荐文章于 2020-12-14 15:55:00 发布