Добрый день!
Нашел макрос по защите листа и хотел добавить возможность, чтобы пользователи могли использовать группировку из разлела команд "структура".
Вроде нашёл в интернете, чтотнадо вставить EnableGrouping, но после вставки макрос перестал работать. Подскажите, пожалуйста, как правильно вставить эту опцию?
Нашел макрос по защите листа и хотел добавить возможность, чтобы пользователи могли использовать группировку из разлела команд "структура".
Вроде нашёл в интернете, чтотнадо вставить EnableGrouping, но после вставки макрос перестал работать. Подскажите, пожалуйста, как правильно вставить эту опцию?
| Код |
|---|
Sub MM() Dim mm As Worksheet: Set mm = ActiveSheet mm.EnableOutlining = True mm.EnableGrouping mm.Protect Password:="XXXX", UserInterfaceOnly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _ False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _ :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _ AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _ AllowUsingPivotTables:=True End Sub |
Изменено: - 28.12.2018 12:50:54
(Сработала автозамена при вставке кода )
