السلام عليكم اساتذتي الكبار
أتمنى انكم بأفضل حال
الملف المرفق به كود حماية عمود برقم سري
لكن اريد ان اكرر الكود على عامودين مختلفين بارقام سرية مختلفة ولم استطع العواميد عندي
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