office交流網--QQ交流群號

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

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

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

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

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

    分享
    北京十一选五基本走势