如何使指定的EXCEL文件在设定的时间内自动删除

来源：百度知道 编辑：UC知道 时间：2024/06/03 14:00:57
比如说今天是5月14日，我想让指定的EXCEL文件在5月18日自动删除，能不能实现，借助其他软件也可，请教各位老师了，在线急等！
这段代码贴到哪里去？
还有 你代码里只有5月14 没有5月18哦
我是菜鸟 呵呵 还得您解释下 我再加50分

把这段代码贴进去.

Private Sub Workbook_Open()
If Now() <= #5/14/2009# Then '>=
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End If
End Sub

可以这样实现：
先依次“工具－宏－Visual Basic编辑器”，打开VBA窗口，点击左边窗口，展开目录树，双击“ThisWorkBook”，打开代码窗口，把下面的代码复制进去：
Private Sub Workbook_Open()
Dim 终止 As Date
终止 = Sheet1.Cells(1, 1) '保存要自动删除的日期
If Now() >= 终止 Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End If
End Sub
保存，回到EXCEL窗口，以后只要把你要删除的时间日期写在sheet1工作表中的第一行第一列单元格（日期格式一定要对），保存退出，以后到了要删除日期（比如：2009年5月18日），打开时就会自动删除该文件。
你还可以把sheet1工作表中的第一行第一列单元格保护起来（设定该单元格为锁定，保护起工作表），只有知道密码才能修改。
注：前提是要把宏的安全性调到低，即：“工具－宏－安全性”，把安全级别调至低。