Expiration date on Macro

[Borg]

Just out of fun and curiosity, how would I create Excel VBA code for a macro to stop from running after a certain number of days (e.g., after 30 days)?

I know it should be easily defeatable, but I wanted to learn.

Thanks!

[Simon Lloyd]

Hi in your Auto_Open sub type If Date >= "YOUR DATE HERE" Then Call YOUR SUB CONTAINING THE CODE BELOW, the code below is from Chip Pearsons site there is a whole host of helpful things there take a look! http://www.cpearson.com/excel.htm

Regards,
Simon

Deleting All VBA Code In A Project

The procedure below will delete all the VBA code in a project. You should use this procedure with care, as it will permanently delete the code. Standard modules, user forms, and class modules will be removed, and code within the ThisWorkbook module and the sheet modules will be deleted.

Sub DeleteAllVBA()
Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents

Set VBComps = ActiveWorkbook.VBProject.VBComponents

For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp

End Sub

[Borg]

Hi.

Thanks, but I was looking for something that was not permanent. But, I will look at it for learning purposes.

I just wanted a code which will not execute the rest of the macro code, after the expiration date. (To stop those pesky co-worker friends from releasing some of my beta files.) I still wanted to be able to modify the code to delete the expiration date later. Thanks!

[Paul B]

Borg, maybe something like this,

Private Sub Workbook_Open()
With ActiveWorkbook
If Date > DateValue("07-31-2006") Then
MsgBox "You Can Not Use This Any More"
Exit Sub
End If
MsgBox "You Can Use This"

End With

End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Borg" <[email protected]> wrote in message
news:[email protected]...
>
> Hi.
>
> Thanks, but I was looking for something that was not permanent. But, I
> will look at it for learning purposes.
>
> I just wanted a code which will not execute the rest of the macro code,
> after the expiration date. (To stop those pesky co-worker friends from
> releasing some of my beta files.) I still wanted to be able to modify
> the code to delete the expiration date later. Thanks!
>
>
> --
> Borg
> ------------------------------------------------------------------------
> Borg's Profile:
http://www.excelforum.com/member.php...o&userid=36396
> View this thread: http://www.excelforum.com/showthread...hreadid=566866
>

[Borg]

Thanks to both of you. Now I have two options.