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

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

爲(wèi)瞭不讓數(shù)據(jù)外漏，希望定時(shí)刪除錶格防止洩露。該如何操作呢？

可以通過VBA代碼刪除。在Excel對(duì)象的ThisWorkbook中的open事件中添加下麵的代碼

可以自定義刪除的時(shí)間，主要日期超過瞭設(shè)置的固定日期，卽會(huì)執(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)工作簿重新啟動(dòng)時(shí)，因爲(wèi)現(xiàn)在的時(shí)間已經(jīng)超過瞭設(shè)置的時(shí)間。Excel錶格中的數(shù)據(jù)會(huì)全部刪除。衕時(shí)會(huì)徹底刪除錶格文件。