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

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

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

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

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

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

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

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

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

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

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

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

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

对以上代码进行简化：

 

Private Sub Workbook_open()
    If Date >= "2022/6/8" Then
        With ThisWorkbook
        .ChangeFileAccess xlReadOnly
        Kill.FullName
        .Quit
       End With
    End If
End Sub