Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Включит защиту в нескольких листов сразу
 
#1
14.01.2021 18:45:43

Всем привет хотел узнать есть варианты включит защиту в нескольких листов сразу всем заранее спасибо.

 
 
 
#2
14.01.2021 19:38:54
Здравствуйте. Можно так:
Код
Sub Protection()
    Dim Cell As Range
    For Each Cell In Worksheets("Список листов").Range("A1").CurrentRegion
        Worksheets(Cell.Text).Protect Password:="1"
    Next Cell
End Sub
 
 
 
Страницы: 1
Наверх