如何把office excel文件设定个有效期

Question

如何把office excel文件设定个有效期,过期文件自动作废，未到有效期不提示。
我是菜鸟，需要详细点的，谢谢。

Answer 1

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

可以使用其他第三方程序进行更多的限制。