أرجو المساعدة حذف الارتباطات؟

[mrahmedyoussef1]

عندي ملف عمل بيشتغل فقط على اللاب توب وعند استخدامه  على جهاز اخر لايعمل والسبب وجود ارتباطات مع ملفات اخرى لا اريدها

السؤال ؟

كيف يمكن عمل الملف بشكل صحيح وحذف جميع الارتباطات لعدم تكرار نفس المشكلة ؟؟؟ 

جزاكم الله خيرا وكل عام وانت بخير 

[عبدالفتاح في بي اكسيل]

جرب  هذا  الكود 

sub delete_externallinks()
With ActiveWorkbook
    For Each lnk In .LinkSources(Type:=xlLinkTypeExcelLinks)
     .BreakLink Name:=lnk, Type:=xlLinkTypeExcelLinks
    Next
End With
end sub