إجمالي مرات مشاهدة الصفحة

الأحد، 17 أبريل 2016

حفظ وإغلاق كل المصنفات المفتوحة 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

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

هناك 5 تعليقات:

  1. استاذ ياسر محتاج كود يحدد تاريخ لصلاحية الملف بدون تغيير تاريخ الكنبيوتر

    ردحذف
  2. وجزيتم خيراً بمثل ما دعوتم لي
    بالنسبة لكود تاريخ الصلاحية ..يمكن الاعتماد على عدد مرات فتح المصنف بعدها تنتهي صلاحية الملف أما الاعتماد على التاريخ فسيكون غالباً مرتبط بتاريخ الجهاز

    ردحذف
  3. وبارك الله فيك أخي الكريم ..مشكور لمرورك العطر بالمدونة

    ردحذف