前面我们讲过excel文件一段时间后自动销毁。或者在指定时间内自动删除文件。

现在分享一个关闭文件后自动删除的代码

' 关闭文件时执行'文件自杀代码 Private Sub Workbook_BeforeClose(Cancel As Boolean)     ActiveWorkbook.ChangeFileAccess xlReadOnly '将文件设置为只读模式     Kill ActiveWorkbook.FullName '删除文件     Application.Quit '退出程序 End Sub

注意：代码有危险，请谨慎试用