مطالبة "كيفية منع حفظ التغييرات" عند إغلاق مصنف في Excel

مثال 1: إغلاق المصنف دون حفظ التغييرات

لفرض إغلاق مصنف دون حفظ أي تغييرات، اكتب التعليمات البرمجية التالية في وحدة Visual Basic لهذا المصنف:
 

    Auto_Close الفرعي()

        ThisWorkbook.Saved = True

    End Sub

عند تعيين الخاصية محفوظة إلى True، يستجيب Excel كما لو أن المصنف قد تم حفظه بالفعل ولم تحدث أي تغييرات منذ الحفظ الأخير.


يمكن استخدام خاصية DisplayAlerts للبرنامج لنفس الغرض. على سبيل المثال، يقوم الماكرو التالي بإيقاف تشغيل DisplayAlerts، وإغلاق المصنف النشط دون حفظ التغييرات، ثم تشغيل DisplayAlerts مرة أخرى.
 

    Sub CloseBook()

        Application.DisplayAlerts = False

        ActiveWorkbook.Close

        Application.DisplayAlerts = True

    End Sub

يمكنك أيضا استخدام الوسيطة SaveChanges للأسلوب Close.

يقوم الماكرو التالي بإغلاق المصنف دون حفظ التغييرات:
 

    Sub CloseBook2()

        ActiveWorkbook.Close savechanges:=False

    End Sub

مثال 2: إغلاق المصنف وحفظ التغييرات

لإجبار مصنف على حفظ التغييرات، اكتب التعليمات البرمجية التالية في وحدة Visual Basic لهذا المصنف:
 

    Auto_Close الفرعي()

        إذا كان ThisWorkbook.Saved = False ثم

            ThisWorkbook.Save End If

    End Sub

يتحقق هذا المستند الفرعي لمعرفة ما إذا تم تعيين الخاصية File Saved إلى False. إذا كان الأمر كذلك، فقد تم تغيير المصنف منذ الحفظ الأخير، ويتم حفظ هذه التغييرات.