Разворачивание/сворачивание данных на защищенном листе

[Wespe]

Тишина... Помогите, плиз!

[Wespe]

Спасибо за помощь всем! На последний вопрос ответ нашел сам.
В-общем, кому при запуске файла нужно запретить редактировать формулы, но при этом оставить возможность группировки, а также скрытия/отображения столцов/ячеек КОД:

Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets

sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True
sh.EnableOutlining = True

Next sh

End Sub

[DV68]

При постановке защиты листа есть табличка
"Разрешить всем пользователям этого листа:".
Поставьте галочки возле:
"Форматирование столбцов"
"Форматирование строк"