اخفاء شيتات مرتبطه لاتعمل ؟

[أبوبسمله]

فى حين اخفاء الشيتات المرتبطه فان الارتباط لايعمل فهل هناك حل لهذه المشكله 

مرفق ملف قمت باخفاء شيت المنطقه منه 

 

1New.rar

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

السلام عليكم أخي الفاضل

اعمل كليك يمين على ورقة العمل Sheet1 ثم اختر الأمر View Code والصق الكود التالي ..

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
    
    On Error Resume Next
    Sheets(strSheet).Visible = True
    Sheets(strSheet).Select

End Sub

Private Sub Worksheet_Activate()
    Dim WS As Excel.Worksheet

    For Each WS In ThisWorkbook.Worksheets
        If WS.Name <> "المراجعه" Then
            WS.Visible = (WS.Name = Me.Name)
        End If
    Next
End Sub

تقبل تحياتي

تم تعديل أغسطس 8, 2015 بواسطه ياسر خليل أبو البراء

[أبوبسمله]

بارك الله فيك وجزاك الله كل خير 

وجعله الله فى ميزان حسناتك 

ماشاء الله وزادك الله من علمه 

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

جزيت خيراً على دعائك الطيب المبارك

والحمد لله الذي بنعمته تتم الصالحات

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