استفسار عاجل عن حماية خلية

[alexandrien]

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

اخواني الكرام 

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

حيث ان لدي ملف به بعض الخلايا محمية من التعديل فيها وأرغب حذف التأمين والحماية بمجرد الكتابة في خلية محددة.

هل يمكن عمل هذا ؟

أرجو ممن لديه المعلومة أن يشرحها لما 

وجزاه الله الجنة بغير حساب.

 

[سليم حاصبيا]

ريما تحتاج الى هذا النموذج

(يمكن ان تعدل على الماكرو كما تشاء)

الماكرو

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("a1:d10")) Is Nothing Then
With ActiveSheet
    .Unprotect
    .Cells.Locked = False
    For Each Cell In ActiveSheet.UsedRange
        If Cell.Value = "" Then
            Cell.Locked = False
        Else
            Cell.Locked = True
        End If
    Next Cell
    .Protect
End With
End If
End Sub

الملف

 

protect entry.xlsm