كود لتفعيل اكواد عند اغلاق البرنامج

[محمود أبوالدهب]

السلام عليكم ورحمة الله وبركاته

ارجوا من سيادة الاعضاء الافاضل بعد التكرم 

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

وشكرا لسعت الصددر

اسماء  اكواد الحذف هي

deleted_program_padge1

DELET_MENA7_and_motagamed

deleted_somwafaa

deleted_anseba_yadwy

deleted_mostafed

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

تحياتى لاسرة المنتدى الكرام 

[أ / محمد صالح]

يمكنك استعمال حدث قبل الإغلاق الخاص ب thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'your code here
End Sub

 

[محمود أبوالدهب]

 

شكرا جزيلا يعمل جيدا 

ستاذنا الغالى محمد لا يخفى عليى وجهكم لكريم ما تقدموه من مساعده وشكرا لمساعدتكم وجزاكم الله كل الخير

استفسار بسيط كيف الغي تلك الرسالة لانها كل مرة اقوم فيه بحفظ الملف تخرج لى وشكرا مرة اخري

تم تعديل مايو 16, 2017 بواسطه محمود أبوالدهب

[أ / محمد صالح]

 File > Options > Trust Center > Trust Center Settings > Privacy Options > Remove personal information from file properties on save > OK.

[محمود أبوالدهب]

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

 

[أ / محمد صالح]

لا أعتقد أنه يوجد كود يتحكم في هذا الأمر