Excel-VBA让文件使用一次后即自我销毁

应用场景

文件正常查看一次后即自行销毁

知识要点

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