【VBA】月末日以外のボタンを無効にする

Private Sub Worksheet_Activate()

'特定履歴シート
 Dim y As Long, m As Long
 
 y = Year(Now)
 m = Month(Now)
 
 If Date = DateSerial(y, m + 1, 1) - 1 Then
 
    CommandButton2.Enabled = True

 Else

    CommandButton2.Enabled = False

 End If


End Sub




Sub CommandButton1_Click()

'月末バックアップボタン

Application.DisplayAlerts = False

Dim cell_count As String

Sheets("特定履歴").Select
cell_count = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))

If cell_count > 0 Then

    Call rireki_export

Else

    Exit Sub

End If

End Sub