很多时候,出于商业文件的保密性,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天,目前使用期限已到,请下载最新版本ÿ