【Excel VBA实现文件自杀】分享一段代码：
‘关闭文件时执行’文件自杀代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.ChangeFileAccess xlReadOnly ‘将文件设置为只读模式
Kill ActiveWorkbook.FullName ‘删除文件
Application.Quit ‘退出程序
End Sub
大家可以拿个没用的excel文件试试 。自杀的无影无踪哦 。
推荐阅读
- Excel vba注释符号和注释方法介绍
- Excel vba实现字母全部转小写
- Excel VBA代码：批量插入指定目录下指定类型所有图片
- Excel打印工作簿的操作和方法
- Excel双面打印的技巧
- 怎么改变Excel鼠标指针形状
- 怎么隐藏Excel格式工具栏
- 怎么查询Excel的版本号
- Excel最近工作报表里用的编程代码
- 怎么使Excel事件无效