كود حفظ تلقائي قبل الاغلاق

[amir501]

السلام عليكم

اخواني جزاكم الله كل خير

هل يمكن جعل اكسل يحفظ تلقائي عند الضغظ على اشارة الاغلاق (x) دون ضهور اي رسالة

وجزيتم خيرا

[عبدالله المجرب]

ان شاء الله يكون هذا هو المطلوب

Close.rar

[عبدالله المجرب]

المرفق للخروج والحفظ من زر ال (X)

Book1.rar

[amir501]

المرفق للخروج والحفظ من زر ال (X)

جزاك الله كل خير اخي الكريم

لكن اشارة ال (X) الصغيرة الموجودة في الصفحة عند اغلاق الصفحة من هذه الاشارة ظهرت لي رسالة هل تريد الحفظ

ارجو ايجاد كود لهذة المشكلة

ولك مني ولاخوتنا في هذا المنتدى كل الشكر والاحترام

[عادل حنفي]

السلام عليكم

اخي

اجعل الكود بهذا الشكل

Private Sub Workbook_BeforeClose(Cancel As Boolean)



Application.DisplayAlerts = False

ThisWorkbook.Save

    Application.Quit

End Sub

  

تحياتي

[عبدالله المجرب]

شكراً استاذنا الكبير عادل على هذه المعلومة

[amir501]

اخواني جزاكم الله عني كل خير

اعطيتم فاوفيتم جعلها الله في رصيد حسناتكم

[MOSTAFA1986]

اسف اساتذنا بس جربت الكود ليه مش شغال؟

[وليد فتحي]

اسف اساتذنا بس جربت الكود ليه مش شغال؟

أي الفاضل مصطفي

أوفس 2007 وما اعلاه

امتداد الملف لابد أن يكون xlsm أو xlsb لكي يعمل الماكرو أو الكود

أي أنه لابد من حفظ الملف بصيغة

Excel Macro-Enabled Workbook 

واذا كان حجم الملف كبير وتريد تصغير حجمه أحفظ الملف بصيغة

Excel Binary  Workbook

حتي يعمل معك الماكرو بصورة سليمة على أوفس 2007 وما اعلاه

تقبل مروري

[MOSTAFA1986]

شكرا على الاهتمام والرد جارى التجربة

[أبو أنس80]

عمل رائع تسلم يدك 

فكرة جميلة

[الشيباني1]

اخواني الاعزاء  تحية طيبه عند الحفظ بهذا الكود يتم الحفظ والخروج لكافة الملفات المفتوحه  هل يمكن التعديل ليتم الاجراء لملف محدد ضمن الكود ( مثلا ملف بأسم ترحيل ) وسيتم حفظه في المسار (  E: جديد ) مع الشكر