Hi, put this code in the ThisWorkbook module:

Private Sub Workbook_Open()
If DateValue(Now()) DateValue("29/09/2008") Then ThisWorkbook.Close
False
End Sub

Change the "29/09/2008" to whatever date you want.

The False after the ThisWorkbook.Close is to save the changes.

Hope this helps.


On 29 Sep, 14:35, Gordon wrote:
Hi...

Is it possible to code a macro so that a file won't open after a certain date?

Cheers

Gordon...