عمل ارتباط تشعبي لأوراق العمل المخفية

[moustafa sayed Gad]

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

[ياسر خليل أبو البراء]

أخي الكريم

أهلا ومرحبا بك في المنتدى

يرجى الإطلاع على رابط التوجيهات

كما يرجى تغيير اسم الظهور للغة العربية

 

قم بإرفاق نموذج مصغر من الملف للإطلاع عليه وإفادتك بعمل اللازم

تقبل تحياتي

[ياسر خليل أبو البراء]

أخي الفاضل مصطفى سيد جاد

إليك الكود التالي عله يكون المطلوب

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim strSheet As String
     
    If InStr(Target.Parent, "!") > 0 Then
        strSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strSheet = Target.Parent
    End If
     
    Sheets(strSheet).Visible = True
    Sheets(strSheet).Select
End Sub

Private Sub Worksheet_Activate()
    Dim WS As Excel.Worksheet
     
    For Each WS In ThisWorkbook.Worksheets
        WS.Visible = (WS.Name = Me.Name)
    Next
End Sub

يوضع الكود في حدث ورقة العمل الرئيسية

وإليك الملف المرفق لتوضيح الأمر

 

لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

لا تنسى أن تنقر كلمة "أعجبني هذا" في المشاركة التي أعجبتك

 

تقبل تحياتي

Hide All Sheets & Unhide When Click On Hyperlink.rar

[محمد حسن المحمد]

السلام عليكم أخي أبو البراء الحبيب:

كود جميل يختصر مسافات على من كان عنده أوراق عديدة في مصنف واحد إضافة إلى حفظ البيانات

الهامة ويكاد يكون هذا السؤال قريب من سؤال الأخ محمد الرشيدي الذي يحتوي ملفه العديد من الأوراق

راجياً لك التوفيق والسداد بعون الله وفضله..

ثم إنني أسأل ما بها العربية حتى يراها البعض ثقلاً لا يلتزم به إلا بمراجعة التوجيهات ...وهل يحتاج أي منا للدلالة على قلبه 

الذي ينبض بنسغ حياته ؟ أليست لغة القرآن الكريم الذي نتعبد الله به؟ ولغة سيد البشر الذي نتبع نهجه؟!...

تقبل تحياتي...السلام عليكم.

[ياسر خليل أبو البراء]

أخي الحبيب أبو يوسف

بارك الله فيك وجزيت خير الجزاء على مرورك الكريم والعطر بالموضوع ، وتشجيعك الدائم لابن من أبناءك (اسمح لي أن أنال هذا الشرف)

 

اللغة العربية لغة القرآن كما أخبرت ويجب التمسك بها والحفاظ على هويتنا .. لكن للأسف اتبعنا الغرب وأصبحنا نقلدهم ، ويا ليتنا نقلدهم فيما ينفعنا بل فيما يضرنا ويضر إسلامنا في غالب الأحيان

تقبل ودي وحبي واحترامي

[محمد حسن المحمد]

السلام عليكم أخي وحبيبي في الله أبو البراء:لدي ثمانية من الأولاد والبنات ولي الشرف أن تكون أخاهم الأكبر

وهذا الابن الغالي هوالابن الوحيد الذي حاز على مرتبة مرموقة من العلم أما أولئك فقد حرموه قسراً بعد أن كنت أرجو منهم خيراً كثيراً

ألا تسترعي انتباهك ابتسامة بادية على محيّا أبيك الذي يحبك...هذا الظاهر للعيان أما القلب فقد ملئ حزناً وألماً ما لا يعلمه إلا الله تعالى.

وعلى فكرة سأصبح جداً إن شاء الله تعالى خلال الأشهر القادمة.

تقبل ودي واحترامي وحبي...

[ياسر خليل أبو البراء]

حبيبي في الله أبو يوسف

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

وأكثر من قول : لا إله إلا أنت سبحانك إني كنت من الظالمين

لك مني خالص الود والتقدير والاحترام