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

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

عندما اريد الحفظ التلقائى للشيت  اذهب الى الحدث bfore close ثم اكتب save وفى هذه الحالة يتم حفظ التغييرات بمجرد غلق الشيت
اما فى هذه الحالة اريد ان اعرف كيف اغلق الشيت بدون ان يتم الحفظ وايضا بدون ان تظهر الرسالة التقليدية (هل تريد حفظ التغييرات)
وارجو ارسال ملف (شيت) جاهز بما طلبت وشكرا

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

السلام عليكم

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

Sub CloseAllOpenWorkbooksWithoutSave()
    Dim Wb As Workbook

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
            For Each Wb In Workbooks
                With Wb
                    .Close False
                End With
            Next Wb
        .ScreenUpdating = True
        .DisplayAlerts = True
        .Quit
    End With
End Sub