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

[ابراهيمالديب]

السلام عليكم ورحمة الله وبركاته 
الاخوة الاعضاء مساعدة ضرورية  جداااااااااااااااااااااااااااا 

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

وشكرا 

ارجو الربط   واخفاء باقي اوراق العمل ويكون التنقل من خلال الروابط فقط

[خالد الرشيدى]

السلام عليكم

اخى الكريم .. اهلاً بك بين اخوانك بالمنتدى

يرجى الاطلاع على التوجيهات بالموضوعات المثبته  ..  للتعامل مع المنتدى بشكل افضل

قم برفع الملف واشرح به المطلوب تفصيلاً وان شاء الله تجد المساعده

تقبل مرورى

[ابراهيمالديب]

1 دقيقه مضت, خالد الرشيدى said:

السلام عليكم

اخى الكريم .. اهلاً بك بين اخوانك بالمنتدى

يرجى الاطلاع على التوجيهات بالموضوعات المثبته  ..  للتعامل مع المنتدى بشكل افضل

قم برفع الملف واشرح به المطلوب تفصيلاً وان شاء الله تجد المساعده

تقبل مرورى

شكرا اخي خالد  برفع جزء من الملف   للايضاح  ومساعدتي عاجلا 

رابط صفحات.rar

[ابوحمزه المصرى]

افضل الحل التالى لعله المطلوب

من قائمة ملف - خيارات - خيارات متقدمه - الغاء تنشيط الخيار التالى كما بالصورة

[كريم ناصف]

اخي العزيز ابراهيم الديب 

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

وان شاء الله يحل مشكلتك

وطبعا تقدر تغير وتأقلمة علي موضوعك

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

 

تم تعديل مارس 7, 2016 بواسطه كريم ابو هني

[خالد الرشيدى]

السلام عليكم

بعد اذن الاخوة .. جزاهم الله خيراً

اخى الكريم جرب الملف التالى علة المطلوب

رابط صفحات.rar

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

أخي الكريم ابراهيم الديب

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

جرب الكود التالي ...يوضع في حدث ورقة العمل التي تحتوي على الارتباطات التشعبية لأوراق العمل الأخرى

'Steps:
'[Main][Sheet1][Sheet2][Sheet3] قم بإنشاء أربعة أوراق عمل
'في ورقة العمل الرئيسية قم بعمل ارتباط تشعبي لكل أوراق العمل الأخرى
'[Main] قم بإخفاء أوراق العمل كلها ما عدا ورقة العمل الرئيسية المسماة
'يوضع الكود في حدث ورقة العمل الرئيسية ويقوم الكود بإظهار الشيت الهدف
'---------------------------------------------------------------------
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

تقبل تحياتي