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

[farisddd]

السلام عليكم اساتذتي الكبار

أتمنى انكم بأفضل حال

 

الملف المرفق به كود حماية عمود برقم سري

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

L

Z

Ai

اريد كل عامود برقم سري مختلف

 

ارجو منكم المساعدة

 

هذا شكل الكود عندي

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim pwd As String:  pwd = "1800"
If Me.[T1] Then Exit Sub
    If Not Application.Intersect(Target, Range("L:L")) Is Nothing Then
   
   
        If Application.InputBox("برجاء إدخال كلمة المرور لدخول لاعتماد البيانات", "تصريح دخول الورقة") <> pwd Then


        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
         MsgBox "عفوا ليس لديكم الصلاحية لاتمام هذا الاجراء"
   
    Else
             MsgBox "تم الاعتماد بنجاح"

    End If
     End If

End Sub

عنوان مخالف... تم تعديل عنوان المشاركة ليدل عما تطلب , من فضلك انتبه لهذا الأمر

 

حماية العمود الأول.xls