excel表格的有效期怎么设置

1.EXCEL使用有效期

其实很简单，注意，使用以下代码时，请用没有重要数据的表试验，否则重要内容会被删除首先，在A1中输入=2010-1-1然后，在VB窗口中的thisworkbook中输入代码Private Sub Workbook_Open()Run "作废"End Sub然后插入模块，在模块中输入Sub 作废（）If Cells(1, 1) >= "2010-1-1" Then Range("B1:G100").Select Selection.FormulaR1C1 = "到期"End IfEnd Sub。

2.excel中,输入信息,有一栏是有效期,如何设置在有效期届满时,打

在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

一打开工作簿自动检查，只运行一次，到期就跳出警告。

3.如何设置EXCEL的有效期

可以做到： 象想飞的小鱼说的那样可以用VBA宏实现，但是有一个问题，如果使用都选择禁用宏怎么办？ 所以就得用另外一种办法，再利用一个Excel文件，宏放在新的Excel文件中。

用这个新Excel文件打开你需要保护的文件。如果不执行宏是无法打开原文件的。

到时间可以把原文件删除掉。 如果想直接打开原文件，则需要输入打开密码。

没有密码还是打不开。 还有就是，如果他把系统时间改了也没法根据时间来“自杀”了。

如果使用者那上网的话，可以从internet上读当前时间进行处理。 如果你想这样处理请给我留言。