Диапазоны защищенного листа, разблокируемые паролем - VBA

Узнай цену своей работы

Формулировка задачи:

Можно ли как-то доступиться к Диапазонам защищённого листа, разблокируемым паролем (

Рецензирование

-

Изменения

-

Разрешить изменения диапазонов

) из VBA? Пытаюсь автоматизировать домашнюю бухгалтерию в Excel 2010. Есть книга. Каждый месяц в неё нужно добавлять один лист заданного образца (копированием из листа образца). Книга защищенная через

Рецензирование

-

Защитить книгу

. Лист образца защищён через

Рецензирование

-

Защитить лист

. Кроме того для редактирования отдельных ячеек применил

Рецензирование

-

Разрешить изменение диапазонов

. Создан один такой диапазон. Но как доступиться к нему по имени из VBA не нашёл. Подскажите. Может быть, это не лучшее решение и доступиться к таким диапазонам из VBA нельзя?

Решение задачи: «Диапазоны защищенного листа, разблокируемые паролем»

textual
Листинг программы
Sub pr()
    For Each x In ActiveSheet.Protection.AllowEditRanges
        With x
            n = .Title
            k = .Range.Address
            '.Unprotect "d"
        End With
    Next
End Sub

Оцени полезность:

9   голосов , оценка 3.667 из 5
Похожие ответы