杭州交通信息网长城女子医院:如何把office excel文件设定个有效期，过期文件自动作废？？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 03:18:25
如何把office excel文件设定个有效期，过期文件自动作废？？就是到时候文件自动没了？
Excel文件无法自动删除的，但是可以用VBA设定一个时间，到期后自动销毁，比如填充成需要的内容。
可以使用以下代码：
Private Sub Workbook_Open()
If Date > Sheet1.[a1] Then '设定一个时间，到期时间，date是返回当前日期。
Range("a1:h100").Select '选中需要销毁的单元格范围
Selection.FormulaR1C1 = "到期" '用“到期”来填充。
ThisWorkbook.Close True
End If
End Sub
可以使用其他第三方程序进行更多的限制。
没听说过有这个功能
你可以设一个宏，在文件打开的过程中判定当前时间和有效期的大小，如果判定过期的话，就自动删除有效信息
但是有个难点，就是如何在对方禁用宏的时候实现，要么插入一些病毒代码，绕过宏的安全检查，呵呵
有这样的功能？没听说过，我也关注一下，看看其他高手的高见。