مطلوب كود لاظهار رسالة عند اختيار خلية محمية

[tar70]

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

[عبدالفتاح في بي اكسيل]

لماذا  الكود   طالما  يمكنك  ذلك  بعمل  حماية  تحديد  الخلايا 

[tar70]

نعم الخلية محمية  وتم عمل كود لجعل  الخلية غيى محمية فى حالة ادخال بيانات بخلية اخرى 

اى عدم ازالة الحماية للخلية الا بعد ادخال بيانات خلية اخرى

والمطلوب رسالة  توضح الخلية المطلوب ادخال بياناتها حتى تزول حماية الخلية

[tar70]

مرفق شيت للتوضيح

final 1.xlsm

[عبدالفتاح في بي اكسيل]

ما فائدة ارفاق  ملف  محمي  كيف  سنضع  لك  الكود 

جرب  هذا  الكود  على حسب ما فهمت

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Intersect(Target, Range("a1:b10")) Is Nothing Then Exit Sub
    MsgBox "this cell is protected,pleace unprotect it " & Target.Address
    
End Sub

 

[أ / محمد صالح]

حسب فهمي للمطلوب 

يمكنك إضافة هذا الشرط لحدث عن تغير التحديد

If Target.Column > 6 And Target.Column < 14 And Target.Row > 2 Then
For Each c In Range("f" & Target.Row & ":m" & Target.Row)
If Not c.Locked Then MsgBox "يرجى إنهاء أعمال " & Cells(1, c.Column) & " أولا": Exit For
Next c
End If

للعلم يتم جلب قيمة الصف الأول في العمود المسموح بتعديله قبل كلمة أولا

بالتوفيق