VBA实现文件自杀

'关闭文件时执行'文件自杀代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.ChangeFileAccess xlReadOnly '将文件设置为只读模式

Kill ActiveWorkbook.FullName '删除文件

Application.Quit '退出程序

End Sub