[[20090831110639]]　『マクロ無効・有効ボタン』（マクロほんの一歩）　ページの最後に飛ぶ

『マクロ無効・有効ボタン』（マクロほんの一歩）

 マクロの入っているブックを
 有効にしてシ－トを開けます。
 シ－ト上で「マクロを無効にするボタン」と「マクロを有効にするボタン」を
 作りたいと思っているのですが
 できるでしょうか?
 宜しくお願いします。

 マクロ無効ボタンでフラグを立てて
 各プロシージャで無効フラグが立っている場合はExitSubするようにされてみては？
 （ｍｏｍｏ）

 ｍｏｍｏさん返答ありがとうございます。
 申し訳ありません。
 超初心者で
 理解できないのですが….

（マクロほんの一歩）

 現在のマクロがどうなっているのかわかりませんが
 たとえば

  Public MacroFlg As Boolean

 と、Publicでフラグを用意しておいて

  Private Sub CommandButton1_Click()
  'マクロ有効ボタン
  MacroFlg = False
  End Sub

 有効ボタンでFalse

  Private Sub CommandButton2_Click()
  'マクロ無効ボタン
  MacroFlg = True
  End Sub

 無効ボタンでTrueが入るようにします。

 で、各プロシージャの最初にそのフラグで判定して
 無効であれば処理を抜けるようにします。

  Sub プロシージャ1()
  If MacroFlg = True Then Exit Sub

  'コード

  End Sub

  Sub プロシージャ2()
  If MacroFlg = True Then Exit Sub

  'コード

  End Sub

コメント返信：