Expiration date on Macro
 

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! :)


--
Borg
------------------------------------------------------------------------
Borg's Profile: http://www.excelforum.com/member.php...o&userid=36396
View this thread: http://www.excelforum.com/showthread...hreadid=566866

Expiration date on Macro
 

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


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=566866

Expiration date on Macro
 

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

Expiration date on Macro
 

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" wrote in message
...

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

Expiration date on Macro
 

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


--
Borg
------------------------------------------------------------------------
Borg's Profile: http://www.excelforum.com/member.php...o&userid=36396
View this thread: http://www.excelforum.com/showthread...hreadid=566866