打开Excel工作表时自动运行宏

Excel工作薄中设计一个宏“宏AB”，请给写段代码，即一打开这个工作薄，即自动运行这个宏。宏的内容是：如果日期>=2009-12-25，即自动把这个工作薄中所有工作表中的公式都删除，但单元格中的其它内容保留。要求是过了2009-12-25那天打开都自动执行。因为不可能正好是12-25日打开。

这个工作薄的名称是“报表”。另注：本人水平有限，只能向大家请求帮助， 所以没分了，不能给回答者分，还请凉解。

大概可以这样
Private Sub Workbook_Open()
If Date >= #12/25/2009# Then
For i = 1 To Sheets.Count
Sheets(i).Cells.Copy
Sheets(i).Cells.PasteSpecial xlPasteValues
Sheets(i).Range(a65536).Clear
Next i
End If
End Sub
但，如果某台电脑的EXCEL设置是禁止运行宏，你还是白搭的。。。。。

如果你想打开vba就自动运行这个代码的话 sub auto_open() application.ontime now + timevalue("00:05:00"), "按钮68_click" ' ' 按钮68_click 宏 ' '     activeworkbook.refreshall     activeworkbook.refreshall     activeworkbook.refreshall     activeworkbook.save end sub 或者 sub auto_open() call 按钮68_click end sub