Страницы: 1
RSS
Как активировать функцию группировать/разгруппировать после защиты листа
 
Доброе утро всем,

Подскажите после защиты листа никак не могу использовать функцию функцию группировать/разгруппировать. Суть защиты листа-скрытие некоторых формул. Подскажите, как можно решить чтоб после защиты листа можно было пользоваться функциями группировать/разгруппировать, или существует ли альтернативные решения?
Пример приведен

Спасибо
 
скрыть формулы можно через формат ячейки поставив галку на "скрыть формулы" на вкладке "ЗАЩИТА"
Лень двигатель прогресса, доказано!!!
 
согласен, после защиты листа формула скрывается, а если защиту включить функцию группировать/ разгруппировать никак  не получается применить
 
Цитата
krom написал:
если защиту включить функцию группировать/ разгруппировать никак  не получается применить
Ну, почему же? См. пример во вложении.
Чем шире угол зрения, тем он тупее.
 
Подскажите, как у вас получилось, тот же файл которую я прикрепил не работает то есть после защиты листа функция группировать/ разгруппировать не работает выходит след сообщение  "Нельзя использовать данную команду на защищенном листе. Чтобы снять защиту, используйте команду ''Снять защиту листа'' (меню ''Сервис'', подменю ''Защита''). Возможно потребуется ввод пароля."

Не могу понять как у вас получилось, помогите решить
 
Смотрите макрос в модуле книги.
Я сам - дурнее всякого примера! ...
 
Цитата
krom написал:как
Как оставить возможность работать с группировкой/структурой на защищенном листе?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Всем спасибо большое! Теперь все понятно
 
Смотрите макрос в модуле книги.
Прошу прощения а где смотреть-то?
 
ALT+F11 откроется редактор VBA
Скрытый текст
 
Добрый день!
Нашла этот полезный пост, так как тоже была проблема в защите листа с группировкой.
При запуске макроса все работает. Но когда закрываешь файл и открываешь его снова, группировка не работает, выходит сообщение о снятии защиты листа, чтобы воспользоваться группировкой.
Я нашла три макроса, и все три работают одинаково.
Как это вылечить?
 
Цитата
igra написал:
Как это вылечить?
выше в посте #7 от 24.04.2017 есть ссылка - там разъясняется куда надо записать код, чтобы такого не происходило. Я бы дал подсказку на точное место в статье, но лучше будет, если ознакомитесь полностью.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Цитата
написал:
выше в посте  #7  от 24.04.2017 есть ссылка
Я отсюда брала.

Правда куда чаще необходимо устанавливать одинаковую защиту на все листы книги. Сделать это можно кодом ниже, который так же должен быть размещен в модуле ЭтаКнига(ThisWorkbook):
Private Sub Workbook_Open()
   Dim wsSh As Object
   For Each wsSh In Me.Sheets
       ProtectShWithOutline wsSh
   Next wsSh
End Sub
Sub ProtectShWithOutline(wsSh As Worksheet)
   'Password:="1111" - это пароль на лист - 1111
   wsSh.Protect Password:="1111", UserInterfaceOnly:=True
End Sub
 
igra, Вы читаете видать через строку или через две строки статью.
Код
Option Explicit

Private Sub Workbook_Open()
    Dim wsSh        As Object

    For Each wsSh In Me.Sheets
        ProtectShWithOutline wsSh
    Next wsSh

End Sub

Sub ProtectShWithOutline(wsSh As Worksheet)
    wsSh.EnableOutlining = True
    wsSh.Protect Password:="1111", UserInterfaceOnly:=True
End Sub
Страницы: 1
Читают тему
Наверх