Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Включит защиту в нескольких листов сразу
 

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

 
Здравствуйте. Можно так:
Код
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
Читают тему (гостей: 1)
Наверх