حماية الخلية بعد الكتابة مباشرة

[oawam]

مكرو يعمل حماية للخلية بعد الكتابة عليها

[هشام شلبى]

السلام عليكم

===========

استخدم هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Locked = False Then

   Me.Unprotect Password:="123"

   Target.Locked = True

   Me.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True

 End If

End Sub

حماية بعد الكتابة مباشرة.rar

[oawam]

يسلمو والف شكر