如何把<em>office</em> excel文件设定个有效期-office 使用期限到期,不

workbook_open()
这个内置的函数会在打开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

可以使用度其他第三方程序进行更多的限制。
在百VBA，ThisWorkBook代码框输入：
Private Sub Workbook_Open()
Dim AD As Date
AD = Sheets(1).Range("A1") 'Sheet1，A1就是你需要提醒度的有效期单元格
If AD = DateValue(Now) Then
MsgBox ("Time Out!")
End If
End Sub
一打开工作簿自动检查，只运专行一属次，到期就跳出警告。

Excel文件无法自动删除的，但是可以用VBA设定一个时间，到期后自动销毁，zhidao比如填充成需要的内容版。

　　可以使用以下代码：
Private Sub Workbook_Open()
If Date > Sheet1.[a1] Then '设定一个时间，到期时间，date是返回当前日期。
Range("a1:h100").Select '选中需要销毁的单元格范围
Selection.FormulaR1C1 = "到期" '用“到期”来填充。
ThisWorkbook.Close True
End If
End Sub

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