حماية الخلية تلقائى بعد الكتابة بها للأهمية

[nawafabufars]

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

هذا ملف في المرفقات اريد ان عرف كيف ادخل كود يمكن تحديد نطاق محدد لحماية الخلية بعد الكتابة عليها.

من يستطيع يفيدني أكون له شاكرا

جزيتم خيرا أحبتي..

اقتراح موعد لاجتماع شرح التقرير الشهري.xlsm

[Ali Mohamed Ali]

وعليكم السلام-فقط يمكنك استخدام هذا الكود بحدث الصفحة

وكلمة السر عند الحاجة هى 123

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("C6:G8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub

 

اقتراح موعد لاجتماع شرح التقرير الشهري1.xlsm

[nawafabufars]

شكرا جزيلا استاذي علي 

طريقة واضحه وسلسة أكرمك الله..