حفظ وإغلاق كل المصنفات المفتوحة Save & Close All Open Workbooks

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

إليكم كود يقوم بحفظ كل المصنفات المفتوحة ثم يقوم بإغلاق تطبيق الإكسيل بحيث يغلق كل المصنفات المفتوحة مرة واحدة.

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

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء