Can a woorksheet with VBA be made to expire, or stop working?

I have some VBA code that puts symbols & words in a cell, based on the letter in the
cell to the left, when it is clicked on. The code works fine.

My question is: Is there a way to add code, (or do something else) to make my
worksheets "expire / or stop working" on a certain date, or times opened?

My code is below.

Thanks in advance for any help.
Richard


[code]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Const WS_RANGE As String = "A1:BU1450" '<=== change to suit

If Target.Count > 1 Then Exit Sub
If Not Target.Offset(, -1).Value Like "[qwertyui]" Then Exit Sub

Application.EnableEvents = False

If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then
With Target
Select Case .Offset(, -1).Value
Case "q":
.Font.Name = "arial"
.Value = IIf(.Value = "x", "", "x")
Case "w":
.Font.Name = "Wingdings 2"
.Value = IIf(.Value = "t", "", "t")
Case "e":
.Font.Name = "arial"
.Value = IIf(.Value = "FE", "", "FE")
Case "r":
.Font.Name = "arial"
.Value = IIf(.Value = "RN", "", "RN")
Case "t":
.Font.Name = "arial"
.Value = IIf(.Value = "MN", "", "MN")
Case "y":
.Font.Name = "arial"
.Value = IIf(.Value = "NI", "", "NI")
Case "u":
.Font.Name = "arial"
Select Case .Value
Case "Yes": .Value = "No"
Case "No": .Value = "Maybe"
Case "Maybe": .Value = "Never"
Case "Never": .Value = ""
Case "": .Value = "Yes"
End Select
Case "i":
.Font.Name = "arial"
Select Case .Value
Case "One": .Value = "Two"
Case "Two": .Value = "Three"
Case "Three": .Value = ""
Case "": .Value = "One"
End Select
End Select
.Offset(0, -1).Activate
End With
End If

Application.EnableEvents = True

End Sub

[code]

All you need to do is to use your code to check the current date.
if the date is past your expiry date then set a flag in the spreadsheet
your routine should check the flag often and stop if the flag is set
then even if the user changes the system date the routine will not work.

Sorry, I am very new to code.
So a VBA code, would check a date (I assume in a certain cell)
then stop when it is past that date?
That would work, how would I write the code? And can I have it check
and date in a certain cell (say, c-900)?

You could set a Workbook_Open event to check the date and then delete the Worksheet_Change code if the date has passed, trouble with that code is you need to grant access to the VBA Object which has to be done on a machine by machine basis (so if you have multi users it could be a pain).

Please Login or Register  to view this content.

something Like

if range("c900").value = format(now,"dd/mm/yyyy") then exit sub

Cant get it to work, but I'm most likely adding it in to my VBA wrong.
Could you add to my existing code (all together) and send it back?

Thanks!!!!

You need to post your spreadsheet or at least the sheet with the date in c900

Then we can get it to work for you