اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

 

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

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

 

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

 

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

 

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

الادارة

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

 

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

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

 

سارفق مثال

نموذج.zip

رابط هذا التعليق
شارك

اخي ابو نواف

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

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

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

رابط هذا التعليق
شارك

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

السلام عليكم

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

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

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

تم تعديل بواسطه سعيد بيرم
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

فعليك بالأتي

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

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

رابط هذا التعليق
شارك

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

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

Sheet.Visible = False

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

رابط هذا التعليق
شارك

السلام عليكم

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

 

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

 

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

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


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

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information