Allow run macro only within current month

[fabian_76]

Hi people,

I was wonder if there is a code that prohibit the use of the macro out of the period declared. For example I want that users can run the macro only in November from 1rst - 30th. If they want to use the macro in December, they would need to come to me so I can change the code for a new period and so forth.

I appreciate it.

Thanks,

[Logit]

.

Option Explicit

Sub rundates()

    Dim early As Date, late As Date
    Dim dt As Date
   
    early = "10/25/2018"

    late = "10/30/2018"

        dt = Now()
        If dt <= late And dt >= early Then

            MsgBox "Hello" '<-- replace this with your macro code or a call to your macro code located elsewhere.

        End If

End Sub

[fabian_76]

Thank you Logit, this worked great!

[6StringJazzer]

How do you specify what the "period declared" is? In the code? Here is an example that will allow the code to run only in November:

Public Sub Example()

   Const AllowedMonth = 11

   If Month(Date) <> AllowedMonth Then
      MsgBox "You may only run this code in " & Format(DateSerial(Year(Date), AllowedMonth, 1), "Mmmm")
      Exit Sub
   End If
   
   ' the rest of your code goes here
   
End Sub

HOWEVER, the fact that you said that you have to update code for a new period suggests that you have a design problem. Your code should be written to be valid for whatever period your data indicates.

[fabian_76]

Thank you, I can certainly have design problems. I am new on this, thank you for letting me know this, otherwise I would keep doing the same. btw your code worked great too.

[Logit]

.
You are welcome.