сначала у всех ячеек снять блокировку: формат ячеек - защита - Защищаемая ячейка. а код поместить в модуль листа, на котором должна работать защита. Соотв. измените RangeToWatch
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Option Explicit
Const RangeToWatch = "A1:B4" 'диапазон, где должна работать защита
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range(RangeToWatch)) Is Nothing Then
ActiveSheet.Unprotect
If Not Target.Value = "" Then
Target.Locked = True
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
