تعديل كود حماية للاستاذ سليم حاصبيا

[عاطف عبد العليم محمد]

Dim tt As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Not Intersect(Target, Range("PRot_range")) Is Nothing And Target.Address <> "$A$1" Then
m = Target.Count
c = [AA1]
k = tt
If IsEmpty(k) Then GoTo 1
If m * c >= 1 Then
        Application.EnableEvents = False
     my_pass = Application.InputBox(" لا يمكن التعديل في هذه الخلية.... " _
     & Chr(10) & "الا بحالات خاصة تتطلب كلمة مرور", "password")
      If my_pass = "pass" Then GoTo 1
        Application.Undo
        Application.EnableEvents = True
       
End If
    End If
1:
Application.EnableEvents = True
End Sub
_____________________________________________________________________
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tt = Selection.Value
End Sub

السلام عليكم 

يقول الاستاذ سليم بارك الله فيه 

كي توقف عمل الكود و يعود كل شيء الى طبيعته امسح محتويات الخلية AA1 (غير مرئية)

لإعادة عمل الكود اكتب في الخلية AA1 الرقم 1

اذا أردت تغيير قيمة خلية غير فارغة سوف يطلب منك كلمة المرور     أكتب  pass

كل ذلك في المدي من A1الى Z225

والسؤال كيف يمكن تغيير مدى الحماية فلم  اجد  في الكود a1 الى z225 

وهل ممكن ان يوجد اكثر من مدى للحماية  مثلا من a1 الى d10  ومن a15 الى d25

 

[Ali Mohamed Ali]

أخى الكريم لماذا لا ترى الملف اذا رأيت الملف لوجدت ان مدى معرف مسبقا

 

وهذا هو الملف

 

protect non empty data with Pass word.xlsm

[عاطف عبد العليم محمد]

أخي  ali mohamed ali  

وفقك الله 

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

وقد اجبت على سؤال وبقي سؤال اريد ان اضع تعريف المدى داخل الكود ويكون اكثر من مدى 

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

[Ali Mohamed Ali]

يمكنك زيادة وكتابة اى مدى تريد هنا على المدى القديم المعرف سابقا وسوف يعمل الكود بكل دقة على المدى الجديد فقط كما بالصورة عليك بعمل هذه الفصلة , بين كل مدى واخر فى التعريف

 

[عاطف عبد العليم محمد]

أخي  ali mohamed ali  

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