مشكلة في الارتباط و اخفاء الشيتات

[ahmedhossin]

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

و لكن عندما اريد اخفاء الشيتات الاخري لا تظهر لي حتى اعيد اظهارها 

الملف مرفق اخواني جزاكم الله خيرا 

 

كشف التلاميذ الحاضرين 2023--2024 (1).xlsx

[محمد هشام.]

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

جرب هل هدا ما تقصده 

Const Main As String = "الرئيسية "
Sub destination(WSname As String)
    Dim WS As Worksheet, f As Worksheet, srcWS As Worksheet
    Set srcWS = Sheets(Main)
    Application.ScreenUpdating = False
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name = WSname Then
            Set f = WS
            Exit For
        End If
    Next WS
    
    On Error Resume Next
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name <> WSname Then WS.Visible = xlSheetVeryHidden
    Next WS
    On Error GoTo 0
    
    f.Visible = xlSheetVisible: f.Activate
    If srcWS.Visible = xlSheetVisible And WSname <> Main Then srcWS.Visible = xlSheetVeryHidden
    Application.ScreenUpdating = True
End Sub

Sub GoToMainSheet()
    Sheets(Main).Visible = xlSheetVisible
    destination Main
End Sub
Sub GoToPage1()
    destination "كشف التلامي الحاضرين صفحة 1"
End Sub
Sub GoToPage2()
    destination "كشف التلامي الحاضرين صفحة 2"
End Sub
Sub GoToPage3()
    destination "الدخول و الخروج خلال الشهر"
End Sub
Sub GoToPage4()
    destination "المعلومات العامة"
End Sub

وفي حدث ThisWorkbook

Private Sub Workbook_Open()
    Dim WS As Worksheet
    Const srcWS As String = "الرئيسية "
    For Each WS In ThisWorkbook.Worksheets
        WS.Visible = IIf(WS.Name = srcWS, xlSheetVisible, xlSheetHidden)
    Next WS
End Sub

 

كشف التلاميذ الحاضرين 2023--2024.xlsb

[ahmedhossin]

جزاك الله خيرا و اعطاك اخي الكريم تقبل تحياتي الكبيرة 

 

[ahmedhossin]

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

إلى الرئيسية اجد ملف الرئيسية هكذا بارك الله فيك لا يوجد شئ 

 

[محمد هشام.]

قمت بتجربة الملف يشتغل معي بدون أدنى مشكلة على العموم جرب هدا  

Sub SrcWS(WSname As String)
    Dim WS As Worksheet, tmp As Boolean
    tmp = False
    SetApp False
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name = WSname Then tmp = True: Exit For
    Next WS
    For Each WS In ThisWorkbook.Worksheets: WS.Visible = xlSheetVisible
    Next WS
    For Each WS In ThisWorkbook.Worksheets: If WS.Name <> WSname Then WS.Visible = xlSheetVeryHidden
    Next WS
    Sheets(WSname).Activate
    SetApp True
End Sub
Sub GoToMain()
    SrcWS "الرئيسية "
End Sub
Sub GoToWS1()
    SrcWS "كشف التلامي الحاضرين صفحة 1"
End Sub
Sub GoToWS2()
    SrcWS "كشف التلامي الحاضرين صفحة 2"
End Sub
Sub GoToWS3()
    SrcWS "الدخول و الخروج خلال الشهر"
End Sub
Sub GoToWS4()
    SrcWS "المعلومات العامة"
End Sub
Private Sub SetApp(ByVal Enable As Boolean)
    On Error Resume Next
    Application.ScreenUpdating = Enable
    Application.EnableEvents = Enable
    Application.Calculation = IIf(Enable, xlCalculationAutomatic, xlCalculationManual)
End Sub

 

كشف التلاميذ الحاضرين 2023--2024.xlsb