(تمت الاجابة) إخفاء أوراق العمل والتنقل بينها من الشيت الرئيسي

[سيد الأكرت]

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

مرفق.rar

[أبو أنس حاجب]

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

أخي الفاضل أنظر المرفق لعله المطلوب

أبو أنس

تنقل بين الصفحات.rar

[جمال عبد السميع]

بعد أذن أحي أبو أنس بصراحة حاولت لنفسي كثيرا وقرأت أكثر لصنع كود إخفاء وإظهار للصفحات لم أجد أجمل ولاأروع من عمل عالمنا الجليل ( خبور خير) في هذا الكود

أليك أخي إحدي روائعة

مرفق 2.rar

[سيد الأكرت]

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

تم تعديل يونيو 12, 2012 بواسطه سيد تيجر

[سيد الأكرت]

شكرا لك أستاذ محمود وبارك الله لك

[أبو أنس حاجب]

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

أخي الفاضل حفظك الله

راجع المرفق أرجو أن يكون ماتتمنى

أبو أنس

تنقل بين الصفحات2.rar

[سيد الأكرت]

شكري لا يوفيك حقك بارك الله لنا فيك وحفظك الله من كل سوء والمرفق هو عين المطلوب والمراد

[mk_mk_79]

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

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

وشكراً لك

[أحمد فؤاد]

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

أفكار جميلة ورائعة

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

[أبو ردينة]

ماشاء الله تبارك الله

حلول كلها ممتازة

جزاكم الله خيرا أخي أبو أنس و أخي محمود و الشكر موصول لأستاذنا خبور خير

[سيد الأكرت]

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

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

وشكراً لك

الكود أخي موجود في المشاركة 6 للأستاذ أنس جزاه الله خيرا بعد فتح الملف اضغط ALT+F11 ثم اذهب الى حدث THISWORKBOOKسوف تجد الكود المطلوب ويمكنك تغيير الصفحة الرئيسية باي صفحة تريدها

[MAHMOUD ALI YOUSSEF]

السلام عليكم

اكواد رائعة

جزاكم الله كل خير :fff:

[احمد غانم]

سلمت يداك اخي الكريم

ارجو معرفة كيفية اضافة شيت جديد و جعل الكو يعمل عليه

كذلك اذا اردت الكود ان يعمل على ملف موجود اصلاً و فية اكثر من 6 شيتات

شكراً لك و اعذرني على التنسيق ...

بالمناسبه ارجو مساعدة الخبراء اذ يبدو ان ادوات التنسيق و التحرير غير موجودة

على الأقل عندي على الصفحة؟؟؟؟؟؟؟؟؟؟؟

[أبو محمد عباس]

السلام عليكم

اخواني الاعزاء انا حاولت ان اجعل الملف يفتح على الصفحة الرئيسية وادخلت الكود الموجود في المشاركة 6 للاستاذ والاخ ابو انس حاجب حفظه الله ولكنه تعارض مع الفورم لكلمة المرور وهي (1) والاسم (1) ارجو مساعدتي بجعل الفورم يفتح اولا لكلمة السر ثم يجبر بعدها بفتح الصفحة الرئيسية وهي للاستاذ الفاضل المبدع رجب دام عزه ومنها الانتقال الى الصفحات الاخرى وتقبلوا دعواتي لكم بالصحة والعافية

ودمتم بحفظ الله ورعايته

شاشة افتتاحية واظهار الصفحة الرئيسية.zip

[أبو أنس حاجب]

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

أخي الفاضل عباس السماوي حفظك الله

أجعل الكود على هذا الشكل من الترتيب

Private Sub Workbook_Open()

UserForm1.Show

On Error Resume Next

For Each sh In Worksheets

sh.Visible = xlSheetHidden

Sheets("abbas").Visible = True

Next

End Sub

أخي الفاضل أحمد غانم حفظك الله

بالنسبة لاضافة اي عدد من الاوراق سوف يقوم الكود باخفاءها جميعا واظهار فقط الورقة الموجود اسمها في الكود وهي هنا "abbas" أي بدل هذه الكلمة في الكود وضع أسم الورقة التي تريد أن يفتح الملف عليهاعوضا عنها.

الأخوة أعلاه بلا أستثناء جميعاً حفظكم الله وجميع أساتذة وأعضاء منتدانا الحبيب

أرجو المعذرة على التقصير

أبو أنس

[أبو محمد عباس]

السلام عليكم

الاخ العزيز والاستاذ ابو انس حاجب بارك الله فيك وجزاك الله خيرا قمت بالتعديل والعمل ممتاز جعله الله في ميزان حسناتك

ودمتم بحفظ الله ورعايته

[أبو محمد عباس]

السلام عليكم

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

وانا اعلم بان المشاركة يجب ان تكون بلا كلمة سر ولكن اعذروني لانني خفت ان احذفها ولا استطيع اعادة كتابتها لقلة معرفتي بالاكواد(كلمة السر 1 والرقم السري 1)

ودمتم بحفظ الله ورعايته

كلمة سر1 والرقم 1شاشة افتتاحية استاذ انس حاجب.zip

[أبو أنس حاجب]

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

أخي الفاضل حفظك الله

أنسخ هذا السطر في بداية الكود الذي فيه هذه المشكلة أخبرني بالنتيجة

Application.ScreenUpdating = False

أبو أنس

[أبو محمد عباس]

السلام عليكم

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

ودمتم بحفظ الله ورعايته

[المجلس]

يا جماعة  السلام عليكم

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

[مالك عمر]

عمل رائع بجد مشكور  ليكم

ممكن كود اظهار فورم لكل شيت داخل الاكسيل اقدر من خلاله اسجل البيانات اللي انا عايزها

بمعني عايز احول برنامج من اكسيل الي vba شكلا

لكم جزيل الشكر والتقدير

 

 

 

[ابو عمر ال]

1. اقتباس

    

 

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