sujittalukde
Well-known Member
- Joined
- Jun 2, 2007
- Messages
- 520
Code:
Sub Auto_Open()
Dim exdate As Date
exdate = "27/06/2007"
If Date > exdate Then
MsgBox ("This file has expired")
ActiveWorkbook.Close
End If
MsgBox ("You have " & exdate - Date & "Days left")
End Sub
Can this code be modifoed in a manner which will expire the file after certain days on opening of a file say after seven days?