مكتبة الموقع - حماية الورقة

[checles]

اعرض الملف

حماية الورقة

---

السلام عليكم 

برجاء المساعدة في كود لو الخانات هذه بها بيانات يتم منع تغير فيها  او مسحها لو الخانه ليس بيها بيانات يتم السماح   بالدخال فيها

---

• صاحب الملف
  checles
• تمت الاضافه
  15 ينا, 2024
• الاقسام
  قسم الإكسيل

 

[إيهاب عبد الحميد]

وعليكم السلام ورحمة الله وبركاته
يمكن أن يفيدك هذا الفيديو من استاذنا الخلوق أحمد فاروقhttps://www.youtube.com/watch?v=2cy2YfmFlzQ

 

وهذا هو الكود الذي تم الشرح عليه

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
ActiveSheet.Unprotect Password:="111"
Target.Locked = True
ActiveSheet.Protect Password:="111"
End If
End Sub