الرجاء المساعده

[جمال احمد محمود قطب]

اغلاق الشيت بدون ظهور رسالة هل تريد حفظ التغييرات

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

السلام عليكم

جرب الكود التالي 

Sub SaveCloseAllOpenWorkbooks()
    Dim Wb As Workbook

    With Application
        .ScreenUpdating = False
            For Each Wb In Workbooks
                With Wb
                    If Not Wb.ReadOnly Then
                        .Save
                    End If
    
                    If .Name <> ThisWorkbook.Name Then
                        .Close
                    End If
                End With
            Next Wb
        .ScreenUpdating = True
        .Quit
    End With
End Sub

 

[جمال احمد محمود قطب]

انا جربت اكثر من كود ولم يعمل الرجاء ادراج شيت جاهزة بالكود وشكرا

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

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

Sub Close_Files()
    Application.DisplayAlerts = False
        ThisWorkbook.Save
    Application.DisplayAlerts = True

    If Workbooks.Count = 1 Then
        Application.Quit
    Else
        ThisWorkbook.Close
    End If
End Sub

الرد بعد 10 أيام .. صدقني أنا نسيت الموضوع أصلاً

حاول تتابع الموضوع لأن كل ما بعدت المسافة في الرد كلما نسيت .. الزهايمر ربنا يكفيك شره