How to make a Macro expire

[willow1985]

I am hoping someone could help me with making a macro expire. Every month I have to make a change to a certain shared spreadsheet. The problem is sometimes I do not get to the sheet in time before the macro in it is used and the user gets inaccurate data. So I would like it if I am able to put a date in the VBA code at the beginning of the Macro that says if that date entered is equal to or greater, then display msg "Macro expired, requires update" and end the macro, otherwise go to next (aka run the macro).

How would I write something like this?

Thank you for your help.

 

[dreid1011]

Well, you can't store a dynamic value directly in VBA, so you'd have to store the date somewhere on a spreadsheet that you can check against, then make sure you update that date each month for the next round.

Very simple to get the idea:

Sub CheckDate()
If Date >= Range("A1").Value Then
    'Display expiration message
    Exit Sub
Else
    'Run code as normal
End If
End Sub

 

[willow1985]

I actually figured it out from another post on this forum and it seems to be working:

Const sPassword = "Password"
 Dim sUserInput
 If Date > CDate("06/09/2024") Then
    sUserInput = InputBox("Enter password to continue...", "Enter Password")
    If Not sUserInput = sPassword Then
        MsgBox "Macro expired, requires update"
        Exit Sub
    End If
 End If

Thank you though for your help!

 

[dreid1011]

I actually figured it out from another post on this forum and it seems to be working:

Const sPassword = "Password"
 Dim sUserInput
 If Date > CDate("06/09/2024") Then
    sUserInput = InputBox("Enter password to continue...", "Enter Password")
    If Not sUserInput = sPassword Then
        MsgBox "Macro expired, requires update"
        Exit Sub
    End If
 End If

Thank you though for your help!

Glad you got it figured out.