应用场景
文件正常查看一次后即自行销毁
知识要点
1:Workbook_BeforeClose 在文件关闭之前执行程序
2:Workbook.ChangeFileAccess 方法 更改工作簿的访问权限
3:Kill 语句 从磁盘中删除文件。
Private Sub workbook_beforeclose1(Cancel As Boolean)
ActiveWorkbook.ChangeFileAccess xlReadOnly '将文件设置为只读模式
Kill ActiveWorkbook.FullName '删除文件
Application.Quit '退出程序
End Sub
联系客服