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

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8

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

Sub KillThisWorkbook()
Application.DisplayAlerts = False
With ThisWorkbook
    .Saved = True
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close
End With
Application.DisplayAlerts = True
End Sub
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10

3.保存，退出；

赞 (0)

相关推荐