مساعدة في اخفاء ملفات

[ابو نواف959]

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

 

اخواني لدي ملف اكسيل مكون من 10 صفحات

الصفحة الاولى هي الرئيسية وبها ازرار مرتبطة ارتباط تشعبي لباقي الصفحات

 

س / هل اقدر اخفي جميع الصفحات بستثنى الصفحة الاولى مع عمل الارتباطات التشعبية

 

اتمنئ واضحة الفكرة

[حمادة عمر]

برجاء اخي الكريم

ارفاق ملف للعمل عليه

وان شاء  الله  ستجد الحل كما تريد

تقبل خالص تحياتي

[حمادة عمر]

وبرجاء الاطلاع علي الرابط التالي

لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع

http://www.officena....showtopic=41520

 

==============

الادارة

==============

[سليم حاصبيا]

السلام عليكم 

تفضّل أخي ربما كان هذا المطلوب

اخفاء الصفحات من 2 الى 10.rar

[ابو نواف959]

السلام عليكم

اخ حمادة الرابط يودي الى نفس الصفحة

بشان تغير الاسم الى العربية باذن الله رح اغيرة

 

اخ سليم الي ارسلته نفس الفكرة الي ابحث عنها

اتمنى تعلمني كيف بتفصيل لان عندي اعمل كثيرة تحتاج الى التطبيق

 

سارفق مثال

نموذج.zip

[سليم حاصبيا]

اخي ابو نواف

الحل بسيط جداَ

افتح الملف الذي ارسلته لك

اضغط  Alt+f11  و انسخ الكودات الى الملف الجديد (نفس الكود يتكرر و لا يتغير سوى رقم الصفحة)

[أبو سجده]

الاخ الفاضل / ابو نواف

السلام عليكم

يمكنك متابعة الرابط التالى

http://www.officena.net/ib/index.php?showtopic=53505#entry336348

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

تم تعديل يونيو 1, 2014 بواسطه سعيد بيرم

[ابو نواف959]

الصفحات عندي بمسميات عربية مو ارقام

وكل ما غيرت ما تزبط

[سليم حاصبيا]

لا مشكلة ضع في القائمة  اسماء الصفحات لا أرقامها (في نفس الخلايا من الصفحة الرئيسية)

يعني مثلاً بدل  sheet4  اكتب حسابات اذا كان عندك صفحة بهذا الاسم

[ابو نواف959]

تم التطبيق بنجاح

 

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

وعند اخفاء الصفحات لا تعمل الروابط التشعبية في الصفحة الرئيسية

[أبو إيمان]

بعد إذن الأساتذة الأفاضل

إذاا كنت تعمل على ملف الاستاذ سليم 

فعليك بالأتي

اظهار الورقة المراد تغيير اسمها أولا ثم تغيير اسمها  ثم الانتقال للرئيسية وتغيير اسم الرابط الموصل لها وليس العكس

ويجب أن يكون الاسم في الرئيسية مطابق لاسم الورقة الجديد

[ابو نواف959]

لا ان اشتغل على مرفقي

[أبو إيمان]

لابد من وضع كود يقوم باظهار الصفحة

[ابو نواف959]

صحيح اخوي

[ابو نواف959]

نرجوا من الجميع المشاركة لايجاد حل

[أبو إيمان]

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

أو يمكنك وضع الصيغة التالية في حدث الضغط على الزر

Sheet.Visible = False

حيث sheet اسم ورقة العمل المراد إظهارها

[ابو نواف959]

تفظل اخي

 

نموذج.zip

[أبو إيمان]

تفضل أخي الفاضل المرفق

واعتذر عن الصيغة الخاطئة للكود في مشاركتي السابقة

 

 

نموذج 001.rar

[ابو نواف959]

بارك الله فيك وفي مجهودك

 

ولاكن للاسف اذا استخدمت التنقلات تظهرات الصفحات تحت معاد تختفي

 

نحتاج كود يخفي الصفحات اخفاء نهائي مع تفعيل الروابط لتنقلات

[سليم حاصبيا]

آملاً ان ينال اعجابكم

نموذج معدل.rar

[عبدالله باقشير]

السلام عليكم

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

 

لاثراء الموضوع

 

يمكنك استخدام هذا الكود لجميع الازرة

فهو يستخدم الاسم الذي على الزر للاستعلام عن اسم الورقة

Sub Kh_Sheets_Go()
On Error Resume Next
Dim Kh_Name As String
Kh_Name = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
With Sheets(Kh_Name)
    .Visible = xlSheetVisible
    .Select
End With
On Error GoTo 0
End Sub

المرفق 2010

نموذج.rar

[ابو نواف959]

بارك الله فيك اخوي هذا هو المطلوب

الله يجزاك الجنة ويكثر من امثالك

الله يحقق امنياتك ويشرح صدرك ويدخلك من فسيح ابواب جنته

[ابو نواف959]

باقي مشكلة حل التوافق

 

تخرب شكل الملف

علماً استخدم اكسيل 2010

 

هل من حل

[ابو نواف959]

هل التوافق سببه الاصدار

تم تعديل يونيو 5, 2014 بواسطه ابو نواف959

[أبو إيمان]

أستاذنا العلامة جزاكم الله خيرا

 

 

 

باقي مشكلة حل التوافق

 

تخرب شكل الملف

علماً استخدم اكسيل 2010

 

هل من حل

  أخي أبو نواف ماذا تقصد ؟