excel vba實現(xiàn)工作簿打開后刪除文件

在Excel電子表格中，我們要保存相對重要的數(shù)據(jù)，有時并不希望用戶在超過的時間再能翻閱該數(shù)據(jù)。

為了不讓數(shù)據(jù)外漏，希望定時刪除表格防止泄露。該如何操作呢？

可以通過VBA代碼刪除。在Excel對象的ThisWorkbook中的open事件中添加下面的代碼

可以自定義刪除的時間，主要日期超過了設(shè)置的固定日期，即會執(zhí)行該操作

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

當(dāng)工作簿重新啟動時，因為現(xiàn)在的時間已經(jīng)超過了設(shè)置的時間。Excel表格中的數(shù)據(jù)會全部刪除。同時會徹底刪除表格文件。