excel vba to activate command button on every 1st day of month

[annadinesh]

Dear Experts

I there any vba code which activates a command Button on Every 1st Day of Month and disable after 1st Day



Regards


Dinesh Saha

 

[Anthony47]

For example, on top of the code that get starded by the command button, add these lines:

If Day(Now) > 1 Then
    Beep
    MsgBox ("This command may be executed only on day 1 of each month")
    Exit Sub
End If

If it is an ActiveX you might use the WorkbookOpen event to set the control's "enabled property" = True or False:

Private Sub Workbook_Open()
If Day(Date) = 1 Then
    Sheets("Foglio1").CommandButton1.Enabled = True
Else
    Sheets("Foglio1").CommandButton1.Enabled = False
End If
End Sub

This has to be inserted in "ThisWorkbook" module of your vba