Макросы защиты и снятия защиты со всех листов в книге

Sub MassProtect1()

Dim wsh As Worksheet
Dim strpassword As String
Dim i As Integer

strpassword = InputBox("Введите пароль")

i = 0

For Each wsh In ActiveWorkbook.Worksheets

wsh.Protect Password:=strpassword

i = i + 1
Application.StatusBar = "Установка защиты на лист" & wsh.Name & "¦ ¦ ¦ ¦ ¦ Общий прогресс ¦" & i & "¦ из ¦" & ActiveWorkbook.Sheets.Count

Next wsh

MsgBox ("Защита установлена. Пароль:" & strpassword)
End Sub
Sub MassUnProtect1()

Dim wsh As Worksheet
Dim strpassword As String
Dim i As Integer

strpassword = InputBox("Введите пароль")

i = 0

For Each wsh In ActiveWorkbook.Worksheets

wsh.Unprotect Password:=strpassword

i = i + 1
Application.StatusBar = "Снятие защиты с листа" & wsh.Name & "¦ ¦ ¦ ¦ ¦ Общий прогресс ¦" & i & "¦ из¦" & ActiveWorkbook.Sheets.Count

Next wsh

MsgBox ("Защита снята.")
End Sub
Реклама

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход /  Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход /  Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход /  Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход /  Изменить )

w

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.