excel关闭文件后自动删除文件

前面我们讲过excel文件一段时间后自动销毁。或者在指定时间内自动删除文件。现在分享一个关闭文件后自动删除的代码 '关闭文件时执行 '文件自杀代码
PrivateSubWorkbook_BeforeClose(CancelAsBoolean)
ActiveWorkbook.ChangeFileAccessxlReadOnly '将文件设置为只读模式
KillActiveWorkbook.FullName '删除文件
Application.Quit '退出程序
EndSub
注意：代码有危险，请谨慎试用