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

[Wespe]

Приветствую всех участников данного форума! Такая проблемка... Хотел запретить на листе редактировать формулы и всячески его видоизменять. Сделал защищаемыми ячейки с формулами и поставил защиту листа. В результате становится невозможным сворачивать/разворачивать сгруппированные столбцы (где плюсиком разворачивается, минусом - наоборот). Это же, вроде, не редактирование, а просто отображение информации. Неужели эту операцию можно делать только на незащищенном листе? Помогите, плиз!

[Wespe]

ЗЫ. Excel 2007

[KOSTIK1]

Думаю вам это поможет.

[Wespe]

Спасибо. Почитал. Сложновато для меня...((

[KOSTIK1]

Тогда выкладывайте файл который вам нужно подправить или хотя бы его подобие. Как прикрепить смотри тут.

[Wespe]

Спасибо! Нашел в книженции похожий на указанный по ссылке код. Помогло! Работает! Только, кажется, нерационально сделал.

Private Sub Workbook_Open()
With Лист1
.Protect Password:=False, UserInterfaceOnly:=True
.EnableOutlining = True
End With
With Лист3
.Protect Password:=False, UserInterfaceOnly:=True
.EnableOutlining = True
End With
With Лист4
.Protect Password:=False, UserInterfaceOnly:=True
.EnableOutlining = True
И так далее на 50 листоы...
End Sub


Можно как-то"все листы" обозначить?

[EducatedFool]

Sub test()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        sh.Protect UserInterfaceOnly:=True
        sh.EnableOutlining = True
    Next sh
End Sub

[Wespe]

Спасибо, люди добрые! Все работает! Последний, пожалуй вопрос: не подскажете, какуюкоманду в вышеуказанный код добавить, чтобы можно было скрывать строки/столбцы?

[EducatedFool]

Sub test()
    Application.ScreenUpdating = False  ' отключаем обновление экрана
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        With sh
            .Range("d:d,g:k").EntireColumn.Hidden = True    ' скрываем столбцы d,g,h,i,j,k
            .Columns(2).Hidden = True    ' скрываем 2-й столбец

            .Rows(3).Hidden = True    ' скрываем  3-ю строку
            .Range("12:25,28:28").EntireRow.Hidden = True    ' скрываем строки с 12 по 25 и 28-ю

            .Protect UserInterfaceOnly:=True
            .EnableOutlining = True
        End With
    Next sh
End Sub

[Wespe]

Извиняюсь, наверное, неправильно вопрос поставил... Чтобы не в макросе их скрывать и отображать, а прямо работая в Excel. При защите листа препятствует, аналогично проблеме (уже решившейся :-) ) с группировкой.