time limited exccel workbook

[CleGG]

is there a was to make an excel workbook only work for a certain period of time? and then after the date passes, the workbook no longer works or opens?

 

[Julica]

I don't think you can prevent the workbook from opening, but you could try putting an If statement in the Workbook_Open event. Try

    If Date > DateSerial(2003, 7, 15) Then
        ActiveWorkbook.Close
    End If

 

[CleGG]

ill try that, but where exactly would i put that statement?

 

[CleGG]

scratch last post.. i got it. it works!! thank you much!

 

[CleGG]

the only fallback to that solution is that if you hold shift down it will open the workbook in Design mode. and the workbook stays open. but, its a start. thank you

 

[Julica]

right, but beginners won't know that. You using this on beginners?

 

[CleGG]

i hope so. mostly psychologist will be using this. so, i guess the answer is yes

 

[Tom Urtis]

Seeing as you want to make the workbook so that "after the date passes, the workbook no longer works or opens?", you might as well kill it. Otherwise it is just sitting around like dead weight.

Place this code in your workbook open, close, deactivate and before save events and that should cover it. Modify for date of demise.


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

 

[Jon Peltier]

the only fallback to that solution is that if you hold shift down it will open the workbook in Design mode. and the workbook stays open. but, its a start. thank you

You could change this. Add another sheet that just says something like "You must open the sheet with macros enabled." The other sheet is hidden. If the user disables macros or bypasses the auto_open macro, the sheet is useless. Within the auto_open (or Workbook_Open event procedure in the ThisWorkbook code module), put code that unhides the important sheet and hides the one with the message (in addition to the one that prevents opening if it has expired). In auto_close (or ThisWorkbook_BeforeClose) put code to show the dummy sheet and hide the working sheet, then save the workbook.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
http://www.geocities.com/jonpeltier/Excel/index.html
_______

 

[CleGG]

i like this answer , but i am not verse enough to accomplish this. Can you walk me through this a little more?
thanks.

the only fallback to that solution is that if you hold shift down it will open the workbook in Design mode. and the workbook stays open. but, its a start. thank you

You could change this. Add another sheet that just says something like "You must open the sheet with macros enabled." The other sheet is hidden. If the user disables macros or bypasses the auto_open macro, the sheet is useless. Within the auto_open (or Workbook_Open event procedure in the ThisWorkbook code module), put code that unhides the important sheet and hides the one with the message (in addition to the one that prevents opening if it has expired). In auto_close (or ThisWorkbook_BeforeClose) put code to show the dummy sheet and hide the working sheet, then save the workbook.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
http://www.geocities.com/jonpeltier/Excel/index.html
_______