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

[Hugo121]

Можно просто на каждое изменение на листе протягивать формулу заново - диапазон небольшой.

[VictorM]

измените в коде строку

If [m3:m100].FormulaLocal <> "=СУММ(B3-J3-K3-L3-H3-I3-F3+G3-E3+C3-D3)" Then [m3:m100].FormulaLocal = "=СУММ(B3-J3-K3-L3-H3-I3-F3+G3-E3+C3-D3)"

[S_Brodsky]

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

измените в коде строку

If [m3:m100].FormulaLocal <> "=СУММ(B3-J3-K3-L3-H3-I3-F3+G3-E3+C3-D3)" Then [m3:m100].FormulaLocal = "=СУММ(B3-J3-K3-L3-H3-I3-F3+G3-E3+C3-D3)"

выдаёт ошибку. Формула в каждой следующеё ячейке меняется на 1, т.е. для ячейки М4 будет =СУММ(B4-J4-K4-L4-H4-I4-F4+G4-E4+C4-D4), а для M100 будет =СУММ(B100-J100-K100-L100-H100-I100-F100+G100-E100+C100-D100)

[S_Brodsky]

может быть есть ещё способ как установить запрет на изменение данных в определённых ячейках с формулами, при этом чтобы оставить в рабочем состоянии группировку? Помогите если есть возможность. Пример прикрепил.
пример отчёта.zip

[VictorM]

выдаёт ошибку.

Отнюдь, это не ошибка, а правильная работа Excel.
Если же Вам нужно, чтобы во всех ячейка диапазона [m3:m100] была формула =СУММ(B3-J3-K3-L3-H3-I3-F3+G3-E3+C3-D3)
что, кстати, небыло очевидным в Вашем вопросе, замените относительные ссылки на абсолютные, т.е. вида $B$3.
Только непонятно зачем это...

[alex77755]

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

может быть есть ещё способ как установить запрет на изменение данных в определённых ячейках с формулами, при этом чтобы оставить в рабочем состоянии группировку? Помогите если есть возможность. Пример прикрепил.
Вложение 47550

Где-то так:

Private Sub Группировать_Click()
Лист3.Select

    Const MyPassword = "paskal"
    With ActiveSheet
        .EnableOutlining = True
        .Protect Password:=MyPassword, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    End With

End Sub

[S_Brodsky]

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

Где-то так:

Private Sub Группировать_Click()
Лист3.Select

    Const MyPassword = "paskal"
    With ActiveSheet
        .EnableOutlining = True
        .Protect Password:=MyPassword, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    End With

End Sub

А где то это где? Сорри, но я реально не понял. Всё вставил но как бы без изменений всё осталось. Может чтото поменять надо? Если не сложно вставьте в пример который я прикорепил выше. Заранее спасибо

[S_Brodsky]

Всё, разобрался. Вот код

Private Sub Workbook_Open()
    Dim wsSh As Object
    For Each wsSh In Me.Sheets
        Protect_and_Structure wsSh
    Next wsSh
End Sub
Sub Protect_and_Structure(wsSh As Object)
    wsSh.Unprotect
    wsSh.EnableOutlining = True
    wsSh.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub

Данный код вставляется в модуль ЭтаКнига.