Help, I goofed up!

[pujo]

Morning All!

I found this short code on the net last night and figured I would try it out.

Sub Workbook_Open()
If Date <=  7/29/2011 Then Exit Sub
MsgBox "This workbook has expired.", 48, "Goodbye."
With ThisWorkbook
    .Saved = True
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close False
  End With
End Sub

Now every time I open a new blank workbook, I get the MsgBox saying the expired phrase. I looked for the code inside the new WB and can not find it. What has happened? Why can't I stop this from happening?
Can anyone please give me a hand with this, I need to get this cleared up!
Thanks.
Pujo

 

[VoG]

Perhaps you placed the code in your personal.xls.

To prevent the code from running hold down the Shift key whilst opening a workbook.

 

[pujo]

Holding down the shift key doesn't stop the code from running.
I have held down shift, right click and open, as well as holding shift and left click to open, the code still runs. I do not have a personal.xls showing in the vba editor window.

What else can I try?

 

[pujo]

Ok, I think I got it.
I went to the XLSTART folder, found the personal.xls and removed it.
Everything worked great after that.
Thanks for the quick reply!

Have a great day!
Pujo

 

[pujo]

Any way to put an expiratin date on a workbook to make it read only?Thanks,
Pujo

 

[Ruddles]

Next time you test something with such dreadful capabilities, instead of:-

If Date [COLOR=red][B]<=[/B][/COLOR]  7/29/2011 Then Exit Sub

use:-

If Date [COLOR=red][B]<>[/B][/COLOR]  7/29/2011 Then Exit Sub

Then at least if it all goes pear-shaped, you only have to wait 24 hours before it starts working properly again!

To answer your question, any strategy that relies on VBA to enforce an expiry date will be dependent on your users having macros enabled. Unless you force them to enable macros by making the workbook unusable without them, that sort of approach will fail if they just disable macros, open the workbook with the Shift key held down or disable events before opening the workbook.