Expiration date on Macro

Borg, maybe something like this,

Private Sub Workbook_Open()
With ActiveWorkbook
If Date > DateValue("07-31-2006") Then
MsgBox "You Can Not Use This Any More"
Exit Sub
End If
MsgBox "You Can Use This"

End With

End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Borg" <[email protected]> wrote in message
news:[email protected]...
>
> Hi.
>
> Thanks, but I was looking for something that was not permanent. But, I
> will look at it for learning purposes.
>
> I just wanted a code which will not execute the rest of the macro code,
> after the expiration date. (To stop those pesky co-worker friends from
> releasing some of my beta files.) I still wanted to be able to modify
> the code to delete the expiration date later. Thanks!
>
>
> --
> Borg
> ------------------------------------------------------------------------
> Borg's Profile:
http://www.excelforum.com/member.php...o&userid=36396
> View this thread: http://www.excelforum.com/showthread...hreadid=566866
>

Thanks to both of you. Now I have two options.