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錶格中的數據會全部刪除。衕時會徹底刪除錶格文件。