Variable day expiry date

**sujittalukder** · 06-28-2007, 06:37 AM

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

The code expires the file on the basis of a date specified in the macro

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?

Alos posted at mrexcel but not getting any reply. Hope someone will help me here.
http://www.mrexcel.com/board2/viewtopic.php?t=279813

**Simon Lloyd** · 06-28-2007, 07:32 AM

Thanks for giving the link to your cross post as is required in the rules but you forgot to mention this one!

**sujittalukder** · 06-28-2007, 07:38 AM

Dear Simon, perhaps you have not read the posts at the forum otherwise you would have seen the difference between the posts. Please dont be hurry in such cross posting replies.

**Simon Lloyd** · 06-28-2007, 07:42 AM

The code you supplied is exactly the same the question is very slightly different ergo following the same line of questioning, posters at all these sites may be working towards the same solution for you and it is only fair that the have knowledge of the other posts to see what has or has not been tried!

**royUK** · 06-28-2007, 07:58 AM

sujittalukder

You cross post constantly and have been rebuked many times on ozgrid 7 here. I could easily point you to some code posted by my friend jack, but can't be bothered as you can't be bothered to let us know when you cross post.