time limited excel file

[Mad Moose]

Hi All
An old thread has come to my attention (Link below) which enables you to close a project after an elapsed time


http://www.excelforum.com/excel-gene...xcel-file.html

The code (shamlessly taken from the post ) is below

Private Sub Workbook_Open()
If Date > DateSerial(2013, 1, 10) Then
If InputBox("Please enter code ") = "123" Then
Exit Sub
Else
MsgBox "The time limit has passed. This workbook will now close."
ActiveWorkbook.Close
End If

End If

End Sub

advancing on from this is there a way of getting a message box to appear say 7 days before the termination date

regards Moose

[LJMetzger]

Hi Mad Moose,

See the attached file which includes the following Macro in the ThisWorkbook module:

Please Login or Register  to view this content.

However, this creates a problem if you want to access the file after it expires. If you put the following Macros in your personal workbook, you should be able to access the file by:
a. Opening Excel with no file.
b. Run Macro DisableMacros().
c. You should now be able to open the file.
d. Run Macro EnableMacros(). Now the file will behave as expected.

Please Login or Register  to view this content.

Lewis