طلب عاجل كود إخفاء شيت بباسوورد

[يوسف عطا]

قمت بعمل ملف به عدة شيتات

إستخدمت أحد الأكواد من الأخ خبور خير ويعمل بكفاءة بحيث يجعل أحد الشيتات لا يفتح إلا بباسوورد

أريد أن استخدم نفس الكود فى ورقة أخرى داخل نفس الملف

كيف أقوم بذلك تفصيلياً

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

[عبدالله باقشير]

السلام عليكم

استخدم هذا الكود في كود الورقة التي تريد اغلاقها

ويمكنك تغيير كلمة المرور لكل ورقة حسب ماتريد

Private Sub Worksheet_Activate()
On Error Resume Next
Dim XX As String, S As String
Dim K As Integer, N As Integer
Me.Columns.Hidden = True
For K = 1 To 3
    XX = InputBox(Prompt:="فضلا ادخل كلمة المرور", Title:="المحاولة رقم:" & K)
    If XX = "" Then
        Sheets("Main").Select
        Exit Sub
    ElseIf XX <> "kh" Then
        N = 3 - K
        If N = 0 Then S = "" Else S = "متبقي عدد " & N & " محاولة"
        MsgBox "كلمة المرور ليست صحيحة" & Chr(13) & Chr(13) & S, vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "عفواً"
    Else
        Exit For
    End If
Next K
        
If K = 4 Then
     Sheets("Main").Select
    Exit Sub
Else
    Me.Columns.Hidden = False
End If
On Error GoTo 0
End Sub

في المرفق تم استخدامه في الورقة b و الورقة d

تفضل المرفق

aman.rar

[يوسف عطا]

عزيزى الغالى خبور بك خير

جاء ردك على إستفسارى فى هذا الجو الشديد الحرارة كأنه نسمة هواء عليل

بارك الله فيك وأرضاك

[يوسف عطا]

عزيزى الغالى

مرفق الملف

الكود يعمل فى ورقة ولا يعمل فى الورقة الثانية

أرجو تحديد سبب الخطأ وإصلاحه جازاك الله خيراً

أعتذر عن إزعاجك

____________________________________.zip