当前位置: 主页 > Office办公 > Excel专区 > Excel函数 > Excel VBA实现文件自杀

Excel VBA实现文件自杀

  • 2022-09-27
  • 来源/作者: Wps Office教程网/ 菜鸟图库
  • 154 次浏览

分享一段代码:

‘关闭文件时执行’文件自杀代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)

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

Kill ActiveWorkbook.FullName ‘删除文件

Application.Quit ‘退出程序

End Sub

大家可以拿个没用的excel文件试试。自杀的无影无踪哦。