エクセルのリンクを削除したいですが、

エクセルファイルを開いたら、「このブックには更新出来ないリンクが一つ以上含まれています。」と
表示されますが、どうすれば良いでしょうか？

質問者からの補足コメント

• 

  シートが保護されていたので、保護を解除したら「リンク解除」が現れまして、
  ほとんどのリンクは解除できましたが、一部のリンクはやはり解除することが
  できませんでした。どうすればよろしいでしょうか？

  No.2の回答に寄せられた補足コメントです。 補足日時：2015/11/23 08:41

No.3 ベストアンサー 回答者： haijin1996 回答日時： 2015/11/23 10:48

>一部のリンクはやはり解除することが

>できませんでした。
リンクが解除されなかたったことがわかる何かの表示があるのならその表示を補記してください。

名前付き範囲に由来する場合もあります。
Ctrl＋F3 で「名前の管理」が開きますので、リストの中にリンクになるようなものがあれば削除してください。

面倒なら#1のマクロを使ってください。確実です。

この回答へのお礼

解決出来ました！
本当にありがとうございました！！

お礼日時：2015/11/25 17:01

No.2 回答者： haijin1996 回答日時： 2015/11/19 17:24

>確かにリンクを解除したいのですが、

>「リンクの解除」ボタンがクレイになっていて解除できません。
ダイアログの「リンク元」にいくつかリストがある状態ですよね？
そのリストの一つを選択した状態でも「リンクの解除」がグレーアウトしているのでしょうか。

シートやブックが保護されているかもしれません。

この回答へのお礼

そうでした、保護されていました。
本当にありがとうございました。大変お世話になりました！

お礼日時：2015/11/19 22:53

No.1 回答者： haijin1996 回答日時： 2015/11/19 15:02

その更新できないリンクを捜して修正したいのですか？

それとも更新できないリンクをすべて削除したいのですか？

前者
http://www.saka-en.com/office/excel-exclude-link/

後者ならwebで拾ったマクロ
http://menushowdelay.blog.fc2.com/blog-entry-248 …
Sub myBreakLink()
'アクティブブックの外部 ExcelBookへのリンクを全て値に変換する
'Excel2002 のみ (2003/11/03 pPoy)
Dim strLinks As Variant
Dim i As Long, cnt As Long
Dim stDocName As String

' Excelリンクのみ対象とする
strLinks = _
ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(strLinks) Then
cnt = UBound(strLinks)
stDocName = cnt & _
" 件の外部ブックへのリンクがあります。" & _
vbNewLine & "全て解除し、値に変換してよろしいですか？"
If MsgBox(stDocName, vbYesNo) = vbNo Then Exit Sub

For i = 1 To cnt
' アクティブブックのリンク解除
ActiveWorkbook.BreakLink _
Name:=strLinks(i), _
Type:=xlLinkTypeExcelLinks
Next i
MsgBox cnt & " 件のリンクを解除しました。", vbOKOnly
End If
End Sub

この回答へのお礼

早速のご回答、ありがとうございました。
確かにリンクを解除したいのですが、
「リンクの解除」ボタンがクレイになっていて解除できません。、
どうしたら良いでしょうか？

お礼日時：2015/11/19 16:15