Excelマクロ 実行時エラー’400’の原因と解決方法【フォーム・ダイアログエラー完全ガイド】

VBA/XLSX//

Excelマクロを実行中に突然「400」とだけ表示されるエラーダイアログ。他のエラーのように詳細なメッセージが表示されないため、「何が原因なのかまったくわからない」と途方に暮れる方が多いのではないでしょうか。

このページでは、実行時エラー’400’の正体・発生原因・具体的な解決方法を、Microsoft公式ドキュメントや実際のVBA開発現場の知見をもとに体系的に解説します。UserForm（ユーザーフォーム）絡みのエラーから、コードの記述ミス・環境固有の問題まで、考えられる原因を網羅してカバーしています。

目次

  1. 実行時エラー’400’とは何か
  2. 最も多い原因：UserForm（フォーム）の二重表示
  3. コード記述ミスによるエラー400
  4. Excelの設定・環境が原因のエラー400
  5. アドイン・xlbファイルが原因のエラー400
  6. エラー箇所の特定方法（デバッグ手順）
  7. 解決方法まとめ（チェックリスト）
  8. エラー400を未然に防ぐコーディング習慣
  9. よくある質問（FAQ）

1. 実行時エラー’400’とは何か

Excelのマクロ（VBA）実行中に表示される「実行時エラー’400′」は、「フォームは既に表示されています。モーダルに表示できません。」という意味を持つエラーです。Microsoftの公式ドキュメント（Office VBA リファレンス）でも、このエラーコード400は正式に定義されています。

他の実行時エラー（例：1004「アプリケーション定義またはオブジェクト定義のエラー」など）と異なり、エラー400はダイアログに数字の「400」しか表示されないため、初めて遭遇した開発者が原因を特定しにくい点が特徴です。

2. 最も多い原因：UserForm（フォーム）の二重表示

エラー400の最も代表的な発生原因は、すでに表示中のUserFormを、再度 Show メソッドでモーダル表示しようとしたケースです。Showメソッドを使用して、表示中のフォームをモーダルで表示することはできません。既に表示されているフォームに対し、style引数を vbModal に設定してShowを使おうとした場合に発生します。

2-1. 同じフォームを自分自身の中で呼び出す

UserForm1に配置したボタン（CommandButton1）のプロシージャで、すでに表示している自分自身（UserForm1）をShowしようとした場合にこのエラーが発生します。

以下は問題のあるコード例です。

' NG例：既に表示されているUserForm1の中からShow
Private Sub CommandButton1_Click()
    UserForm1.Show  ' エラー400発生！自分自身を再度モーダル表示しようとしている
End Sub

2-2. 解決方法：UnloadまたはHideを使う

モーダルフォームとして表示を試みる前に、フォームに対して Unload ステートメントまたは Hide メソッドを実行する必要があります。

Showメソッドを使ってすでに表示しているフォームを再度表示させようとしたときに発生するエラーです。モーダルとは、フォームが表示されている間、フォーム以外の操作ができない状態のことです。

Unloadを使った正しいコード例：

' OK例1：UnloadしてからShowする
Private Sub UserForm_Click()
    Unload UserForm1   ' まず一度アンロード（メモリ解放）
    UserForm1.Show     ' その後に表示
End Sub
' OK例2：HideしてからShowする
Private Sub UserForm_Click()
    UserForm1.Hide     ' 一時的に非表示にする
    UserForm1.Show     ' 再表示
End Sub

2-3. UnloadとHideの違い

同じ「フォームを閉じる」操作でも、UnloadとHideには重要な違いがあります。

  • Unload：フォームをメモリから完全に解放します。次回Showした際は初期化された状態で起動します。テキストボックスなどの入力内容も消えます。
  • Hide：フォームを非表示にするだけで、メモリ上には残ります。再度Showすると入力内容や状態が保持された状態で再表示されます。ただし非表示のままメモリを占有し続ける点に注意が必要です。

フォームを完全に終了させたい場合はUnload、データを保持したまま一時的に隠したい場合はHideを選択してください。

2-4. Initialize イベント内での Show 呼び出し

UserFormの初期化（Initializeイベント）で時間のかかる処理を行うと、その処理が終わるまでUserFormは表示されません。ユーザーの心理的な待ち時間を少なくするために、初期化（Initializeイベント）の途中で強制的にUserFormを表示させることがあります。そのときのShowメソッドはエラーになりません。なぜなら、初期化中のUserFormは、まだShowされていないからです。

つまり、Initializeイベントの実行中にMe.Showを呼び出すことは技術的に可能ですが、その後さらに重複してShowを呼び出さないよう注意が必要です。

' 初期化中の強制表示（エラーにはならない）
Private Sub UserForm_Initialize()
    Label1.Caption = "ただいま初期化中です..."
    CommandButton1.Enabled = False  ' 操作を無効化してから表示
    Me.Show
    ' この後に重い処理を記述
End Sub

3. コード記述ミスによるエラー400

UserForm以外にも、VBAコードの記述ミスがエラー400を引き起こすケースがあります。

3-1. Cells のインデックスに 0 を指定する

Excelの一番左上のセルは、Cellsで指定するとCells(1, 1)です。Cellsで0を指定したのが原因でエラー400が発生します。

' NG例：Cellsのインデックスに0を使う
For i = 0 To 7
    Cells(i, 1).Value = i  ' i=0のとき Cells(0,1) でエラー400
Next i
' OK例：1始まりに修正
For i = 0 To 7
    Cells(i + 1, 1).Value = i  ' Cells(1,1)から Cells(8,1) に書き込む
Next i

3-2. 存在しないシートやセルを参照する

コードの記述ミスとして、存在しないシート名やセルを参照している場合にエラーが発生します。

' NG例：存在しないシート名を参照
Worksheets("売上データ2024").Activate  ' シート名が違うとエラー
' OK例：シート名を変数で管理して安全に参照
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets("売上データ2024")
On Error GoTo 0
If ws Is Nothing Then
    MsgBox "指定シートが見つかりません"
    Exit Sub
End If
ws.Activate

3-3. アクティブでないシートのRange.Activateを呼ぶ

「Range(“A1”).Activate」で発生するケースがあります。アプリケーション定義またはオブジェクト定義のエラーとして現れるパターンで、他のモジュールでは正常に動作するのに特定の状況でのみエラーになる場合があります。

非表示シートや保護されたシートにアクティブを切り替えようとするとこのエラーが出ることがあります。事前にシートの表示状態・保護状態を確認してください。

' OK例：シートをActivateしてからRangeを操作する
Sheets("集計").Activate
Range("A1").Activate

4. Excelの設定・環境が原因のエラー400

4-1. マクロが無効になっている

ExcelのバージョンアップやPCの移行後に、以前のバージョンで利用していたブックでマクロを実行したところ「400」とエラーが出て処理が実行されないケースがあります。マクロが無効になっている可能性があります。

マクロを有効化する手順は以下のとおりです。

  • Excelの「ファイル」タブをクリック
  • 「オプション」を選択し、「Excelのオプション」を開く
  • 左側メニューの「セキュリティ センター」→「セキュリティ センターの設定」ボタンをクリック
  • 「マクロの設定」から「すべてのマクロを有効にする」または「警告を表示してすべてのマクロを無効にする（推奨）」を選択
  • OKで保存し、Excelを再起動

4-2. セキュリティソフトや他アプリとの干渉

他のアプリケーションやセキュリティソフトがExcelの動作に影響を与えている場合もあります。一時的にセキュリティソフトを無効にするか、不要なアプリを終了させてからマクロを再実行してみてください。

4-3. Excelのバージョン非互換

他のパソコンでは問題なく動作するマクロが、自分のパソコンだけでエラー400が出る場合は、Excelのバージョンや設定、インストールされているアドインやセキュリティソフトが影響している可能性があります。Excelのバージョンを確認し、設定やアドインを見直してみてください。

5. アドイン・xlbファイルが原因のエラー400

5-1. アドインの二重登録

何らかのきっかけによりエクセルのアドインファイルがアドイン登録されると、ファイルを二重に開こうとしてエラーの原因となる場合があります。この場合、アドインの登録を解除することで問題を解決できる可能性があります。

アドイン登録を解除する手順：

  • Excel 2007以降：「ファイル」→「オプション」→「アドイン」を選択
  • 下部の「管理」から「Excelアドイン」を選択し「設定」をクリック
  • 問題のあるアドインのチェックを外してOKをクリック
  • Excelを再起動して確認する

5-2. xlbファイルの削除（Excel 2002/2003の場合）

xlbファイルにはツールバーやメニューバーのカスタマイズの履歴などが保存されています。xlbファイルはExcelの起動に影響を与える場合があります。この場合、xlbファイルを削除してExcelを起動することによって、問題を解決できる可能性があります。xlbファイルを削除するとメニューバーやツールバーのカスタマイズは初期化されますが、削除しても次にExcelを起動したときに初期化されたxlbファイルが新たに作成されます。なお、この対処法はExcel 2002/2003に対応したものです。Excel 2007以降にはxlbファイルはないため、この方法は適用されません。

5-3. マクロを新しいモジュールに移動する

マクロを新しいモジュールに移動することで、エラー400を解決できる場合があります。元のモジュールに何らかのデータ破損がある場合に有効な手段です。VBEでModuleを追加し、問題のあるプロシージャをコピー＆ペーストして、元のモジュールを削除してみてください。

6. エラー箇所の特定方法（デバッグ手順）

エラー400はダイアログに数字しか表示されないため、発生箇所を特定することが解決への第一歩です。以下の手順でデバッグを行いましょう。

6-1. ブレークポイントを設定してステップ実行する

VBE（Visual Basic Editor）で問題のあるプロシージャを開き、行番号の左側をクリックしてブレークポイントを設定します。その状態でマクロを実行すると、その行で処理が一時停止するため、F8キーを押して1行ずつ実行し、どの行でエラーが起きるかを絞り込みます。

' ブレークポイント設定のポイント
' VBEのメニュー：デバッグ → ステップイン（F8）
' Locals ウィンドウで変数値を確認しながら進める

6-2. On Error を一時的に外してデバッグ

コード内に On Error Resume Next が含まれている場合、エラーが握りつぶされて別の場所で400が出ることがあります。デバッグ時はOn Errorを一時的にコメントアウトして、正確なエラー発生行を特定してください。

' デバッグ時の注意
' On Error Resume Next  ← デバッグ中はコメントアウト
' On Error GoTo ErrHandler も同様に一時無効化して確認する

6-3. イミディエイトウィンドウで状態確認

VBEの「表示」→「イミディエイト ウィンドウ」（Ctrl+G）を開き、ブレークポイントで停止中に変数の値やオブジェクトの状態を確認できます。

' イミディエイトウィンドウでの確認例
? UserForm1.Visible        ' フォームが表示中かどうか確認
? ActiveSheet.Name         ' 現在のアクティブシート名を確認
? Worksheets.Count         ' ブック内のシート数を確認

6-4. 特定ファイルでのみ発生する場合

特定のファイルでのみエラーが発生する場合、そのファイル自体が破損している可能性があります。新しいExcelファイルを作成し、問題のマクロコードをコピーして実行してみてください。これでエラーが解消されることがあります。

7. 解決方法まとめ（チェックリスト）

エラー400が発生したときに確認すべきポイントをチェックリストとしてまとめました。上から順に試していくと効率的に原因を特定できます。

  • UserFormをShowしている最中に、同じフォームをShowしていないか確認する
  • ShowメソッドをUnload／Hideに変更し、フォームを一度閉じてから再表示する
  • Cells(行, 列) のインデックスが 0 になっていないか確認する（最小値は1）
  • 存在しないシート名やセル範囲を参照していないか確認する
  • 非表示・保護されたシートに対してActivateを呼んでいないか確認する
  • Excelのセキュリティセンターでマクロが有効化されているか確認する
  • セキュリティソフトや不要なアプリを一時停止・終了してから再試行する
  • 不要なアドインを無効化し、Excelを再起動する
  • 問題のあるモジュールを新しいモジュールにコピーして実行する
  • ファイルが破損している可能性がある場合は新規ファイルにコードを移す
  • Excelを修復インストール、または再インストールする（最終手段）

8. エラー400を未然に防ぐコーディング習慣

8-1. フォームの表示状態を確認してからShowする

UserFormを表示する前に、Visibleプロパティで表示中かどうかを確認するコードを入れると安全です。

' フォームが表示中でなければShowする（安全なパターン）
Sub ShowMyForm()
    If Not UserForm1.Visible Then
        UserForm1.Show
    Else
        UserForm1.SetFocus  ' 既に表示中なら前面に持ってくる
    End If
End Sub

8-2. Unload Meで確実にメモリを解放する

フォームを閉じるボタンには、Unload Me を明示的に書いておくことで、メモリリークやゾンビ化を防ぐことができます。

' 閉じるボタンの正しい実装例
Private Sub btnClose_Click()
    Unload Me  ' フォームをメモリから完全解放
End Sub

8-3. QueryCloseイベントで終了処理を統一する

フォーム右上の×ボタンからの終了と、コード上からの終了を統一的に処理するには、QueryCloseイベントを活用します。

' ×ボタンやUnloadをすべてQueryCloseで制御する
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If MsgBox("フォームを閉じますか？", vbYesNo) = vbNo Then
        Cancel = True  ' 閉じるのをキャンセル
    End If
End Sub

8-4. Option Explicitで変数宣言を強制する

VBEのすべてのモジュール先頭に Option Explicit を記述することで、変数の宣言漏れや誤ったオブジェクト名の使用によるエラーを事前にコンパイルエラーとして検出できます。

Option Explicit  ' ← 各モジュールの先頭に必ず記述

Sub SampleMacro()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' ...
End Sub

8-5. エラーハンドリングを適切に実装する

On Errorを使ってエラーを補足し、エラー番号と内容をログやメッセージに出力するようにすると、予期しない400エラーが出たときにも素早く原因を特定できます。

Sub SafeMacro()
    On Error GoTo ErrHandler

    ' 処理コード

    Exit Sub

ErrHandler:
    MsgBox "エラーが発生しました。" & vbCrLf & _
           "エラー番号：" & Err.Number & vbCrLf & _
           "内容：" & Err.Description, vbCritical, "エラー情報"
End Sub

9. よくある質問（FAQ）

Q1. マクロを実行すると「400」とだけ表示されます。どこから調べれば良いですか？

まずはブレークポイントを設定してステップ実行（F8）し、どの行でエラーが発生するかを特定することから始めましょう。UserFormのShowメソッド付近と、Cellsのインデックス指定部分を重点的に確認してください。

Q2. 他のパソコンでは動くマクロが、自分のパソコンでだけエラー400になります。

この場合、Excelのバージョンや設定、インストールされているアドインやセキュリティソフトが影響している可能性があります。Excelのバージョンを確認し、設定やアドインを見直してみてください。また、マクロの有効化設定がそのPCだけ無効になっているケースも多いため、セキュリティセンターの設定もあわせて確認してください。

Q3. マクロを有効にしてもエラーが続きます。

マクロを有効にしてもエラーが続く場合、VBAコード内の他の部分に問題があるかもしれません。デバッグモードでコードを一行ずつ実行し、どの部分でエラーが発生しているか特定してみてください。

Q4. 写真やオブジェクトをExcelに貼り付けようとするとエラー400が出ます。

外部の問題の結果として、Excel で Visual Basic エラー 400 が発生している可能性があります。Excelファイルでマクロや外部リンクを使用していないか確認してください。また、Excelの修復インストールやOfficeの更新を試みることも有効な対処法です。

Q5. フォームを連続して切り替えたいのですが、どうすれば安全ですか？

複数のUserFormを連続表示する場合は、前のフォームをHideまたはUnloadしてから次のフォームをShowするのが基本です。UserFormの表示が終了した後に次のUserFormを表示するという手順を踏むことが、エラーを回避するための基本的なアプローチです。

' 複数フォームの安全な切り替え例
Private Sub btnNext_Click()
    Me.Hide           ' 現在のフォームを非表示に
    UserForm2.Show    ' 次のフォームを表示
End Sub

まとめ

Excelマクロの実行時エラー’400’は、発生原因が多岐にわたるため一見対処が難しく感じますが、原因のパターンを知っておくことで冷静に対処できます。

最も多い原因はUserFormの二重Show（モーダル表示の競合）で、MicrosoftのVBAリファレンスでも明確に定義されているエラーです。次いでCellsのインデックス誤り、存在しないシートへの参照、マクロの無効化設定、アドインの問題などが続きます。

ブレークポイントとステップ実行を使いこなすことで、どの行でエラーが発生しているかを素早く特定できます。また、Option Explicit の記述や適切なエラーハンドリングの実装を習慣化することで、将来的なエラーの発生を大幅に減らすことができます。

本記事のチェックリストを上から順番に確認していくことで、ほとんどのケースでエラー400を解消できるはずです。もし解決しない場合は、新規ファイルへのコード移行やExcelの修復インストールも視野に入れてみてください。