Need VBA code to make app expire after period of time

[TJ]

Can someone provide some sample code or reference to make an
application expire after a period of time.

Thanks.

 

[NDBC]

At the start of the sub put something like

If Now() > "date and time" Then
Exit Sub

Else

'the rest of you sub goes here as normal.

My only concern is I'm not sure how to put in the date and time that you
want finish at. Another alternative is to put the date time in cell AA1

If Now() > Sheets("Sheet1").Range("AA1") Then
Exit Sub

Else

'the rest of you sub goes here as normal.


Hope this helps you get on track anyway.

 

[NDBC]

I just tried this and it worked

If Now() > "20/08/2009 3:32pm" Then

but

If Now() > "20/08/2009 15:32" Then

didn't work.

 

[Chip Pearson]

See http://www.cpearson.com/excel/WorkbookTimeBomb.aspx for example
code.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

 

[Dave Peterson]

Visit Chip Pearson's site:
http://www.cpearson.com/Excel/WorkbookTimeBomb.aspx

 

[Phil Hibbs]

I just tried this and it worked
If Now() > "20/08/2009 3:32pm" Then
but
If Now() > "20/08/2009 15:32" Then
didn't work.

What's going on there? Is it converting Now() to a string using the
user's locale, and then comparing it to your hard-coded string in your
locale? Or does the string get converted to a Date value and then
compared? I think you need to protect your code from locality issues
by explicitly formatting the date and comparing, e.g.

If Format(Now(), "yyyy-mm-dd") >= "2009-08-20" Then

Phil Hibbs.

 

[TJ]

Seehttp://www.cpearson.com/excel/WorkbookTimeBomb.aspxfor example
code.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
    Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLCwww.cpearson.com
(email on web site)




- Show quoted text -

Thank, Chip. Much appreciated.