هل هناك طريقة متبعة عند دمج عدة اكواد تحت Private Sub Workbook_Open()

[skyblue]

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

في القائمة this workbook يوجد كودخاص بالحماية واخفاء الاشرطة وغيره ولدي ايضا كودين اخرين لابد من تسجيلها في this wokbook

السؤال هو كيف ادمج الكود1 والكود 2 مع الكود الموجود في this workbook

ارجوا التكرم بالافادة وجزاكم الله خير

book66.rar

[ابو اسامة العينبوسي]

السلام عليكم

بما ان الملف قيد التجربه

الرجاء تعطيل اكواد اخفاء الاشرطه و ما شابه

[skyblue]

استاذ اسامة حفظك الله

مرفق ملف حسب المطلوب

تحياتي لك

book66.rar

book66.rar

[skyblue]

للرفع

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

هناك حل قد ينجح

و لكن اى الامرين تريد تنفيذه أولا ؟

السلام عليكم

[skyblue]

تحياتي لك استاذ هادي سالم

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

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

تحياتي لك

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

جرب انشاء Private Sub لل الكود الخاص بتغيير مستوى الماكرو و سميه مثلا My_Open_01

ثم انشئ Private Sub لل الكود الخاص ب الكود الخاص باقفال البرنامج و سميه مثلا My_Open_02

ثم فى Sub Auto_Open قم باستداء الاجراءان كالتالى

Sub Auto_Open

My_Open_01

My_Open_02

End Sub

السلام عليكم

[skyblue]

اولا جزاك الله وعنا وعن كل المسلمين خيرا على اعطائي جزء من وقتك ورديت على مشاركتي

ثانيا : حاولت ان اجرب الحل كما قلت ولكن لم يضبط معي لانه ربما انا مخطئ في شي بسبب نقص خبرتي في الاكواد

لذا ارفقت لكم ملف بالكودين + البرنامج أمل التكرم بالتعديل على الملف

تحياتي

________________.rar

____________________.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

عفوا اخى فأنا لا أجيد التعديل على الملفات

السلام عليكم

[skyblue]

جزاك الله خير

[skyblue]

up