excel vba实现工作簿打开后删除文件

在Excel电子表格中，我们要保存相对重要的数据，有时并不希望用户在超过的时间再能翻阅该数据。

为了不让数据外漏，希望定时删除表格防止泄露。该如何操作呢？

可以通过VBA代码删除。在Excel对象的ThisWorkbook中的open事件中添加下面的代码

可以自定义删除的时间，主要日期超过了设置的固定日期，即会执行该操作

Private Sub Workbook_Open()
If Now() >= #5/4/2020# Then
  ActiveWorkbook.ChangeFileAccess xlReadOnly
  Kill ActiveWorkbook.FullName
  Application.Quit
End If
End Sub

当工作簿重新启动时，因为现在的时间已经超过了设置的时间。Excel表格中的数据会全部删除。同时会彻底删除表格文件。