VBA 長時間の処理中にボタンをクリックするのを無効化したい

Question

Excel 2010を使用しています。

シート上にボタンを配置し、ボタンクリック時に時間のかかる処理を実施しています。

Sub ボタン1_Click()
    ' 二重起動防止策：既に実行中の場合は処理中止
    If blnJikko = True Then
        Exit Sub
    End If
    
    ' 処理開始時にフラグを立てる
    blnJikko = True
    
    ' 時間のかかる処理
    XXXXXX
            
    ' 処理を抜ける前にフラグを落とす
    blnJikko = False
End Sub

しかし、この方法では時間のかかる処理中に再度ボタンをクリックすると、
処理終了後に再度ボタン1_Click関数が走ってしまいます。

これを防止する方法について教えていただけないでしょうか？

ちなみに、このコードは以下のサイトを参考にしてかきました。
https://teratail.com/questions/93926

Answer 1

手元にあるのが2010なので2010の回答ですが、以下の通り。
https://support.microsoft.com/ja-jp/help/2394653

しかしわざわざenable=falseにしなくてもVBAの動作中（処理中）は次の動作させられなかったので自分はこの記述は使ってないんですが

なんだ、聞きたい事と質問文が全然違っただけか

Answer 2

処理中のフラグを用意しといて、そのフラグが立ってるときはボタンの処理をスルーするようにすればいいのでは

---

って、メッセージが残ってるということなのね。
なら、
処理中のフラグをリセットする前に、DoEvents関数を実行すればいいかと。

' 処理を抜ける前にフラグを落とす

DoEvents()
blnJikko = False
End Sub

Comments

[Taffy]

処理中のフラグ、という目的でblnJikkoフラグを用意したのですが、
フラグの使い方が違うのでしょうか？

[y_waiwai]

追記しました。フラグはその意味であってます

[Taffy]

了解しました！　
DoEventsを入れることで2度処理が走るのを回避できました。

以下も参考にしました。
https://www.tipsfound.com/vba/05doevents

[y_waiwai]

時間のかかる処理内ではボタンのイベントが処理されないので、それが終わってから処理に回され、ボタンクリックが実行されてしまうんで、フラグをリセットする前に処理させてやろう、ということです。
まあ、リンク先にも書いてありますが、多用するとバグのもとになりますんで注意ですね