Изменить значение ячейки на залоченом листе

[zavhoz]

всем привет!

Столкнулся со следующей проблемой:

Есть залоченный лист, на котором в 5 ячейках содержаться числовые значения.

Необходимо сделать так, что бы при нажатии на кнопку (ну, например) стало бы возможно внести изменения в эти ячейки (при сохранении неприкосновенности остальных ячеек - т.е. разлочить только эти 5).

Есть вариант: написать макрос, который разлочил бы лист, принял изменения, залочил. Но этот способ не очень красивый - при разлочивании появляется возможность изменить значения в остальных ячейках.

Не приходит в голову какой-нибудь альтернативный вариант? Может, вводить значения через форму дополнительную?

[EducatedFool]

Назначьте двум кнопкам эти макросы:

Sub РазблокируемНужныеЯчейки()
    ActiveSheet.Unprotect "123"
    ActiveSheet.Cells.Locked = True
    [c17:f17].Locked = False
    ActiveSheet.Protect "123"
End Sub

Sub БлокируемВсеЯчейки()
    ActiveSheet.Unprotect "123"
    ActiveSheet.Cells.Locked = True
    ActiveSheet.Protect "123"
End Sub

123 - это пароль защиты листа

[IgorGO]

для примера

[zavhoz]

Спасибо, ребят!

Буду пробовать