كيفية عمل ملف اكسل ذاتي الحفظ " بيحفظ لوحده "

بحيث لا داعي لحفظ الملف مع كل تعديل فالملف و يقوم بحفظ نفسه عند الاغلاق من خلال استخدام كود vba ..


وده الكود المستخدم ...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Save
 Application.Quit
End Sub

و الخطوات كما بالصورة :
بعدفتح شيت الاكسيل يتم الضغط على Alt + f11 هتظهر قائمة microft visual basic  ومنها يتم اختيار
this workbook من VBA ويتم كتابة الكود السابق كما بالصورة ويتم حفظ الماكرو فـ الشيت ....

أضغط للتكبير 

وده طريقة وصيغة حفظ ملف الاكسيل 

وطبعاً كل ما تفتح ملف الاكسيل لازم تشغل الماكرو ......# كما بالصورة #

أتمنى ان الكود يفيدك وتقدر تتطبقه  .... و يمكنك تحميل شيت التطيبق من " هنا "  وبالتوفيق ان شاء الله