自杀模块Sub 工作薄自杀()
If Now >= "2020-7-16" Then '日期是实现自动删除的时间
MsgBox "哈哈，永远再见！"
With ThisWorkbook .Saved = True
.ChangeFileAccess xlReadOnly Kill
.FullName
.Close
End With
End If
End Sub
在模块中输入上述代码，然后在thisworkbook下，设置以下文件打开事件，每次打开文件时，自动判断是否到达日期，如果到期，自动删除文件： 
文件打开事件Private Sub Workbook_Open()
Call 工作薄自杀
End Sub
删除的文件不好找回，重要的文件慎用！ 关注我可学习Excel全部课程