Excel-教程-技巧-培训视频
Excel中交流网 联系方式
QQ:18449932
网 址:www.excel-cn.com
前面我们讲过excel文件一段时间后自动销毁。或者在指定时间内自动删除文件。
现在分享一个关闭文件后自动删除的代码
' 关闭文件时执行'文件自杀代码 Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.ChangeFileAccess xlReadOnly '将文件设置为只读模式 Kill ActiveWorkbook.FullName '删除文件 Application.Quit '退出程序 End Sub
注意:代码有危险,请谨慎试用