Скрыть или запретить для изменения

[nicuav]

Помогите пожалуйста как заделать чтобы ячейка где находиться формула (сумы - в нашем случае) при случайном кликание на ней не могла была бы изменена. Это требуема для того чтобы могли работать люди которые не имеют понятие о excele. Проблема в том что сделал кое какие таблицы но после заполнения их 60леней работницей приходится таблицы Зонова переделать.
Типовую таблицу вставил. Вот где сума 13 надо как-то закрепить или …. Но чтобы в документе можно было добавлять , вставлять, и … что либо делать.
За ранние благодарен.

[IgorGO]

знаете как написать формулу суммы - это хорошо, и ничего не знаете о защите листа - это плохо. садитесь удобнее, расскажу:
1.отмечаете все ячейки
2.правая кнопка, "формат ячеек", закладка "защита", снимаете птицу защищенная ячейка
3.удерживая CTRL, отмечаете все ячейки (строки, столбцы), которые надо защитить
4.правая кнопка, "формат ячеек", закладка "защита", ставите птицу защищенная ячейка
5.правой кнопкой по имени листа, "защитить лист" (можете еще пароль навесить, чтобы враги не поломали защиту, но готовьтесь, если защитили лишних ячеек, надо будет либо пароль рассекретить и рассказать как снять защиту, либо побегать по компьютерам, внести исправления)

это не единственно возможный вариант защиты листа, а один из...

удачи!

[nicuav]

Спасибо за ответ. Но если защитить лист то так появляется другая проблемка, не работает функция группировки, которая нужна для работы в данном документе.
Типовую таблицу вставляю.

За ранние благодарен.

[Астроном]

Коллега, посмотрите может так будет правильно

[nicuav]

Астроном спасибо за внимания но я писал если защитить лист то так появляется другая проблемка, не работает функция группировки

[nicuav]

Проблем осталось открыта

[R Dmitry]

Сообщение от nicuav

Проблем осталось открыта

как вариант
в модуль "Лист1"

Private Sub Worksheet_Change(ByVal Target As Range)
If [b9].FormulaLocal <> "=СУММ(B5:B8)" Then [b9].FormulaLocal = "=СУММ(B5:B8)"
End Sub

[nicuav]

модуль - что это?

[R Dmitry]

Сообщение от nicuav

модуль - что это?

правым ухом мыша, по ярлыку листа\исходный текст\


макросы должны быть включены,
попробуйте удалить формулу любыми средствами

[S_Brodsky]

Сообщение от R Dmitry

как вариант
в модуль "Лист1"

Private Sub Worksheet_Change(ByVal Target As Range)
If [b9].FormulaLocal <> "=СУММ(B5:B8)" Then [b9].FormulaLocal = "=СУММ(B5:B8)"
End Sub

Как бы применить данный макрос для диапазона ячеек M3:M100 если в ячейке М3 записана формула =СУММ(B3-J3-K3-L3-H3-I3-F3+G3-E3+C3-D3)