Как защитить / отключить защиту всех рабочих таблиц с помощью VBA в Microsoft Excel 2010
В этой статье вы узнаете, как защитить и снять защиту со всех листов с помощью кода VBA.
Чтобы открыть экран редактора VBA, выполните следующие действия:
Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic
Click on Insert, and then Module
Это создаст новый модуль.
Введите следующий код в модуль, чтобы защитить все рабочие листы.
Дополнительная защита ()
‘Перебрать все листы в книге
Для i = 1 To Sheets.Count
Sheets (i) .Protect
Далее i
End Sub
Чтобы снять защиту со всех листов, используйте следующий код.
Sub UnProtect ()
‘Перебрать все листы в книге
Для i = 1 To Sheets.Count
Sheets (i) .UnProtect
Далее i
End Sub
Нажмите сочетание клавиш ALT + F8, чтобы открыть окно макроса, а затем выберите макрос «Защитить».
Кроме того, вы можете нажать F5, чтобы запустить код на экране VBA.
После выполнения макроса; все листы будут защищены.
Нажмите ALT + F8 и выберите «Снять защиту»
Это снимет защиту со всех листов.
Таким образом, мы можем защищать и снимать защиту рабочих листов по мере необходимости.