Приватное Sub Worksheet_Change (цель ByVal как ряд)
На errHandler ошибки переход
Application.EnableEvents = ложно
Если Target.Column = 12 и Target.Count = 1 после этого
Звонок UnProtect
Если "" <> Target.Value после этого гребет, то (Target.Row). Заперто = True
Звонок защищает
Еще
Закончитесь если
законченный:
Application.EnableEvents = True
Выходите подводная лодка
errHandler:
MsgBox Err.Number & «-» & Err.Description
Законченное резюме
Подводная лодка конца
|