2022-06-08 Excel文件到期自动销毁的VBA程序

与word文档不同的是，本次编写的VBA代码会将整个Excel文件删除。

前提：必须是一个启用宏的excel文件，后缀名为.xlsm

注意：将代码输入窗口上面的2个参数改为“Workbook”，“open”

左侧"VBA project"窗口中选择为“This workbook”

想让用户在哪一天打开文档，自动销毁，代码中的日期就设置为几月几日。

打开VBA编辑器，写入代码：

1 Private Sub Workbook_open()
2 If Date >= "2022/6/8" Then 
3     MsgBox "自毁程序已启动，禁止查看文件"
4     ActiveWorkbook.ChangeFileAccess xlReadOnly
5     Kill ActiveWorkbook.FullName
6     Application.Quit
7     End If
8 End Sub

写入后点击保存，然后退出。

当我们再次打开excel 文件时，文件就会自动销毁。

如果不想要任何提示信息可以把以上代码的第三行删除。

为了防止我们写的代码被改，我们可以加入密码：

在VBA-project工程窗口中，我们左键选中我们的对象“This workbook”,然后右键在“project属性”中去设置VBA代码加密保护。

对以上代码进行简化：

1 Private Sub Workbook_open()
2     If Date >= "2022/6/8" Then
3         With ThisWorkbook
4         .ChangeFileAccess xlReadOnly
5         Kill.FullName
6         .Quit
7        End With
8     End If
9 End Sub