このブックには、安全ではない可能性のある外部ソースへのリンクが 1 つ以上含まれています。の対処法！

そんなときに困ることは、

ですね。

この警告は、ブックが別のファイル（外部ブック）を参照しているときに表示されます。

危険なウイルスというわけではありませんが、リンク元のファイルを差し替えられるとデータが書き換わるため、内容を確認せずに更新するのは避けたいところです。

今回はそんなお悩みを解決する、

についてまとめます！

エラーについて

実際に外部リンク入りのブックを開くと、こちらの警告が表示されます。

上の画像が、問題の警告ダイアログです（実機で撮影しました）。

– 更新する(U) … リンク先のファイルを読みに行って値を更新します
– 更新しない(N) … 保存されている値のまま表示します
– ヘルプ(H) … ヘルプが開きます

この記事では、このリンクを安全に解除して警告を出なくするところまで進めます。

この警告が出る原因

原因はシンプルで、ブックの数式が「別のファイル」を参照していることです。

数式バーを見ると、次のような参照が入っています。

='D:\集計\[参照元_売上実績.xlsx]売上'!C2*B2

外部リンクができる主なきっかけ

> ④が一番厄介で、自分で作った覚えがなくても警告が出ます。まずは「何を参照しているか」を確認するところから始めましょう。

検証用のサンプルデータ（コピペ用）

下の2つの表を、それぞれ別々のブックとして保存すると、外部リンクを再現できます。

1つめは「参照元」のブックです（参照元_売上実績.xlsx として保存）。

2つめは「リンクを張る側」のブックです（sample_外部リンクあり.xlsx として保存）。

D2セルに次の数式を入れて、下の行へコピーすると外部リンクが作成されます。

='C:\集計\[参照元_売上実績.xlsx]売上'!C2*B2

※ パスの部分（C:\集計\）は、実際に保存したフォルダに合わせて変更してください。

保存して開き直すと、冒頭の警告ダイアログが表示されます。

STEP1. まず何を選ぶべきか

結論から言うと、心当たりがないときは「更新しない」を選んでください。

STEP2. どこにリンクがあるか確認する

マウス操作で確認する場合は、次の手順です。

「リンクの編集」がグレーで押せない場合は、そのブックに外部リンクが無い（＝警告の原因が別にある）ということです。

その場合は、名前の定義にリンクが残っている可能性があります。

STEP3. VBAでリンクを一覧にする

リンクが複数あると、1つずつ確認するのは手間です。

そこで、VBAでリンク先を一覧にしてしまうのがおすすめです。

Sub 外部リンクを一覧にする()
    Dim links As Variant, i As Long

    links = ThisWorkbook.LinkSources(xlExcelLinks)

    If IsEmpty(links) Then
        MsgBox "このブックに外部リンクはありません"
        Exit Sub
    End If

    Range("A1:D1").Value = ("No", "リンク先ファイル", "種類", "状態")
    For i = LBound(links) To UBound(links)
        Cells(i + 1, 1).Value = i
        Cells(i + 1, 2).Value = links(i)
        Cells(i + 1, 3).Value = "Excel ブック"
        Cells(i + 1, 4).Value = "リンクあり"
    Next i
    Columns("B:B").ColumnWidth = 52

    MsgBox UBound(links) - LBound(links) + 1 & "件の外部リンクがあります"
End Sub

実行すると、このようにリンク先が一覧になります。

「一覧にした結果、身に覚えのないファイルが入っていた」というときは、更新せずに解除するのが安全ですね。

STEP4. VBAでリンクを一括解除する

一覧で確認できたら、そのまま一括で解除できます。

Sub 外部リンクを一括解除する()
    Dim links As Variant, i As Long

    links = ThisWorkbook.LinkSources(xlExcelLinks)
    If IsEmpty(links) Then
        MsgBox "解除するリンクはありません"
        Exit Sub
    End If

    For i = LBound(links) To UBound(links)
        ThisWorkbook.BreakLink Name:=links(i), Type:=xlLinkTypeExcelLinks
    Next i

    MsgBox "外部リンクを解除しました（値はそのまま残ります）"
End Sub

実行結果がこちらです。

解除後に残った外部リンクは0件になりました。

STEP5. 解除できたか確認する

解除後に数式バーを見ると、数式が「値」に変わっているのが分かります。

画像の数式バーには 1184000 とだけ表示されています。

解除前は =’D:\集計\[参照元_売上実績.xlsx]売上’!C2*B2 という数式だったのが、値そのものに置き換わりました。

これで参照元のファイルを移動しても削除しても、このブックは壊れません。

STEP6. 警告を出さないようにする（設定）

「解除はしたくないけれど、警告は止めたい」という場合は、Excelの設定で止められます。

設定で止めるのは対症療法で、根本解決にはなりません。
リンクを外してしまえば毎回の確認も出なくなるのでカンタンですね。

リンク自体が不要なら、STEP4の解除までやってしまうのが一番すっきりします。

うまくいかないときの対処法（トラブルシュート）

実際に試すと、思ったようにいかないこともあるかもしれません。

よくあるつまずきと対処法をまとめました。

よくある間違い

エク短流：リンクの確認と解除をまとめて実行する

実務では「一覧で確認 → 問題なければ解除」を1回で済ませたいところです。

次のコードは、リンクを一覧に書き出し、確認メッセージで「はい」を選んだときだけ解除する例です。

Sub リンクを確認して解除する()
    Dim links As Variant, i As Long, msg As String
    Dim bk As Workbook
    Set bk = ThisWorkbook

    links = bk.LinkSources(xlExcelLinks)
    If IsEmpty(links) Then
        MsgBox "このブックに外部リンクはありません"
        Exit Sub
    End If

    ' ① 先に控えを取っておく（解除は戻せないため）
    bk.SaveCopyAs bk.Path & "\" & _
        Left(bk.Name, InStrRev(bk.Name, ".") - 1) & "_リンク解除前.xlsm"

    ' ② 一覧をシートに書き出す
    Range("A1:C1").Value = ("No", "リンク先ファイル", "状態")
    For i = LBound(links) To UBound(links)
        Cells(i + 1, 1).Value = i
        Cells(i + 1, 2).Value = links(i)
        Cells(i + 1, 3).Value = "リンクあり"
        msg = msg & i & ". " & links(i) & vbCrLf
    Next i
    Columns("B:B").ColumnWidth = 52

    ' ③ 確認してから解除する
    If MsgBox("次の外部リンクを解除しますか？" & vbCrLf & vbCrLf & msg, _
              vbYesNo + vbQuestion) <> vbYes Then
        MsgBox "解除を中止しました（一覧だけ残しています）"
        Exit Sub
    End If

    For i = LBound(links) To UBound(links)
        bk.BreakLink Name:=links(i), Type:=xlLinkTypeExcelLinks
    Next i

    MsgBox "解除しました。値はそのまま残っています"
End Sub

① 先に控えを取る → ② 一覧を出す → ③ 確認してから解除 の順にすると、万一のときも安心です。

解除は戻せない操作なので、この流れをボタンに割り当てておくと運用がラクになりますね。

タカヒロ

この警告は、ウイルスではなく「別のファイルを見ていますよ」というお知らせです。
慌てずに「更新しない」で開いて、リンクを解除してから保存する。この順番だけ覚えておけば大丈夫ですよ。

さいごに

今回は、Excelで「安全ではない可能性のある外部ソースへのリンクが1つ以上含まれています」と表示されたときの対処法をまとめました。

警告は「危険だから必ず消す」ものではなく、リンクが必要かどうかを判断する合図です。

不要なリンクは解除して、配布先でも警告が出ないブックにしておきたいですね。

リンクを解除してスッキリさせたいときは、この手順をぜひ試してみてください。

最後までお読みいただきありがとうございました。