Program expired

[nowfalapm]

Dear all,
I created a workbook, which is presently running smoothly. The workbook is working with a macro, now i wanted to stop running the macro after a particular future date ( i.e. 26/06/2012) . Is it possible to give that as target date and after that the macro should not work and a message to appear as "program expired". If possible what will be the code to add in my macro.
thanks and regards
nowfal

[rkey]

you can use something like this at the start of you sub:

If Now() > #6/26/2012# Then
    MsgBox "Program Expired"
    Exit Sub
End If

[nowfalapm]

yes, it works, thanks alot

[john55]

or

Sub Button1_Click()
If Date <= #7/23/2012# Then
[a2].ClearContents  'your code here
Else
MsgBox "Program expired!"
End If
End Sub

[nowfalapm]

sorry, mr rkey,
it shows program expired in future date also. b coz i wanted to ruan the macro if i put future date. another problem complie error : end if without block if
please look into the matter

[nowfalapm]

yes, with mr.john's code , i got the solution. i have tested with both dates
thanks to both of you.
with regards
nowfal

[rkey]

You are right, had to cut of the time :P

sub test
If Format(Now(), "mm/dd/yyyy") > #6/26/2012# Then
    MsgBox "Program Expired"
    Exit Sub
End If

'your code here

end sub

The end if error is caused by the if statement. Please check all open and closes of the if statement.

[nowfalapm]

mr.rkey, thanks for your help. One more question, is it possible i can give access with another message box providing some password or access code. just for the curiosity to learn things
thanks and regards
nowfal

[royUK]

Format is unnecessary

Option Explicit


Sub Expired()
    If Date > CDate("26/05/2012") Then
        MsgBox "Workbook expired", vbCritical, "Expired"
    End If
End Sub

[nowfalapm]

Mr.royuk, thanks for the information.