File Expiration

Hello,

The code below will prevent an Excel workbook from being opened beyond the date you choose (change 2/27/2012 to the date of your choice).

CAUTION - This is just a starting point, you will need to figure out a way to re-open the file beyond the date as it will lock you out as well - maybe a version without the code. Also, what you put in the "THEN" block may include code to inactivate any active content (controls e.t.c.) in your file.

Cheers.

Private Sub Workbook_Open()

If Now > CDate(#2/27/2012#) Then

MsgBox "File has expired and will now be closed"

ActiveWorkbook.Close savechanges:=False

Else

End If

End Sub