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

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

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

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

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