超出指定日期即自動關閉excel檔，檔內資料不能被取用及看不到

在程式中設定一個指定日期，當開啟檔案之後, 程式自動對比設定日期與現時日期，如果超過指定的日期, 程式自動關閉檔案, 檔案中的資料不能被取用及打開。

註：此程式一定要放在this workbook中。

Private Sub Workbook_Open()
If Date > "2011/9/8" Then ActiveWindow.Close  '假如日期超過 2011年9月8日 即直接關閉檔案
If Date > "08/09/2011" Then ActiveWindow.Close  '假如日期超過2011年 9月8日 即直接關閉檔案
End Sub