Excel как снять защиту с нескольких листов

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

В Excel предусмотрена защита, которую можно добавить на рабочий лист командой Рецензирование → Защитить лист (Review → Protect Sheet). Можно также указать пароль, чтобы другой пользователь не смог снять защиту листа и получить доступ к данным, не зная пароля. Иногда, однако, бывает необходимо включить или снять защиту паролем для всех рабочих листов в рабочей книге за один шаг, так как выполнение этой задачи для каждого рабочего листа по отдельности — очень скучная и долгая работа. Вот как можно упростить задачу.

Откройте рабочую книгу, в которую хотите поместить этот код, или выберите команду Файл → Открыть (File → Open) и отобразите файл Personal.xls, чтобы макрос был доступен в любой рабочей книге. Выберите команду Разработчик → Редактор Visual Basic (Developer → Visual Basic Editor) (сочетание клавиш Alt/Option+Fll) и в VBE выберите команду Insert → UserForm. Должна появиться панель инструментов Control. Если панель не открылась, выберите команду View → Toolbox.

На панели инструментов выберите текстовое поле (TextBox, обозначенное как ab|). Щелкните форму UserForm, чтобы добавить на нее текстовое поле. Поместите поле в левый верхний угол формы и отрегулируйте его размер. Удостоверьтесь, что текстовое поле выделено, и выберите команду View → Properties (клавиша F4). Прокрутите список в окне Properties для этого текстового поля, пока не увидите пункт PasswordChar, и в белом поле справа введите звездочку (*); На панели инструментов выберите элемент CommandButton, щелкните форму UserForm и поместите командную кнопку в правом верхнем углу формы.

Не снимая выделения кнопки CommandButton, выберите команду View → Properties (клавиша R). Прокрутите список в окне Properties для командной кнопки, пока не увидите пункт Caption, и в белом поле справа введите текст ОК. Если вы пользуетесь Excel 97, прокрутите еще дальше до пункта TakeFocusOnClick и выберите для этого свойства значение False. Теперь выделите форму UserForm и в окне Properties для нее найдите пункт Caption. Измените значение этого свойства на Protect/Unprotect all sheets.

Выберите команду View → Code (клавиша F7) и введите код, показанный в листинге 7.16.

1
2
3
4
5
6
7
8
9
10
11
12

//Листинг 7.16
Private Sub CommandButtonl_Click()
Dim wSheet As Worksheet
	For Each wSheet In Worksheets
		If wSheet.ProtectContents = True Then
			wSheet.Unprotect Password:=TextBox1.Text
		Else
			wSheet.Protect Password:=TextBox1.Text
		End If
	Next wSheet
	Unload me
End Sub

Этот код обрабатывает все рабочие листы активной рабочей книги. Если один из них защищен, он снимает защиту, используя пароль, который вы ввели в текстовое поле. Если защита рабочего листа уже снята, макрос защищает его, используя пароль в текстовом поле. Теперь выберите команду Insert → Module и введите код из листинга 7.17. Он необходим, чтобы открыть форму UserForm. Закройте окно, чтобы вернуться в Excel.

1
2
3
4

//Листинг 7.17
Sub ShowPass()
	UserForm1.Show
End Sub

Выберите команду Разработчик → Макросы (Developer → Macros) (сочетание клавиш Alt/Option+F8). Выберите ShowPass и щелкните кнопку Параметры (Options), чтобы назначить сочетание клавиш. Этот макрос снимет защиту всех защищенных рабочих листов и защитит незащищенные рабочие листы.

Так как этот макрос не запрашивает подтверждения пароля, необходимо вводить его точно. Иначе вы можете обнаружить, что одна опечатка смогла спрятать от вас все ваши электронные таблицы.

Если вы защищаете содержимое только от себя, следующий макрос позволит выполнять те же задачи с пустым паролем (листинг 7.18).

1
2
3
4
5
6
7
8
9
10
11
12
13

//Листинг 7.18
Option Explicit
 
Sub ProtectJJnprotect()
Dim wSheet As Worksheet
 
For Each wSheet In Worksheets
	With wSheet
		If .ProtectContents = True Then
			.Unprotect Passwords=""
		Else
			.Protect Password=""
		End If

Хотя это не очень безопасно, этот макрос, безусловно, удобен.

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

Отметим, что заблокировать документ Excel можно двумя способами: защитить лист или книгу. Соответственно, от этого будет зависеть то, какие действия нужно предпринять для разблокировки.

Снимаем защиту с книги

1. Если мы попытаемся открыть защищенный документ, вместо его содержимого отобразится информационное окошко, в котором нужно ввести пароль для снятия защиты.
2. После ввода правильного пароля и нажатия кнопки OK, отобразится содержимое файла.
3. Если нужно снять защиту документа навсегда, открываем меню “Файл”.
4. Щелкаем по разделу “Сведения”. В правой части окна кликаем по кнопке “Защитить книгу”, в открывшемся списке нам нужна команда – “Зашифровать с использованием пароля”.
5. На экране отобразится окно шифрования документа с паролем. Стираем его, после чего щелкаем OK.
6. Кликаем по значку в виде дискеты, чтобы сохранить документ. Или можно воспользоваться командой “Сохранить” в меню “Файл”.
7. Пароль удален, и в следующий раз при открытии файла он запрашиваться не будет.

Снимаем защиту с листа

Пароль для защиты может быть установлен не только для всего документа, но и в отношении конкретного листа. В данном случае, пользователь сможет видеть содержимое листа, но у него не будет возможности редактировать информацию.

Для снятия защиты листа выполняем следующие действия.

1. Переключаемся во вкладку “Рецензирование”. Нажимаем кнопку “Снять защиту листа”, которая расположена в группе инструментов “Защита”.
2. Появится небольшое окошко, где вводим ранее заданный пароль и щелкаем OK.
3. В результате, блокировка листа будет отключена, и теперь мы можем спокойной корректировать информацию.

Меняем код файла для снятия защиты листа

Данный метод нужен в тех случаях, когда пароль был утерян или не передан вместе с файлом от другого пользователя. Работает он только в отношении тех документов, которые защищены на уровне отдельных листов, а не всей книги, т.к. нам нужно попасть в меню “Файл”, что невозможно при защите паролем всего документа.

Чтобы снять защиту, необходимо выполнить следующую последовательность действий:

1. Сразу переходим к пункту 4, если расширение файла – XLSX (Книга Excel). Если формат документа – XLS (Книга Excel 97-2003), нужно сначала его пересохранить с нужным расширением. Для этого переходим в меню “Файл”.
2. В перечне слева выбираем “Сохранить как”, затем в правой части окна жмем кнопку “Обзор”.
3. В появившемся окне выбираем любое удобное место для сохранения файла, задаем формат “Книга Excel” и щелкаем OK.
4. Открываем в Проводнике папку с документом в формате XLSX (только что сохраненный или имеющийся изначально). Чтобы включить расширения файлов, переходим во вкладку “Вид”, где включаем нужную опцию в группе инструментов “Показать или скрыть”.Примечание: приведенные в данном шаге и ниже действия в операционной системе описаны на примере Windows 10.
5. Правой кнопкой мыши щелкаем по документу и в раскрывшемся перечне кликаем по команде “Переименовать” (или можно просто нажать клавишу F2, предварительно выбрав файл).
6. Вместо расширения “xlsx” пишем “zip” и подтверждаем изменение.
7. Теперь система будет идентифицировать файл как архив, содержимое которого можно открыть двойным щелчком левой кнопкой мыши.
8. В открывшейся папке заходим в каталог “xl”, затем – “worksheets”. Здесь мы видим файлы в формате XML, в которых содержится информация о листах. Открыть их можно с помощью обычного Блокнота.Примечание: в Windows 10 назначить программу по умолчанию по типу файла можно в параметрах системы (запускаются нажатием клавиш Win+I), в разделе “Приложения”, затем – “Приложения по умолчанию” – “Выбор стандартных приложений для типов файлов”.
9. После успешного открытия файла нам нужно найти в его содержимом фразу “sheetProtection”. Для этого воспользуемся поиском, который можно запустить как через меню “Правка” (пункт “Найти”), так и нажав комбинацию клавиш Ctrl+F.
10. Вводим нужную фразу и жмем кнопку “Найти далее”.
11. После нахождения нужного совпадения окно поиска можно закрыть.
12. Стираем фразу и все, что относится к ней (между открывающим и закрывающим тегами).
13. В меню “Файл” выбираем команду “Сохранить как” (или жмем сочетание клавиш Ctrl+Shift+S).
14. Сохранить документ сразу же в архиве не получится. Поэтому делаем это в любом другом удобном для нас месте на компьютере, при этом, не меняя название и указав расширение “xml” (должен быть выбран тип файла – “Все файлы”).
15. Копируем только что созданный файл в папку “worksheets” нашего архива (с заменой исходного).Примечание: запись “sheetProtection” присутствует во всех файлах листов, защищенных паролем. Поэтому описанные выше действия по ее нахождению и удалению проделываем со всеми остальными файлами XML в папке “worksheets”.
16. Снова идем в папку, содержащую наш архив и меняем обратно расширение с “zip” на “xlsx” путем переименовывания.
17. Теперь можно открывать файл и смело его редактировать. Вводить пароль для снятия защиты не потребуется.

Сторонние программы для удаления паролей

Чтобы удалить пароль, можно воспользоваться программами сторонних разработчиков. При этом стоит помнить о возможном риске, связанном со скачиванием, установкой и использованием нестандартных инструментов операционной системы и программы Excel.

Если вы, все же, решили воспользоваться такой возможностью, можно обратить внимание на достаточно популярную программу Accent OFFICE Password Recovery.

Сылка на официальную страницу с программой: https://passwordrecoverytools.com/office-password.asp.

Обращаем ваше вниманием на то, что для получения доступа ко всем функциям программы нужно приобрести лицензию. Для ознакомления с приложения доступна демо-версия, однако, она не позволяет удалять пароли.

Заключение

Защита книги или отдельного листа – крайне полезные функции программы Excel, когда нужно защитить информацию от посторонних лиц или, например, обезопасить себя от случайных изменений важных данных, предназначенных только для чтения. Но иногда возникает обратная необходимость – снять ранее установленную защиту. Сделать это можно по-разному, в зависимости от того, каким образом она была установлена. И даже если вы забыли пароль, блокировку можно снять, правда, только в том случае, когда код был установлен в отношении отдельных листов, а не всей книги.