خطأ في الكود رح يطير مخي مش عارف وينو

[samoxz]

السلام عليكم
في الملف المرفق 4 صفحات
Summary                       Password=283

اضفت كود لاخفاء الصفحات و قفلها مساعدة تشات جي بي تي

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


 

Lesson plan V1 Draft.xlsm

[AmirMohamed]

المشكلة يا عزيزي انك عند استدعاء اسم الشيت تستدعيه داخل علامه تنصيص و بجواره A1  ، لذلك تم تعديل بعض الأشياء في هذا الكود لكي يتم استبعاد A1  وعلامه التنصيص   

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    Dim targetSheetName As String
    Dim password As String
    Dim sheetNameParts() As String

    ' Extract the sheet name from the hyperlink address and trim any spaces
    targetSheetName = Trim(Target.SubAddress)

    ' Split the name by the delimiter (usually "!")
    sheetNameParts = Split(targetSheetName, "!")

    ' Take only the first part as the sheet name
    If UBound(sheetNameParts) >= 0 Then
        targetSheetName = Trim(sheetNameParts(0))
    End If

    ' Remove any single quotes from the sheet name
    targetSheetName = Replace(targetSheetName, "'", "")

    ' Debugging: Print the target sheet name to the Immediate Window
    Debug.Print "Target Sheet Name: " & targetSheetName

    ' Ask for password
    password = InputBox("Enter the password to access this sheet: " & targetSheetName)

    ' Check if the target sheet is available and the password is correct
    If LCase(targetSheetName) = LCase("Hassen Barrah") And password = "50" Then
        UnhideAndUnprotectSheet targetSheetName
    Else
        MsgBox "Incorrect password. The sheet will remain hidden.", vbCritical
    End If
End Sub

هذا الملف بعد التعديل 

تحياتي

Lesson plan V1 Draft.xlsm

[محمد هشام.]

بطريقة اخرى دون الاعتماد على الارتباط التشعبي يكفي اظافة اسم أوراق العمل على العمود A   وعند الظغط سيتم اظهار مربع لادخال كلمة المرور مباشرة 

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

 

 

Lesson plan V1 Draft.xlsm