 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Excel / Programming / March 2008Macro to expire after a specified date
Hello Masters, How can I program a macro so that it expires after Jan 01, 2008. Any help is greatly appreciated. Thanks -DC One way Sub expire() MyDate = #1/1/2008# If MyDate < Date Then MsgBox "Module expired" 'exit sub Else MsgBox "Run module" 'do your stuff End If End Sub Mike > Hello Masters, > [quoted text clipped - 3 lines] > Thanks > -DC > Hello Masters, > [quoted text clipped - 3 lines] > Thanks > -DC if you whant to protect your program? You can do this! Dim yourdate Private Sub Workbook_Open() yourdate = "Jan 01, 2008" If Date > yourdate Then Workbooks("name").Close 0 Application.Quit End If End Sub P.S You must protect your macro with password! Thanks a lot Mike and I.R. Both works fine. I appreciate your immediate assistance. Regards -DC And it they disable macros (which may be done for them without them even knowing it), it will have no effect. Code based workbook protection is generally a waste of time no matter how elaborate the scheme or how much you underestimate the intelligence of your users.  SignatureRegards, Tom Ogilvy > Thanks a lot Mike and I.R. Both works fine. I appreciate your > immediate assistance. > > Regards > -DC Tom, I agree about code based workbook protection being very flimsy but in this specific case the OP simply wanted the macro to expire and there was no mention of 'Users' to consider the intelligence of, so:- 1. Macros are disabled by whatever method the macro won't run no matter what the date. 2. Macros are enabled the macro won't after a specific date. Mike > And it they disable macros (which may be done for them without them even > knowing it), it will have no effect. Code based workbook protection is [quoted text clipped - 6 lines] > > Regards > > -DC That is one way to read the question and you are certainly correct on that. Signatureregards, Tom Ogilvy > Tom, > [quoted text clipped - 18 lines] > > > Regards > > > -DC You could adapt the code on my "Timebombing A Workbook" page at www.cpearson.com/Excel/WorkbookTimeBomb.aspx . Note that no VBA-based protection scheme is foolproof. An experienced (and dishonest) user can work around any protection you provide. However, code such as is on the page referenced above is "good enough" for the vast majority of users. SignatureCordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting www.cpearson.com (email on the web site) > Hello Masters, > [quoted text clipped - 3 lines] > Thanks > -DC Sir, I want to use your "Time Bomb" VB code, but I have question on the "Defined Name". What name is it that we are to remove from the VB code? Thanks > You could adapt the code on my "Timebombing A Workbook" page at > www.cpearson.com/Excel/WorkbookTimeBomb.aspx . Note that no VBA-based [quoted text clipped - 9 lines] > > Thanks > > -DC Specifically what piece of code are you referring to? The web page provides several different methods of time bombing a workbook. The first one described on the page uses a defined name called "ExpirationDate" that contains the data after which the workbook is unusable. If you want to remove the time bombing, you should delete that name. Of course, then next time you open the workbook the name will be recreated. To permanently remove the time bomb, you need to delete the VBA code. SignatureCordially, Chip Pearson Microsoft MVP - Excel, 10 Years Pearson Software Consulting www.cpearson.com (email on the web site) > Sir, > I want to use your "Time Bomb" VB code, but I have question on the [quoted text clipped - 16 lines] >> > Thanks >> > -DC Thanks, also, do you put this in the "This Workbook" or it's module? Option Explicit Private Const C_NUM_DAYS_UNTIL_EXPIRATION = 90 Sub TimeBombWithDefinedName() Dim ExpirationDate As String Dim NameExists As Boolean On Error Resume Next ExpirationDate = Mid(ThisWorkbook.Names("ExpirationDate").Value, 2) If Err.Number <> 0 Then NameExists = False ExpirationDate = CStr(DateSerial(Year(Now), _ Month(Now), Day(Now) + C_NUM_DAYS_UNTIL_EXPIRATION)) ThisWorkbook.Names.Add Name:="ExpirationDate", _ RefersTo:=Format(ExpirationDate, "short date"), _ Visible:=False Else NameExists = True End If If CDate(Now) > CDate(ExpirationDate) Then MsgBox "This workbook trial period has expired.", vbOKOnly ThisWorkbook.Close savechanges:=False End If End Sub > Specifically what piece of code are you referring to? The web page provides > several different methods of time bombing a workbook. The first one [quoted text clipped - 24 lines] > >> > Thanks > >> > -DC Sorry to bother you, but did you reply to my last post? > Specifically what piece of code are you referring to? The web page provides > several different methods of time bombing a workbook. The first one [quoted text clipped - 24 lines] > >> > Thanks > >> > -DC I don't recall if I read it or not. SignatureCordially, Chip Pearson Microsoft MVP - Excel, 10 Years Pearson Software Consulting www.cpearson.com (email on the web site) > Sorry to bother you, but did you reply to my last post? > [quoted text clipped - 31 lines] >> >> > Thanks >> >> > -DC Chip, Is the same approach used when a "commercial" add-in requieres registration after a trial period, do you know how it would work? Do you have any literature on it? Thanks > I don't recall if I read it or not. > [quoted text clipped - 33 lines] > >> >> > Thanks > >> >> > -DC Hi Chip, Your code is great, but I seem to have encountered a problem. The code creates the "ExpirationDate" fine on one machines with the value being the date e.g. 39555, whilst on a different machine it is being captured as a text e.g. "18-03-08". I have changed the the visibility to true so that i could see the value. ThisWorkbook.Names.Add Name:="ExpirationDate", _ RefersTo:=Format(ExpirationDate, "short date"), _ Visible:=True I have checked all the settings in excel but could find no differences on either machines. Do you have any idea? Thanks > I don't recall if I read it or not. > [quoted text clipped - 33 lines] > >> >> > Thanks > >> >> > -DC |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.