Time Limit 1

[corus]

How can you impose a time limit on a spreadsheet as you see with some shareware programs that have a 30 day limit?

 

[FrenchCAD]

Maybe something like :

Sub limit()
Dim LimDate
If not LimDate Then LimDate = Date +30
End Sub

dunno if it works but it may be some basis for your idea

Cyril Guichard
Mechanical Engineer

 

[FrenchCAD]

You should also take a look at the OnTime method

Cyril Guichard
Mechanical Engineer

 

[dsi]

Please note, if you are doing this in a protected module, it's easy enough to crack. There are plenty of programs available that can crack password protected code. You would hope that most people/companies would not do this, but too many lack basic ethics.

DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[psafety]

Place this in a standard module. Modify for the suicide date, and make sure you have a backup copy in case you code the date wrong or change your mind later.

Sub Autpen()
If Date < #10/31/2003# Then Exit Sub
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub