excel如何设置到期消除工作表所有内容

如：一份有多数据和公式的工作表中，我想设置到某日期后，该工作表里面所有内容（含公式）全部消除，请问怎样写VB之类的？

Sub 清除()
If Date + Time > "2012-12-10 10:00" Then
Sheet1.Select
Cells.Select
Selection.Clear
End If

End Sub

解释： 当前时间在2012-12-10 10:00以后的话，sheet1里面的所有内容会清空。

时间你可以随便设定，同样可以通过窗口控件输入时间来定义。或者在打开文件时自动执行。

要想设置自动清除内容，得用vba来实现了。具体代码得根据你的表格设计来处理。

如C0708005所说,将代码添到OPEN 事件中,但宏有个问题是不同的电脑设置安全性不一致,在别的电脑上由于设置问题,可能宏根本就不会执行,就没意义了.