كود قائمة باسماء الصفحات

[أيهاب ممدوح]

السلام عليكم 

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

لكن الهيبر لينك لا يعمل في حاله اخفاء الصفحات 

المطلوب عند الضغط علي اسم الصفحه المخفيه يعمل الكود وعند الضغط علي كلمه الرئيسيه يخفي الصفحه والعوده الي الصفحه الرئيسيه

شكراNew Microsoft Excel Worksheet.xlsx

[سليم حاصبيا]

الملف الذي رفعته لا يحتوي على اي كود

انه بصيغة xlsx

و لكن اليك الكود المناسب لهذا الأمر

Option Explicit
Sub ADD_SH_with_Hyper()
'code to add Sheets One Time WITH HYPERLINKS
'Crated By Salim Hasbaya On 7/10/2019
Dim Rg As Range
Dim sh As Worksheet
Dim LA%, i%
Set sh = Sheets("SALIM")
LA = sh.Cells(Rows.Count, 1).End(3).Row
For Each Rg In sh.Range("A2:A" & LA)
    If Rg.Value <> "" Then
        If Not Application.Evaluate("ISREF('" & Rg.Value & "'!A1)") Then
            Sheets.Add(after:=Sheets(Sheets.Count)).Name = Rg.Value
            With ActiveSheet
            .Hyperlinks.Add Anchor:=.Range("c2"), Address:="", SubAddress:= _
              "SALIM!A1", TextToDisplay:="Goto SALIM"
              .Columns(3).AutoFit
            End With
        End If
    
    End If
Next Rg

With Sheets("SALIM")
    .Hyperlinks.Delete
   For i = 2 To LA
    .Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", SubAddress:= _
    .Range("A" & i) & "!A1", TextToDisplay:=.Range("A" & i).Value
   Next
   .Select
End With
End Sub

الملف مرفق

 

create_sh_with_hyperxlsx.xlsm

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit
Dim check%

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Columns(1)) Is Nothing _
    And Target.Count = 1 Then
      Call IsHyperlink(Target)
        If check Then
         Sheets(Target & "").Visible = True
        Target.Hyperlinks(1).Follow
        End If
End If
Application.EnableEvents = True
End Sub
Sub IsHyperlink(r As Range)
check = r.Hyperlinks.Count
End Sub

الملف مرفق للتجربة

TEST_HYPER.xlsm

[سليم حاصبيا]

لا أعلم بالضبط اذا كان هذا المطلوب

 

Only_one_sheet.xlsm

[الـعيدروس]

السلام عليكم

تفضل

Hepr_Ali2.xlsm

[أيهاب ممدوح]

اخي عيدروس 

جزاك الله كل خير

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

هو المطلوب بالفعل

[أيهاب ممدوح]

الاستاذ سليم

الكود المرفق يعمل جيدا في كل الامور

ولكن اريد من حضرتك عند الضغط علي كلمه الرئيسيه (في اي صفحه في خليه D4) ان يخفي الصفحه التي ضغط علي كلمه الرئيسيه وينتقل الي الصفحه التي بها القائمه باسماء الصفحات

TEST_HYPER2.xlsm

[سليم حاصبيا]

تفضل ما تريد

 

Hide_all_.xlsm