Application.EnableEventsでトラブル回避
イベントで動くマクロは便利ですが、コードの書き換えが再びイベントを呼び、無限ループや誤作動を起こしがち。そこで、イベントを一時的に止める Application.EnableEvents を正しく使うと、安定して安全に処理できます。初心者でも安心な「安全ラップ」と、よくある実務シナリオをまとめます。
基本と使いどころ
- 役割: Excelの「ワークブック・ワークシートイベント」を一時停止（Change、SelectionChange、Activate、Open、BeforeCloseなど）。処理中にイベントが再発火するのを防ぐ。
- 典型用途:
- 変更イベント内でセルを書き換えるときの再発火防止
- 大量の貼り付け／値化／書式変更前後の安定化
- 起動処理（Workbook_Open）での自動調整中のイベント抑制
- 必須ルール: False → 本処理 → True。必ず「元に戻す」。エラー時でも確実に復帰する「安全ラップ」を使う。
安全ラップ（必ず元設定へ復帰）
Sub EnableEvents_SafeWrap()
Dim origEvt As Boolean: origEvt = Application.EnableEvents
On Error GoTo Cleanup
Application.EnableEvents = False
'==== 本処理（例：大量の値書き込み） ====
Range("C2:D50000").Value = Range("A2:B50000").Value
'========================================
Cleanup:
Application.EnableEvents = origEvt
End Sub
- ポイント:
- 元設定の退避: 実行前の値を保存し、終了時に必ず復帰。
- エラーハンドリング: 失敗時でも Cleanup に流れて戻す構造に。
変更イベントの再発火を防ぐ（Worksheet_Changeの鉄板）
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ExitPoint
If Intersect(Target, Me.Range("B:B")) Is Nothing Then Exit Sub
Application.EnableEvents = False '再発火防止
'例：B列が変わったらC列にタイムスタンプを付与
Me.Cells(Target.Row, "C").Value = Now
ExitPoint:
Application.EnableEvents = True
End Sub
- ポイント:
- 範囲を絞る: Intersect で対象列だけ処理。
- 最初にFalse、最後にTrue: 変更イベント内では必須パターン。
- ExitPoint: 例外でも必ずTrueに戻す。
複数イベントの連鎖を止める（Open/Activateなど）
Private Sub Workbook_Open()
On Error GoTo ExitPoint
Application.EnableEvents = False
'起動時のセットアップ（シート生成・初期値の書き込みなど）
Sheets("設定").Range("A1").Value = "初期化済み"
Sheets("明細").Range("A2:D2").Value = Array("顧客", "金額", "数量", "単価")
ExitPoint:
Application.EnableEvents = True
End Sub
- ポイント:
- 大量初期化: Open/Activate中はChange/SelectionChange等が連鎖しがち。まとめて抑止。
- 復帰を厳守: Trueへ戻し忘れると「イベントが動かない」状態になる。
大量処理と併用（高速化＋イベント抑止の三点セット）
Sub BulkUpdate_SpeedAndSafe()
Dim origEvt As Boolean: origEvt = Application.EnableEvents
Dim origScr As Boolean: origScr = Application.ScreenUpdating
Dim origCalc As XlCalculation: origCalc = Application.Calculation
On Error GoTo Cleanup
Application.EnableEvents = False 'イベント停止
Application.ScreenUpdating = False '画面停止
Application.Calculation = xlCalculationManual '再計算停止
'配列で高速処理
Dim rg As Range: Set rg = Range("A2:D200000")
Dim v As Variant: v = rg.Value
Dim r As Long
For r = 1 To UBound(v, 1)
If IsNumeric(v(r, 3)) And IsNumeric(v(r, 4)) Then
v(r, 2) = v(r, 3) * v(r, 4) '金額=B
Else
v(r, 2) = ""
End If
Next r
rg.Value = v
Cleanup:
Application.Calculation = origCalc
Application.ScreenUpdating = origScr
Application.EnableEvents = origEvt
End Sub
- ポイント:
- 再計算・再描画も停止: 体感速度が大幅に向上。
- 最後に復帰: すべて元設定へ戻す。
よくある実務シナリオ
入力規則の自動補正（連鎖防止）
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ExitPoint
If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
Application.EnableEvents = False
'E列は数値のみ、空なら0に
Dim v: v = Target.Value
If Trim$(v) = "" Then
Target.Value = 0
ElseIf Not IsNumeric(v) Then
Target.Value = Val(v)
End If
ExitPoint:
Application.EnableEvents = True
End Sub
まとめ貼り付け前後の安定化
Sub PasteValues_Stable()
On Error GoTo Cleanup
Application.EnableEvents = False
Range("H2:K50000").Value = Range("C2:F50000").Value
Cleanup:
Application.EnableEvents = True
End Sub
ピボット更新や外部データ連携時の暴発防止
Sub RefreshPivot_Safe()
On Error GoTo ExitPoint
Application.EnableEvents = False
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.PivotCache.Refresh
Next
ExitPoint:
Application.EnableEvents = True
End Sub
落とし穴と対策
- Trueへ戻し忘れ: イベントが一切動かなくなる。必ず「Cleanup節で復帰」する構造に。
- イベント範囲の絞り込み不足: 不要なセル変更まで拾って無限ループの原因に。Intersectで対象列・範囲を限定。
- ActiveXコントロールやユーザーフォームのイベント: Application.EnableEventsは「ワークブック／ワークシートイベント」を止めます。ボタンのClickなどコントロールイベントは別管理が必要。必要なら「モジュール内フラグ（例: Static InHandler As Boolean）」で再入防止を実装。
- エラーでFalseのまま: 例外時もTrueへ戻るように On Error → Cleanup のパターンを必ず使う。
- 多重停止の混乱: 他のプロシージャでもEnableEventsを操作していると状態が混ざる。元値退避→復帰を徹底。
進んだテクニック（再入防止フラグ）
Private Sub Worksheet_Change(ByVal Target As Range)
Static InHandler As Boolean
If InHandler Then Exit Sub '自分からの再入を防ぐ
On Error GoTo ExitPoint
InHandler = True
Application.EnableEvents = False
'…安全な変更処理…
ExitPoint:
Application.EnableEvents = True
InHandler = False
End Sub
- ポイント: コントロールイベントや複雑な連鎖で「自分の再入」を避けたいときに使う。