vbaのチェックボックスを外部から変更すると、clickも動作する

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。
Excel2010のvbaで作成しています。
checkboxが複数ある状態で、特定のcheckボックスがチェックされたら
他のチェックを外す様にすると、チェックが外れたcheckboxのclickが
動作してしまいます。
動作させないようにする方法は無いでしょうか？

該当のソースコード

Private Sub StateCheckBox01_Click()
    Debug.Print "StateCheckBox01_Click"
End Sub

Private Sub StateCheckBox02_Click()
    StateCheckBox01.Value = true
End Sub

StateCheckBox02をクリックすると、StateCheckBox01_Clickが動作してしまう。
StateCheckBox01_Clickのみ動作しないようにしたい。

補足情報（FW/ツールのバージョンなど）

Windows7 64bit
Excel 2010(32bit)
vba

Answer 1

別にフラグを用意しといて、Valueを操作するときにそのフラグをセット、
クリックイベントではそのフラグがセットされていれば処理をパスして、フラグをリセットする、
という手順でどうでしょう

Answer 2

下記回答はActiveXコントロールにおいては効果を発揮しないようです。
フォームコントロールを使う場合には有効ですので、参考として残しておきます。

---

Application.EnableEventsを使います。

Private Sub StateCheckBox02_Click()
    Application.EnableEvents = False
    StateCheckBox01.Value = true
    Application.EnableEvents = True
End Sub

Comments

[imihito]

`Excel.Application.EnableEvents`はExcel由来のイベントにしか効果が無い（MSForms系コントロールには効かない）と思いましたがどうでしょうか？

[ttyp03]

あら、そうなんですか？
一律効果があると思ってましたが違ってたら申し訳ない。
明日、確認してみます。

[ttyp03]

試してみました。
ActiveXコントロールだと効果がありませんでしたが、フォームコントロールでは有効でした。
フォームコントロールだとコントロールの制御が異なるのでこんな感じになります。

Sub チェック2_Click()
Application.EnableEvents = False
CheckBoxes("チェック 1").Value = True
Application.EnableEvents = True
End Sub

質問のコードから察するに使っているのはActiveXコントロールと思われるので、私の回答は不適切でした。
imihitoさん＞
指摘ありがとうございました。
勉強になりました。

[imihito]

私もフォームコントロールでは有効なことは知りませんでした、検証ありがとうございます。