حذف رسالة الحفظ

[جوده]

الاخوة الافاضل ارجو التكرم بمساعدتى فى الاتى

وجدت فى هذا المنتدى الكريم كيفية عمل رساله افتتاحية وعند تطبيقها على الكنتر شيت الخاص بى والذى يتكون من عشرة اوراق عمل وجدت بهة ثغرة وهى كلاتى عندما ادخل مستخدم وسرى خطا قبلى ان يغلق البرنامج كما كان اجده يظهر رسالةتفيد هل تريد الحفظ 000لا000الغى الامر وعند الضغط على زر لا يتم فتح البرنامج بالرغم من ان الرى خطا

هل اجد لديكم الحل بارك اللة فيكم

[جوده]

برجاء مساعدتى فى ايجاد كود يغلف الملف بدون طلب الحفظ مباشرة

رجاء هل يمكن اضافة كود غلق الملف الى كود الشاشة الافتتاحية الذى قام بعمله الاستاذ احمد فى هذا المنتدى

تم تعديل مايو 1, 2010 بواسطه goda509129

[أبوعبد الله]

أخي العزيز

إذا كنت تريدالإغلاق بدون ظهور رسالة الحفظ مع الحفظ الفعلي للملف فقم بوضع هذا الكود بملفك من محرر ال VB من thisworkbook بفتحه بنقرة مزدوجة ثم لصق الكود به وهو :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False

ActiveWorkbook.Save

Application.DisplayAlerts = True

End Sub

تحياتي

أبو عبدالله

[أبوعبد الله]

أخي العزيز

إذا كنت تريدالإغلاق بدون ظهور رسالة الحفظ مع عدم الحفظ الفعلي للملف فقم بوضع هذا الكود بملفك من محرر ال VB من thisworkbook بفتحه بنقرة مزدوجة ثم لصق الكود به وهو :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.EnableEvents = False

ActiveWorkbook.Saved = True

Application.EnableEvents = True

End Sub

تحياتي

أبو عبدالله

[جوده]

اخى عبداللة لااجد كلام يعبر عن مدى شكرى واحترامى لك غير بارك اللة فيك وفى امثالك وفى هذا المنتدى الجميل الذى يضم الاساتذة امثالك شكرا لكم