ارتباط المصنف بمصادر بيانات اخرى

[رشا يوسف]

انا بعمل مرتبات المعلمين  ، عند فتح ملف اكسل تظهر رساله  : يحتوى الملف على ارتباطات بمصادر بيانات اخرى 

ويوجد ثلاث اختيارات 

1 تحديث البيانات   2 - عدم القيام بالتحديث       3 - تعليمات 

وعند الضغط على تحديث لقطع الارتباط تظهر رسالة اخرى مكتوب عليها تحرير الارتباط  وعند الضغط على قطع الارتباط   وعمل الاغلاق المصنف  وعند فتحة مرة اخرى تظهر نفس الرسالة 

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

[ياسر خليل أبو البراء]

الأخت الفاضلة رشا

إليك كود يقوم بإنشاء ورقة عمل جديدة ويضع فيها كل الروابط الخارجية المرتبطة بالمصنف

Sub ListExternalLinks()
    Dim WB As Workbook
    Dim Link, xIndex As Long
    Set WB = Application.ActiveWorkbook

    If Not IsEmpty(WB.LinkSources(xlExcelLinks)) Then
        WB.Sheets.Add
        xIndex = 1
        For Each Link In WB.LinkSources(xlExcelLinks)
            Application.ActiveSheet.Cells(xIndex, 1).Value = Link
            xIndex = xIndex + 1
        Next Link
    End If
    
    Columns(1).AutoFit
End Sub

وإليكي كود يقوم بكسر كل الروابط الخارجية الموجودة داخل المصنف ولكن راعي انه سيتم تحويل القيم المرتبطة بهذه المصنفات إلى قيم اي أن الارتباط سيفقد مع المصنف الآخر

Sub BreakExternalLinks()
    Dim ExternalLinks As Variant
    Dim WB As Workbook
    Dim X As Long
    Set WB = ActiveWorkbook
    
    ExternalLinks = WB.LinkSources(Type:=xlLinkTypeExcelLinks)
    
    For X = 1 To UBound(ExternalLinks)
        WB.BreakLink Name:=ExternalLinks(X), Type:=xlLinkTypeExcelLinks
    Next X
End Sub

تقبلي تحياتي

[أبوبسمله]

جزاك الله خيرا اخى ياسر

ولاثراء الموضوع الطريقه اليدويه

بالتوفيق