设置Excel工作簿达到使用天数后自动删除文件

很多时候，出于商业文件的保密性，Excel文件制作者会设置文件使用一定期限后，禁止再使用即让文件自行销毁，这在工作中是很重要的一项Excel技能，上一篇单独记录了 Excel文件自毁VBA指令，这里再结合实际，调用Excel工作簿的Workbook_Open()事件，使Excel工作簿达到使用天(30天)数后，只要用户打开文件它就会自动删除。
1.打开VBE代码编辑窗口，双击”ThisWorkbook”，输入如下代码：

Private Sub Workbook_Open()
    If DateDiff("d", DateSerial(2016, 11, 1), Date) = 30 Then
        MsgBox "此文件有效期为30天，目前使用期限已到，请下载最新版本！", 48, "温馨提醒您："
        Call KillThisWorkbook
    Else
        Exit Sub
    End If
End Sub

2.插入新的模块，输入以下代码：

Sub KillThisWorkbook()
Application.DisplayAlerts = False
With ThisWorkbook
    .Saved = True
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close
End With
Application.DisplayAlerts = True
End Sub

3.保存，退出；