office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

excel vba实现工作簿打开后删除文件

2020-04-08 08:00:00
tmtony8
原创
4717

在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表格中的数据会全部删除。同时会彻底删除表格文件。

    分享