setting expiry date for worksheet

[muffins]

Hi everyone,

i want to put an expiry date for my worksheet such that my macros will be disabled once this date is reached.
How do I disable the macros programatically?

in addition, i realised that this method has a draw back as the user may change the system date of the computer to by pass the security. Is there anyway in which i can check for the network server date instead?

many many thanks in advance.

 

[Emily]

I have one tricky suggestion provided that the system date is not changed. First of all, you need to protect your workbook, say Book1, as well as VBA project.
In ThisWorkBook of Book1 enter the following to check the expire date:

Private Sub Workbook_Open()
Const IssueDate As Date = #7/31/2002#
If DateDiff("d", IssueDate, Date) > 90 Then
MsgBox "Permission Denied"
Application.Quit
End If
End Sub

Secondly, another workbook, say Book2, is used to call Book1.
Also in ThisWorkBook of Book2 enter the following

Private Sub Workbook_Open()
Workbooks.Open Filename:="D:PathBook1.xls", Password:="whateveryoulike"
Windows(1).Close
End Sub