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

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

قام بنشر

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

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

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

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

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

قام بنشر

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

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

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

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

قام بنشر

السلام عليكم

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

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

المهم

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

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

قام بنشر

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

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information