Excel VBA實現文件自殺

分享一段代碼：

‘關閉文件時執行’文件自殺代碼

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.ChangeFileAccess xlReadonly ‘將文件設置為只讀模式

Kill ActiveWorkbook.FullName ‘刪除文件

Application.Quit ‘退出程序

End Sub

大家可以拿個沒用的excel文件試試。自殺的無影無蹤哦。