'エクセル上でマクロの有効・無効を切り替える処理 'チェックボックスに「cbk_makuro」と言う名前で登録 'チェックボックスのチェックを入れたり外したりする処理 '*** マクロ有効・無効、切替 *** Private Sub cbk_makuro_Click() If cbk_makuro.Value = True Then '----- 指定したボタンを有効にする ----- btn_date_yotei1.Enabled = True btn_date_jisseki1.Enabled = True spimbtn_data.Enabled = True Else '----- 指定したボタンを無効にする ----- btn_date_yotei1.Enabled = False btn_date_jisseki1.Enabled = False spimbtn_data.Enabled = False End If End Sub