Работа со структурой при защищенном листе

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Работа со структурой при защищенном листе (Макросы/Sub)

ArkaIIIa

Дата: Понедельник, 25.04.2016, 16:34 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894

Репутация: 115 ±

Замечаний: 0% ±

2010

Добрый день, господа!

Есть необходимость работы со структурой (группировкой) при защищенном листе.
На параллельных сайтах нашел вот такой код:
[vba]

Код

Private Sub Workbook_Open()
    Dim wsSh As Object
    For Each wsSh In Me.Worksheets
        Protect_and_Structure wsSh
    Next wsSh
End Sub
Sub Protect_and_Structure(wsSh As Worksheet)
    wsSh.Unprotect
    wsSh.EnableOutlining = True
    wsSh.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub

[/vba]
, но он не совсем подходит. Не нужно никаких всплывающих запросов паролей при открытии книги и т.д.
Нужен просто кусок кода, который можно положить в модуль книги или листа (без разницы), дающий возможность работать со структурой, когда листы защищены.

Спасибо заранее!

Ответить

_Boroda_

Дата: Понедельник, 25.04.2016, 16:44 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Аркадий, читайте http://www.excelworld.ru/forum/10-16909-140793-16-1429093520
Если не поймете - пишите.
Про UserinterfaceOnly - см. по ссылке пост 14

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

ArkaIIIa

Дата: Понедельник, 25.04.2016, 17:04 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894

Репутация: 115 ±

Замечаний: 0% ±

2010

_Boroda_
Разобрался. Большое спасибо, Александр!

Ответить

Работа со структурой при защищенном листе (Макросы/Sub)

Страница 1 из 1
1