设置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 IfEnd Sub

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

Sub KillThisWorkbook()Application.DisplayAlerts = FalseWith ThisWorkbook    .Saved = True    .ChangeFileAccess xlReadOnly    Kill .FullName    .CloseEnd WithApplication.DisplayAlerts = TrueEnd Sub

3.保存，退出；