如何把office excel文件设定个有效期，过期文件自动作废？？
发布网友
发布时间：2022-04-22 10:39
共1个回答
热心网友
时间：2023-11-01 18:50
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
可以使用其他第三方程序进行更多的*。
