リンクを強制解除させるマクロコード
Sub myBreakLink()
'アクティブブックの外部 ExcelBookへのリンクを全て値に変換する
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