حماية الخلية بمجرد الكتابة فيها.xls
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
ActiveSheet.Unprotect "excel"
For Each c In Target
If c <> "" Then c.Locked = True
Next c
ActiveSheet.Protect "excel"
End Sub
Posted
by Abdo Kera
