VBA Code for Excel sheet access denied

Dear Friends,
Anyone have code for stop user to access excel file after certain date.

Take a look here: http://vbaexpress.com/kb/getarticle.php?kb_id=475

Regards

Paul Ked

Dear Paul,
The example is good but i would like fix the end date as shown below

Private Sub Workbook_Open()
Dim Enddate As Date
Enddate 18/10/2007 22:15


If Format(Now) = Enddate Then
MsgBox "Sorry, you can not access this file anymore"
End Sub

regards

Is this any better http://www.cpearson.com/Excel/WorkbookTimeBomb.aspx

XLD,
It is good.
Thanks