自杀

Excel VBA实现文件自杀
分享一段代码: ‘关闭文件时执行’文件自杀代码 Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.ChangeFileAccess xlReadOnly ‘将文件设置为只读模式 Kill ActiveWorkbook.FullName ‘删除文件 Application.Quit ‘退出程序 End Sub 大家可以拿个没用的excel文件试试。自杀的无影无踪哦。
分享一段代码: ‘关闭文件时执行’文件自杀代码 Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.ChangeFileAccess xlReadOnly ‘将文件设置为只读模式 Kill ActiveWorkbook.FullName ‘删除文件 Application.Quit ‘退出程序 End Sub 大家可以拿个没用的excel文件试试。自杀的无影无踪哦。