Всем добрый день.
Необходимо защитить лист, но чтобы работала и группировка и автофильтры.
1. Использую данный код
Но все равно при открытии не работает группировка. Но зато автофильтр работает.
2. При этом без автофильтра в коде, группировка работает:
Необходимо защитить лист, но чтобы работала и группировка и автофильтры.
1. Использую данный код
| Код |
|---|
Private Sub Workbook_Open()
sheets("Лист1").EnableOutlining = True
sheets("Лист1").Protect Password:="1111", UserInterfaceOnly:=True, AllowFiltering:=True, AllowSorting:=True
End Sub |
2. При этом без автофильтра в коде, группировка работает:
| Код |
|---|
Private Sub Workbook_Open()
Sheets("Лист1").EnableOutlining = True
Sheets("Лист1").Protect Password:="1111", UserInterfaceOnly:=True
End Sub |
Изменено: - 30.05.2019 12:30:26