office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

excel vba實現工作簿打開後刪除文件

2020-04-08 08:00:00
tmtony8
原創
175

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

    分享