Диапазоны защищенного листа, разблокируемые паролем - 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