Если у вас есть книга, содержащая несколько защищенных листов с одним и тем же паролем, и теперь вам нужно снять защиту с них, чтобы изменить некоторую информацию. Возможно, вы можете снять защиту с листов один за другим с помощью команды «Снять защиту с листа» в Excel, но это приведет к потере времени, когда необходимо снять защиту с нескольких листов. Здесь я познакомлю вас с несколькими быстрыми способами снятия защиты с нескольких защищенных листов.
Снять защиту сразу с нескольких листов с помощью кода VBA
Снимите защиту сразу с нескольких листов с помощью Kutools for Excel
Снять защиту сразу с нескольких листов с помощью кода VBA
Снять защиту сразу с нескольких листов с помощью кода VBA Если вы хорошо разбираетесь в коде VBA, следующий код может помочь вам быстро снять защиту сразу с нескольких листов.
1. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.
Sub unprotect_all_sheets()
On Error Goto booboo
unpass = InputBox("Please enter the password:")
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Unprotect Password:=unpass
Next
Exit Sub
booboo: MsgBox "There is s problem - check your password, capslock, etc."
End Sub
3, Затем нажмите F5 ключ для запуска кода и введите пароль, который вы применили для защищенных листов. (защищенные листы должны иметь один и тот же пароль) См. снимок экрана:
4. Нажмите OK, и защищенные листы сразу оказались незащищенными.
Снимите защиту сразу с нескольких листов с помощью Kutools for Excel
Kutools for ExcelАвтора Снять защиту листа — удобный инструмент, который поможет вам быстро снять защиту сразу с нескольких листов одним паролем.
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Нажмите Кутулс Плюс > Снять защиту листа, см. снимок экрана:
2. В Снять защиту листа диалоговое окно, защищенные листы будут перечислены в Рабочий лист список, затем отметьте имена листов, с которых вы хотите снять защиту, и щелкните OK, затем введите пароль, который вы применили для защищенных листов (защищенные листы должны иметь одинаковый пароль) в появившемся диалоговом окне, см. снимок экрана:
3, Затем нажмите OK, окно подсказки напомнит вам, сколько листов было незащищено. Затем нажмите OK, все выбранные листы в вашей книге сняты с защиты. Смотрите скриншот:
Советы: Чтобы защитить сразу все рабочие листы в вашей книге, вам просто нужно применить Защитить лист of Kutools for Excel как показано на следующем скриншоте:
Скачать и бесплатную пробную версию Kutools for Excel от Yhao сейчас!
Демонстрация: защита и снятие защиты сразу с нескольких листов с помощью Kutools for Excel
Связанная статья:
Как защитить сразу несколько листов в Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Комментарии (11)
Оценок пока нет. Оцените первым!
Skip to content
Как снять защиту со всех листов
На чтение 2 мин. Просмотров 5.3k.
Что делает макрос: Бывает необходимость снять защиту со всех листов, обычно это делается вручную. Данный макрос автоматизирует это.
Содержание
- Как макрос работает
- Код макроса
- Как этот код работает
- Код макроса
- Как использовать
Как макрос работает
Этот макрос проходит цикл листов и использует аргумент пароль для снятия защиты листа.
Код макроса
Sub SnyatZaschituOdinParol() 'Шаг 1: Объявляем переменные Dim ws As Worksheet 'Шаг 2: Запускаем цикл через все рабочие листы For Each ws In ActiveWorkbook.Worksheets 'Шаг 3: Цикл до следующего рабочего листа ws.UnProtect Password:="КРАСНЫЙ" Next ws End Sub
Как этот код работает
- Шаг 1 объявляет объект под названием WS. Это создает контейнер памяти для каждого рабочего листа.
- Шаг 2 запускается цикл через все рабочие листы в этой книге.
- Шаг 3 снимает защиту активного листа, обеспечивая пароль по мере необходимости, а затем возвращается обратно, чтобы получить рабочий лист.
Очевидно, что макрос будет работать, если все рабочие листы, которые должны быть незащищенными имеют один и тот же пароль. Если это не так, то вам нужно явно снять защиту каждый лист с соответствующим паролем.
Код макроса
Sub SnyatZaschituRaznieParoli()
Sheets("Лист1").UnProtect Password:="КРАСНЫЙ"
Sheets("Лист2").UnProtect Password:="СИНИЙ"
Sheets("Лист3").UnProtect Password:="ЖЕЛТЫЙ"
Sheets("Лист4").UnProtect Password:="ЗЕЛЕНЫЙ"
End Sub
Как использовать
- Активируйте редактор Visual Basic, нажав ALT + F11.
- Щелкните правой кнопкой мыши personal.xlb в окне Project.
- Выберите Insert➜Module.
- Введите или вставьте код во вновь созданном модуле.
|
noxik  Пользователь Сообщений: 55 |
Добрый день! |
|
А как Вы их обрабатываете? Всё сложное — не нужно. Всё нужное — просто /М. Т. Калашников/ |
|
|
bedvit  Пользователь Сообщений: 2477 Виталий |
В теории через макрос: ..поиск всех нужных файлов (в папке и подпапках) далее… открыть-перебрать листы (открывая все скрытые)-снимаем защиту(с паролем), сохраняем -следующий… «Бритва Оккама» или «Принцип Калашникова»? |
|
noxik Пользователь Сообщений: 55 |
Михаил Лебедев, сначала надо объединить в 1 файл. |
|
The_Prist  Пользователь Сообщений: 14181 Профессиональная разработка приложений для MS Office |
#5 26.02.2016 16:22:32
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||||
|
noxik Пользователь Сообщений: 55 |
The_Prist, объединение я осуществлю сам, проблема только с защитой, каждый файл открывать и по 2 вкладки разблокировать — трудозатратная работа. |
|
a_s_p  Пользователь Сообщений: 95 |
У Вас заблокирован файл или вкладка (лист)? |
|
The_Prist Пользователь Сообщений: 14181 Профессиональная разработка приложений для MS Office |
#8 29.02.2016 18:00:06 все нужные файлы кидаете в одну папку. Просмотреть все файлы в папке в код третьей строкой добавляете(после Dim sFolder As String, sFiles As String):
вместо строки:
пишете:
Все, код готов. Правда, так толком и не понял, что же в итоге надо разблокировать: листы или книги
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||||||||||
|
noxik Пользователь Сообщений: 55 |
400+ файлов в каждом по 2 вкладки с паролем The_Prist,Спасибо! Все получилось! |
|
saint944 Пользователь Сообщений: 29 |
Добрый день! |
|
Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14181 Профессиональная разработка приложений для MS Office |
#11 12.03.2020 14:31:17
с новой силой надо справку изучать и поиск использовать Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||
При открытии файла методом Open доступен аргумент Password, в котором пароль на открытие и указывается. попробуйте прописать Workbook.Open, установить курсор в Open и нажать F1. Там все довольно понятно описано, заблудиться сложно.|
Надежда  Пользователь Сообщений: 2 |
добрый день! Изменено: Надежда — 21.01.2022 07:38:08 |
|
Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14181 Профессиональная разработка приложений для MS Office |
#13 21.01.2022 08:06:47
Если брать код отсюда: Просмотреть все файлы в папке то после строки:
пишете такую:
вместо Лист1 — имя нужного листа. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||||||
|
Надежда Пользователь Сообщений: 2 |
#14 21.01.2022 08:14:17
подскажите, пожалуйста, в данном коде что нужно заменить? Изменено: vikttur — 21.01.2022 12:34:08 |
||
|
Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14181 Профессиональная разработка приложений для MS Office |
#15 21.01.2022 08:17:14
я выше написал, что нужно изменить для снятия пароля с конкретного листа. просто добавляете строку. Без Вашего кода больше сказать нечего. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||
Содержание
- Видео инструкция
- Способ 1: Разблокировка книги
- Способ 2: Разблокировка листа
- Способ 3: Снятие защиты через изменение кода файла
- Способ 4: Использование сторонних приложений
- Вопросы и ответы
Установка защиты на файлы Excel – отличный способ обезопасить себя, как от злоумышленников, так и от собственных ошибочных действий. Существует два вида блокировки файла Excel: защита на книгу и защита на лист. Соответственно и алгоритм разблокирования зависит от того, какой способ защиты был выбран.
Урок: Как снять защиту с документа Microsoft Word
Видео инструкция
Способ 1: Разблокировка книги
Прежде всего, выясним, как снять защиту с книги.
- При попытке запустить защищенный файл Excel открывается небольшое окно для ввода кодового слова. Мы не сможем открыть книгу, пока не укажем его. Итак, вводим пароль в соответствующее поле. Жмем на кнопку «OK».
- После этого книга открывается. Если же вы хотите вообще снять защиту, то переходите во вкладку «Файл».
- Перемещаемся в раздел «Сведения». В центральной части окна жмем на кнопку «Защитить книгу». В раскрывающемся меню выбираем пункт «Зашифровать паролем».
- Опять открывается окно с кодовым словом. Просто удаляем пароль из поля ввода и жмем на кнопку «OK»
- Сохраняем изменения файла, перейдя во вкладку «Главная» нажав на кнопку «Сохранить» в виде дискеты в левом верхнем углу окна.
Теперь при открытии книги не нужно будет вводить пароль и она перестанет быть защищенной.
Урок: Как поставить пароль на файл Excel
Способ 2: Разблокировка листа
Кроме того, можно установить пароль на отдельный лист. При этом вы сможете открывать книгу и даже просматривать информацию на заблокированном листе, но изменять в нём ячейки уже не получится. При попытке редактирования появится сообщение в диалоговом окне, информирующее о том, что ячейка защищена от изменений.
Для того, чтобы получить возможность редактирования и полностью снять защиту с листа, придется выполнить ряд действий.
- Переходим во вкладку «Рецензирование». На ленте в блоке инструментов «Изменения» жмем на кнопку «Снять защиту листа».
- Открывается окно, в поле которого нужно ввести установленный пароль. Затем жмем на кнопку «OK».
После этого защита будет снята и пользователь сможет редактировать файл. Чтобы снова защитить лист, придется устанавливать его защиту заново.
Урок: Как защитить ячейку от изменений в Excel
Способ 3: Снятие защиты через изменение кода файла
Но, иногда бывают случаи, когда пользователь зашифровал лист паролем, чтобы случайно не внести в него изменения, а вспомнить шифр не может. Вдвойне огорчает то, что, как правило, кодируются файлы с ценной информацией и утеря пароля к ним может дорого обойтись пользователю. Но, существует выход даже из этого положения. Правда, придется повозиться с кодом документа.
- Если ваш файл имеет расширение xlsx (Книга Excel), то сразу переходите к третьему пункту инструкции. Если же его расширение xls (Книга Excel 97-2003), то его следует перекодировать. К счастью, если зашифрован только лист, а не вся книга, можно открывать документ и сохранять в любом доступном формате. Для этого, переходим во вкладку «Файл» и кликаем по пункту «Сохранить как…».
- Открывается окно сохранения. Обязательно в параметре «Тип файла» устанавливаем значение «Книга Excel» вместо «Книга Excel 97-2003». Жмем на кнопку «OK».
- Книга xlsx по сути является zip-архивом. Нам нужно будет отредактировать один из файлов этого архива. Но для этого сразу нужно будет поменять расширение с xlsx на zip. Переходим с помощью проводника в ту директорию жесткого диска, в которой находится документ. Если расширения файлов не видно, то кликаем по кнопке «Упорядочить» в верхней части окна, в раскрывшемся меню выбираем пункт «Параметры папок и поиска».
- Открывается окно параметров папок. Переходим во вкладку «Вид». Ищем пункт «Скрывать расширения для зарегистрированных типов файлов». Снимаем с него галочку и жмем на кнопку «OK».
- Как видим, после этих действий, если расширения не отображалось, то оно появилось. Кликаем по файлу правой кнопкой мыши и в появившемся контекстном меню выбираем пункт «Переименовать».
- Меняем расширение с xlsx на zip.
- После того, как переименование произведено, Windows воспринимает данный документ, как архив и его можно просто открыть с помощью того же проводника. Делаем двойной щелчок мыши по данному файлу.
- Переходим по адресу:
имя_файла/xl/worksheets/Файлы с расширением xml в данной директории содержат информацию о листах. Открываем первый из них с помощью любого текстового редактора. Можно воспользоваться для этих целей встроенным Блокнотом Windows, а можно применить и более продвинутую программу, например, Notepad++.
- После того, как программа открылась, набираем на клавиатуре сочетание клавиш Ctrl+F, чем вызываем внутренний поиск приложения. Вбиваем в поисковое окно выражение:
sheetProtectionИщем его по тексту. Если не находим, то открываем второй файл и т.д. Делаем так до тех пор, пока элемент не будет найден. Если защищено несколько листов Excel, то элемент будет находиться в нескольких файлах.
- После того, как данный элемент обнаружен, удаляем его вместе со всей информацией от открывающего тега до закрывающего. Сохраняем файл и закрываем программу.
- Возвращаемся в директорию расположения архива и опять меняем его расширение с zip на xlsx.
Теперь для редактирования листа Excel не понадобится знание забытого пользователем пароля.
Кроме того, если вы забыли кодовое слово, то блокировку можно снять с помощью специализированных сторонних приложений. При этом можно удалить пароль как с защищенного листа, так и со всего файла. Одним из самых популярных приложений данного направления является Accent OFFICE Password Recovery. Рассмотрим процедуру сброса защиты на примере данной утилиты.
Скачать Accent OFFICE Password Recovery с официального сайта
- Запускаем приложение. Кликаем по пункту меню «Файл». В выпадающем списке выбираем позицию «Открыть». Вместо этих действий также можно просто набрать на клавиатуре сочетание клавиш Ctrl+O.
- Открывается окно поиска файла. С помощью него переходим в ту директорию, где расположена нужная нам книга Excel, к которой утрачен пароль. Выделяем её и жмем на кнопку «Открыть».
- Открывается Мастер восстановления паролей, который сообщает, что файл защищён паролем. Жмем кнопку «Далее».
- Затем открывается меню, в котором предстоит выбрать, по какому сценарию будет производиться снятие защиты. В большинстве случаев наиболее оптимальным вариантом является оставить настройки по умолчанию и только в случае неудачи попробовать их изменить на второй попытке. Жмем на кнопку «Готово».
- Начинается процедура подбора паролей. Она может занять довольно продолжительное время, в зависимости от сложности кодового слова. Динамику процесса можно наблюдать в нижней части окна.
- После того, как перебор данных закончится, высветится окно, в котором будет записан действительный пароль. Вам только останется запустить файл Эксель в обычном режиме и вписать код в соответствующее поле. Сразу вслед за этим таблица Excel будет разблокирована.
Как видим, существует несколько способов снять защиту с документа Эксель. Каким из них воспользоваться пользователь должен выбрать в зависимости от типа блокировки, а также от уровня своих способностей и того, насколько быстро он хочет получить удовлетворительный результат. Способ снятия защиты с помощью текстового редактора быстрее, но требует определенных знаний и усилий. Использование специализированных программ может потребовать значительного количества времени, но зато приложение делает практически все само.
Еще статьи по данной теме:
Помогла ли Вам статья?
- Что делает макрос
- Код макроса
- Как работает макрос
- Как использовать
- Скачать файл
Ссылка на это место страницы:
#zadacha
Если есть необходимость снять защиту со всех листов, то данный макрос автоматизирует это. Этот макрос проходит цикл листов и использует аргумент Password для снятия защиты листа.
Ссылка на это место страницы:
#formula
Код макроса для одного пароля
SubSnyatZaschituOdinParol()DimwsAsWorksheetForEachwsInActiveWorkbook.Worksheetsws.UnProtect Password:="КРАСНЫЙ"NextwsEndSub
Код макроса для разных паролей
SubSnyatZaschituRaznieParoli()Sheets("Нижняя Тавда").UnProtect Password:="КРАСНЫЙ"Sheets("Антипино").UnProtect Password:="СИНИЙ"Sheets("Упорово").UnProtect Password:="ЖЕЛТЫЙ"Sheets("Винзили").UnProtect Password:="ЗЕЛЕНЫЙ"EndSub
Ссылка на это место страницы:
#kak
1. Шаг 1 объявляет объект под названием WS. Это создает контейнер памяти для каждого рабочего листа.
2. Шаг 2 запускается цикл через все рабочие листы в этой книге.
3. Шаг 3 снимает защиту активного листа, используя пароль, возвращается на шаг 2 для других листов книги.
Очевидно, что макрос будет работать, если все рабочие листы, которые должны быть незащищенными имеют один и тот же пароль. Если это не так, то вам нужно использовать свой пароль для каждого листа.
Ссылка на это место страницы:
#touse
Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:
1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
3. Выберите Insert➜Module.
4. Введите или вставьте код во вновь созданном модуле.
Ссылка на это место страницы:
#file
Файлы статей доступны только зарегистрированным пользователям.
1. Введите свою почту
2. Нажмите Зарегистрироваться
3. Обновите страницу
Вместо этого блока появится ссылка для скачивания материалов.
Привет! Меня зовут Дмитрий. С 2014 года Microsoft Cretified Trainer. Вместе с командой управляем этим сайтом. Наша цель — помочь вам эффективнее работать в Excel.
Изучайте наши статьи с примерами формул, сводных таблиц, условного форматирования, диаграмм и макросов. Записывайтесь на наши курсы или заказывайте обучение в корпоративном формате.
Подписывайтесь на нас в соц.сетях: