В книге защищен каждый лист. Как быстро снять защиту со всех листов, а потом ее поставить опять?

[Катик7]

Вопрос в заголовке. Защищена не книга целиком, а отдельно листы, их очень большое количество, пароль везде одинаковый.
Заранее спасибо.

[EducatedFool]

Sub test()
    ДиапазонДляВставкиФормул = "d3:d45":    Формула = "=RC[-1]*RC[-2]"
    Пароль = "123пароль"
    Dim sh As Worksheet: Application.ScreenUpdating = False

    For Each sh In ThisWorkbook.Worksheets    ' перебираем все листы
        sh.Unprotect Пароль    ' снимаем пароль с листа
        sh.Range(ДиапазонДляВставкиФормул).FormulaR1C1 = Формула    ' заносим формулу
        sh.Protect Пароль    ' ставим обратно пароль на лист
    Next sh
End Sub

[Катик7]

Спасибо Вам огромное! Вы очень мне помогли! У меня есть еще один вопросик. Как защитить во всех листах только определенные столбцы или строки?

[vostok]

Это уж совсем просто: выделить группу ячеек, ПКМ-формат ячеек-защита-снять птичку "защищаемая ячейка". После запароливания листа эти ячейки будут доступны.

[Катик7]

Поясните, пожалуйста, что такое ПКМ? Я выделяю группу листов, потом группу ячеек, с которых нужно снять защиту. Но при этом формат- Ячейка не активен.

[pivas]

Катик7, ПКМ - это Правая Кнопка Мышки.

[Катик7]

Спасибо)))))

[Катик7]

У меня возникла еще 1 проблема( Как сгруппировать 1 и тот же столбец на всех листах (например, H)? И скрыть его, чтобы не было видно.

[EducatedFool]

Sub test()
    Dim sh As Worksheet: Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets    ' перебираем все листы
        sh.Columns("H").Merge    ' объединяем все ячейки в столбце H

        ' объединяем все ячейки только в используемом диапазоне ячеек столбца J
        Intersect(sh.Columns("J"), sh.UsedRange.EntireRow).Merge

        sh.Columns("G").Hidden = True    ' скрываем столбец G
    Next sh
End Sub

[offza]

Добрый день.
подскажите, пожалуйста.
для защиты/снятия защиты со всей книги использую макрос:

Sub Protect()
Dim sh As Worksheet: Application.ScreenUpdating = False

For Each sh In ThisWorkbook.Worksheets
sh.Protect ([123])
Next sh
End Sub

Но он работает только на той книге, в которой он сохранен. Даже если я его пишу в PERSONAL.XLSB.
Как заставить его работать для всех книг?

Любые другие макросы работают везде.

Спасибо!