ماهي كيفية قطع الإرتباطات

[حماده سعد الله]

السلام عليكم ورحمة الله وبركاته

أحبائي في الله أريد أن أعرف ماهي كيفية قطع الإرتباطات بملف مرتبط بملف آخر 

علما بأن رسالة قطع الارتباط لا تظهر

rttyt.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

الملف الذي أدرجته ليس فيه ارتباطات خارجية مع ملفات أخرى وأوراقه و VBA فيه غير محمية....

والله أعلم

بن علية حاجي 

[حمادة عمر]

السلام عليكم

الاخ الكريم / حماده سعد الله

بالفعل كما قال الاستاذ القدير /بن علية حاجي ... جزاه الله خيرا

ملفك لا يوجد به ارتباطات ولكن لزيادة الافادة وتنفيذ طلبك فالرد علي استفسارك ستجده علي روابط الموضوعات التالية

فبها ما تريد ان شاء الله

 

[حماده سعد الله]

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

أتمني من الله أن أكون استطعت توصيل طلبي هذه المرة

 

والموديول من أحد خبراء المنتدي

 

Sub COPY_TO_FILE_ONLY()
    Dim xPath As String
    Dim SH As Worksheet
    xPath = Application.ActiveWorkbook.Path
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
' الشيت الاول
    Set SH = Sheets("كشف 2 ج أدبي مستجد")
        With SH
            .Copy
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Application.ActiveWorkbook.Close False
        End With
        
        
  ' الشيت الثاني
            Set SH = Sheets("كشف المناداة أدبي مستجد")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        With SH
            .Copy
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Application.ActiveWorkbook.Close False
        End With

' الشيت الثالث
    Set SH = Sheets("كشف 2 ج أدبي معيد")
        With SH
            .Copy
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Application.ActiveWorkbook.Close False
        End With
        
' الشيت الرابع
    Set SH = Sheets("كشف المناداه أدبي معيد")
        With SH
            .Copy
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Application.ActiveWorkbook.Close False
        End With
        
        
  ' الشيت الخامس
            Set SH = Sheets("كشف 2 ج أدبي من الخارج")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        With SH
            .Copy
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Application.ActiveWorkbook.Close False
        End With

' الشيت السادس
    Set SH = Sheets("كشف مناداه أدبي من الخارج")
        With SH
            .Copy
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xls", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Application.ActiveWorkbook.Close False
        End With
        
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

تم تعديل أكتوبر 21, 2017 بواسطه حماده سعد الله