Как группировать и разгруппировать строки в защищенном листе?

Как всем известно, в защищенном листе существует множество ограничений для выполнения различных операций. Например, мы не можем переключаться между сгруппированными и несгруппированными данными. Есть ли способ сгруппировать или разгруппировать строки в защищенном листе?

Группировка и разгруппировка строк в защищенном листе с помощью кода VBA

Группировка и разгруппировка строк в защищенном листе с помощью кода VBA

Возможно, нет другого хорошего способа решить эту проблему, кроме использования кода VBA. Пожалуйста, следуйте инструкциям ниже:

1. Активируйте нужный вам лист, убедитесь, что он еще не защищен.

2. Затем нажмите клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

3. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Группировка и разгруппировка строк в защищенном листе

Sub EnableOutlining()
'Updateby Extendoffice
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

4. Затем нажмите клавишу F5, чтобы запустить этот код, появится диалоговое окно с запросом ввести пароль для защиты текущего листа. См. скриншот:

5. Затем нажмите ОК, ваш лист будет защищен, но вы сможете расширять и сворачивать символы контуров в этом защищенном листе. См. скриншот:

Примечание: Если ваш лист уже защищен, этот код не будет работать.