كود اخفاء؟؟؟؟

[نجيب عبدالله]

تحيه عامره لاصحاب المنتدى الرائع وجميع الاساتذه الكرام

ماخفي عليكم عن اعجابي بهذا الصرح في هذا المنتدى ومن اشد المتابعين له ،والحمدلله تعلمت اشياء كثيره بفضل الله وثم بفضلكم ،

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

ارجوا أن اجد ضالتي لديكم حيث حاولت كثيرا ولم اتوفق...والشكر مقدما

وكل الود والاحترام،،،

[نزار سليمان عيد]

السلام عليكم

اخي الكريم انظر للمرفق

مع الشكر

ابو خالد

________________2__________5_2_.rar

[نجيب عبدالله]

يشرفنا الاخ نزار على ردك هذا المعهود بيكم

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

ارجوا اني وضحت وجهة طلبي.

كل الود والاحترام،،،،

[نجيب عبدالله]

استاذي ...

هذا شرح ماريد بالظبط إذا فيه إمكانية لذلك

مع الشكر

___________________________________________.rar

[احمدزمان]

السلام عليكم

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

و انا متأكد انك سوف تعود وتستخدمة لاحقا

المهم

طلبك كما فهمته تم تنفيذة في المرفق

Sub File1()
    Sheets("ورقة1").Visible = True
    Sheets("ورقة1").Select
        With ActiveWindow
        .DisplayHeadings = False 'اخفاء رئوس الصفوف و الأعمدة
        .DisplayWorkbookTabs = False 'اخفاء علامات تبويب الأوراق
    End With
End Sub

Sub File2()
    Sheets("ورقة2").Visible = True
    Sheets("ورقة2").Select
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

آمل ان يكون هو المطلوب

مع خالص الشكر و التقدير للأستاذ الفاضل / نذار سليمان عيد

_________________.rar

[نجيب عبدالله]

بالظبط هذا ما اريد...

انا عاجز عن الشكر والتقدير في ظل سعيكم بمساعدة الاعضاء في هذا المنتدى الرائع،

وتأكد كل ماورد عنك وعن الاساتذه من معلومات وتعديل ستكون وارد مهم في تطوير المعلومات المتواضعه لدينا،،

لا عدمناك استاذنا احمد يعقوب وكل الشرف لي لتلبية طلبي,

وتحيه ايضا للاستاذ نزار سليمان.

كل الود والتقدير،،،،