Note: The other languages of the website are Google-translated. Back to English

Как восстановить утерянный пароль защиты рабочего листа в Excel?

Мы всегда устанавливаем пароли, чтобы защитить некоторые важные рабочие листы от уничтожения или изменения другими. Но если вы забудете свои пароли, как вы сможете это сделать? К счастью, Excel поддерживает некоторый код VBA для восстановления утерянного пароля защиты рабочего листа. Вы можете решить эту проблему следующим образом:

Восстановить утерянный пароль защиты рабочего листа в Excel с кодом VBA
Еще одно руководство по защите рабочего листа ...


Восстановить утерянный пароль защиты рабочего листа в Excel с кодом VBA

Следующий код VBA может помочь вам быстро отменить исходные пароли на листе.

1. Откройте свой рабочий лист, который ранее был защищен.

2. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: восстановить утерянный пароль защиты рабочего листа

Sub PasswordRecovery()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

4. Затем нажмите F5 нажмите клавишу, чтобы запустить этот код, и появится диалоговое окно, нажмите OK чтобы закрыть его, и ваши пароли защищенного листа будут сразу же отменены.

Ноты:

1. С помощью этого кода вы просто восстанавливаете только один пароль защиты рабочего листа за раз, если есть несколько защищенных рабочих листов, вам нужно применять этот код один за другим.
2. Приведенный выше код взят из http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.


С легкостью защитите несколько листов одновременно паролем в Excel:

Компания Защитить рабочие листы полезности Kutools for Excel может помочь вам защитить сразу несколько листов с помощью одного и того же пароля. Он также предоставляет утилиту для одновременного снятия защиты с этих листов. Скачать полную версию 30-дневная бесплатная пробная версия Kutools для Excel прямо сейчас!


Статьи по теме

Как защитить сразу несколько листов в Excel?

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (98)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
восстановление прохода у меня не сработало в excel 2013
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо!!! Отлично работает с офисом 2007
Этот комментарий был сведен к минимуму модератором на сайте
Супер!!!!!!!!! работает нормально.
Этот комментарий был сведен к минимуму модератором на сайте
Простое исправление. Еще один случай "знание - сила!" Спасибо, что поделились своими знаниями, чтобы помочь другим!
Этот комментарий был сведен к минимуму модератором на сайте
Работал безупречно. Знание - сила, спасибо, что поделились своими знаниями, чтобы расширить возможности других!
Этот комментарий был сведен к минимуму модератором на сайте
Уважаемая команда. Согласно вашим словам, я сделал это и решил свою проблему, но другая проблема заключается в том, что у меня есть лист Excel, в котором один лист защищен паролем, и когда я нажимаю Alt + F11 и выбираю «Вставить параметр», параметр Moudle отключается, поэтому как я могу получить его. Пожалуйста, предложите мне.
Этот комментарий был сведен к минимуму модератором на сайте
Работал как шарм в Excel 2013!!! Вы лучшие, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо большое!! это сработало для меня...
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, Чача Джи (Google)
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за помощь, чуть не сдался раньше, пока не попробовал ваш метод, он сразу работает, еще раз спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Я открыл файл, который хотел снять с защиты, и меня попросили ввести пароль. Я удерживал клавиши Alt + F11, и экран моего компьютера затемнялся. Я никогда не проходил мимо этого момента.
Этот комментарий был сведен к минимуму модератором на сайте
Я использую Microsoft Excel 2007, и когда я открыл защищенный файл, он запросил пароль, который я забыл. Когда я одновременно удерживаю Alt + F11, экран тускнеет, и я так и не прошел эту точку.
Этот комментарий был сведен к минимуму модератором на сайте
Очень полезная и своевременная информация. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
это работает..... Большое спасибо :-)
Этот комментарий был сведен к минимуму модератором на сайте
Я не могу отблагодарить вас за вашу любезную помощь. С наилучшими пожеланиями.
Этот комментарий был сведен к минимуму модератором на сайте
Каково приблизительное время работы для этого? Моя машина застряла на некоторое время 30 мин.
Этот комментарий был сведен к минимуму модератором на сайте
Потрясающий. Вы - гений
Этот комментарий был сведен к минимуму модератором на сайте
Потрясающий! Спасибо за помощь!
Этот комментарий был сведен к минимуму модератором на сайте
Потрясающий!!! Очень помогло :lol:
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо поддержка. Мир Интернета вещей действительно меняет нашу жизнь. Благодарю вас!
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL