Working with vba expiration date. Need to rescue my workbook if possible!

[pedie]

Hi!
In one of the workbook, i use a code like this...when it reaches expiry date it gvies pop up...& then closes it...so there is no way (as for me I dont know a way) to stop it from closing as u all know how fast the macro is....I was trying to re-open and change the setting but it does not allow me to do anything now as it has expired. Is there a way i can make changes to this macro from another code or something???


Please advice if you've any idea....!!!

Sub Auto_Open()
    Dim exdate As Date
    exdate = "7/30/2010"
    If Date > exdate Then
        MsgBox ("You have reached end of your trial period")
        ActiveWorkbook.Close
    End If 
    MsgBox ("You have " & exdate - Date & "Days left")
End Sub

 

[Smitty]

You can hold down the Shift key when you open the workbook to halt code execution. Or disable macros, then open the WB.

Also note that you can avoid this in the future by putting a user name test in the code - if the code sees that it's you it'll exit, otherwise execute.

HTH,

 

[PA HS Teacher]

Open another workbook, or start a new one.

Set the Security to High.

Open the workbook in question, and change the date as necessary. Save and close the file.

Lower the security back to its previous setting.

 

[pedie]

Smitty, hi!
thanks for advice...i'll give it a try..not sure about the user thing..but if you could design me a sample code or something would be great....!

PA HS Teacher, thanks for inputting..do you mean like turning of the macro so that it wont do anything??? and then i can open it as normal book???

 

[pedie]

Wow...disabling all macros did the job!!!!

Thanks guys..i think i'll nto trouble you guys more then I should...


Good night!

 

[russell11875]

You can hold down the Shift key when you open the workbook to halt code execution. Or disable macros, then open the WB.

Also note that you can avoid this in the future by putting a user name test in the code - if the code sees that it's you it'll exit, otherwise execute.

HTH,

This worked for me. Thank you for sharing. ?