مساعدة في كود إخفاء أسماء جميع الشيتات مع التنقل بينها بالكومبو بوكس

[محمد هشام.]

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

أستاذتنا الأفاضل  ارجوا المساعدة في كود إخفاء أسماء جميع الشيتات مع إمكانية التنقل بينها بالكومبو بوكس أو أزرار الماكرو الموجودة داخل الملف 

لقد تم رفع ملف يشرح الفكرة 

test-2.xlsm

[محمد حسن المحمد]

11 ساعات مضت, Hicham1470 said:

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

 

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

من File>>Options>>Advanced>>Show sheet tabs 

تلغي التحقق من خانة التحقق كما في الصورة أدناه.

[محمد هشام.]

الفكرة المراد تنفيذها على الملف   في جميع الشيتات 

وكل combo box وأزرار الماكرو الموجودة عندي 

Activex Combo box.xlsm

[محمد هشام.]

المطلوب  تزويدي بكود يتم وضعه في مربع السرد يمكنني من  التنقل بين أوراق العمل المخفية باستخدام مربع التحرير  combo box  وأزرار الماكرو والبقاء دائما على الورقة النشطة فقط في تبويب أسماء الشيتات وعند الدخول لأي شيت آخر بواسطة الكومبوبوكس أو الأزرار يتم إظهاره هو فقط وإخفاء الآخر وهكذا.. ....وشكرا لكم .

[محمد حسن المحمد]

السلام عليكم أخي الكريم

يرجى معاينة الملف التالي بعد التعديل عليه

أرجو أن يناسبك الحل

Activex Combo box.xlsm

[محمد هشام.]

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

[محمد حسن المحمد]

الحمد لله الذي بنعمته تتم الصالحات

🌿🌿🌿🌿🌴🌴🌴🌴💐💐🌴🌴🌴🌴🌿🌿🌿🌿