How to Reset Expiration Date on TimeBomb (cpearson method)

[bdbly]

Hello,

I was playing around with cpearson's timebomb at http://www.cpearson.com/excel/workbooktimebomb.aspx . I set Const C_NUM_DAYS_UNTIL_EXPIRATION = 0 and the timebomb worked. I then set it back to 30 but the file still closes. Is there an easy way to reset the expiration date? Thanks for the help.

 

[dmt32]

Hi,
Not a fan of such code in workbooks but maybe you need to delete the named range (ExpirationDate) which holds the TimeBomb date

Try running this code

On Error Resume Next
    ThisWorkbook.Names("ExpirationDate").Delete
On Error GoTo 0

and see if the main code now works as required.

Dave

 

[bdbly]

Thanks Dave. I put that code in a desperate module and ran it. It deleted the named cell ref and I can open it back up. However, if I set it back to 0 days until expiration and open the file again, the file does not close.

i assume I have to manually enter the expiration date name? The test file shows 39359 as a value. How is this calculated?

 

[taccoo73]

39359 is the number for the date of 04 October 2007