Vvmebel.com

Новости с мира ПК
1 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Макрос для снятия пароля в excel

Макрос для снятия пароля в excel

Табличный процессор Excel был разработана Microsoft ещё в 1985 году, с того времени его функциональность значительно расширилась, а интерфейс стал более удобным. Программа активно используется как финансистами, бухгалтерами, аналитиками, так и обычными пользователями. Функционал позволяет составлять сложные таблицы и делать расчёты по имеющимся в программе или внесёнными пользователем самостоятельно формулам, строить графики и диаграммы. Работа происходит на так называемых листах, которые включены в книгу (один документ Excel).

Снятие защиты паролем с Эксель

В Microsoft понимают, что файл может попасть не в те руки, поэтому дают возможность пользователю задать пароль для доступа к конкретному листу или всему документу. Есть возможность даже заблокировать отдельные ячейки от редактирования и/или просмотра. Но что делать, если забыли пароль, а в файле находятся важные данные? Пароль можно снять самостоятельно при помощи стандартных программ Windows.

Способ 1: Снять пароль при помощи архиватора

Данный способ лучше всего работает со старыми версиями программы (до версии от 2010 года). В последних версиях есть риск потери данных из-за новых параметров безопасности. Суть способа заключается в том, чтобы получить доступ к каждому листу отдельно. Для этого вам понадобится любой архиватор, который умеет работать с файлами .zip и инструмент для редактирования кода (подойдёт даже стандартный блокнот от Windows).

Работа может осуществляться только с файлами .xlsx, поэтому обратите внимание на то, в каком формате сохранён документ, т.к. старые версии Excel сохраняют документе в .xls формате. Если файл имеет расширение .xls, то пересохраните. Для этого откройте его в Excel и в верхнем меню выберите файл, а из выпадающего меню “Сохранить как”, далее в разделе “Тип файла” выбирайте “Книга Excel (.xlsx)”.

Далее требуется поменять расширение .xlsx на .zip. Для этого нажмите правой кнопкой мыши по файлу и выберите переименовать. В конце названия меняете расширение на .zip. Пример: “Таблица1.xlsx” переименовываете в “Таблица1.zip”.

Если, когда вы пытаетесь переименовать файл, у вас не показывается расширение, то проделайте следующую процедуру:

  1. Перейдите в «Панель управления».
  2. Выберите тип просмотра “Мелкие значки” и найдите “Параметры папок” (также может называться “Параметры Проводника”).

Зайдите в раздел “Вид”, затем в поле “Дополнительные параметры” найдите пункт “Скрывать расширения для зарегистрированных типов файлов” и снимите с него галочку. Примените изменения.

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

Далее открываете архив и переходите в папку «xl», после в “worksheets”, где находятся листы в формате .xml. Листы в этом случае называются “sheet” и нумеруются по дате создания (sheet1, sheet2 и т.д.). Открыть файл нужно при помощи стандартного блокнота или специального реактора кода (например, NotePad++).

В открывшемся файле найдите фрагмент “sheetProtection”. Т.к. в файле будет много кода, рекомендуется воспользоваться быстрым поиском по содержимому при помощи сочетания клавиш Ctrl+F. Находите нужный блок, имеющий данную структуру ““sheetProtection переменная1=”” переменная2=””…”, более подробно можно видеть на скриншоте ниже. Для сброса пароля удаляете весь этот блок.

Если вы проделаете данную процедуру с листом, который был сохранён в программе версии 2010 года и выше, то потеряете все данные. В качестве решения данной проблемы удалите не весь блок, а только значение переменной “password”. Что касается версии начиная с 2016 года, то там нет переменной “password”, поэтому снять пароль при помощи архиватора в этом случае невозможно.

Когда закончите сохраните изменения и измените расширение файла обратно в .xlsx аналогичным образом, как меняли на .zip.

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

Способ 2: Удаление пароля через Макрос

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

  1. Перейдите в пункт “файл” в левой части верхнего меню программы.
  2. Затем зайдите в “параметры”, в левом меню выберите “настройка ленты”.
  3. В поле “Основные вкладки” (находится справа) поставьте галочку напротив пункта “Разработчик”.

В открывшемся окне разработчика найдите кнопку “Макрос” или воспользуйтесь комбинацией клавиш Alt+F8.

Заполняем поле с именем макроса (можно придумать любое имя, но в нём не должно быть русских букв и пробелов). Нажимаем “Создать”. Система открывает окно для ввода кода.

Вводите следующий код:

Sub Password_Cracker()
Dim t!
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Long
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
Dim kennwort As String
t = Timer
On Error GoTo err_
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
kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6)
For n = 32 To 126
ActiveSheet.Unprotect kennwort & Chr(n)
MsgBox «Done in » & Format(Timer — t, «0.0 sec»)
Exit Sub
nxt_: Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Exit Sub
err_: Resume nxt_
End Sub

Закрываем окно, сохранив при этом изменения. В режиме разработчика снова используйте комбинацию клавиш Alt+F8, чтобы увидеть созданный макрос. Выберите его и нажмите “Выполнить” в правом углу.

Макрос будет выполняться приблизительно 10-60 секунд в зависимости от мощности вашего компьютера и размера документа.

Заключение

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

Расскажи друзьям в социальных сетях

комментариев 14

Спасибо большое за статью. Написано четко, лаконично, без идиотских исковерканных словечек, которыми грешат многие в интернете.
Но я не смог воспользоваться отличными способами, описанными в статье.
Я попробовал первый вариант. У меня Microsoft Office 2010. Но после замены расширения .xlsx на .zip получил ответ программы:
«Не удается открыть папку.
Путь к сжатой ZIP-папке «С:UsersCompDesktopЛогин 25.02.2017- копия.zip» содержит недопустимые знаки, из-за которых извлечение невозможно:-, »
Попробовал второй вариант. Но при создании макроса возможно использовать только для открытых книг Excell, а открыть книгу невозможно без пароля. Если пароль есть, то зачем его искать? Так что у меня ничего не получилось. а в файле Excele я хранил пароли к многим сайтам и службам. А теперь вдруг он перестал открываться с паролем, которым я его открывал сотни раз.

Данный макрос написан для снятия защиты с листа, а не с книги в целом.

Как разблокировать файл «Excel», если забыли пароль. Макрос подбора пароля.

В данной статье описаны несколько способов разблокировки (снятия защиты, пароля) в запароленном файле «Эксель» и приведен макрос подбора пароля к файлу.

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

Способ номер 1. Использование бесплатной офисной программы Open Office Calc

Это один из самых простых способов снятия забытого пароля с файла.

Что нужно делать:

  1. Скачать и установить бесплатную программу Open Office.
  2. Открыть запароленный файл в программе Open Office Calc.
  3. Перейти во вкладку «Сервис»
  4. Далее выбрать пункт «Защитить документ»
  5. Снять флажок (галочку) с пункта с названием защищенного листа.

Снять пароль в Open Office

  • Пароль с файла будет снят.
  • Теперь остается только сохранить незапароленный файл и открыть его в «Excel», при необходимости.
  • Способ номер 2. Использование программы-архиватора для снятия пароля с листа «Excel»

    Что нужно делать:

      Установить программу для открытия архивов и архивирования документов, если таковая не установлена на Вашем ПК. Например WinRar или 7Zip ;

    7Zip man

  • Запустить программу архиватор ;
  • Сохранить защищенный файл в формате .xlsx ;

    Сохранить как xlsx

  • Открыть защищенный документ в этой программе, как архив ;
  • Далее перейти в папку архива Название файла.xlsxxlworksheets ;

    Снятие пароля через архив

  • Открыть интересующий вас лист для редактирования ;
  • Найдите фрагмент кода начинающийся с « ». Удалите его ;

    Удаление строки с паролем

  • Сохраните архив с измененным файлом ;
  • Закройте программу-архиватор и откройте файл в «Excel» ;
  • Защита листа снята.
  • Способ номер 3. Макрос VBA «Excel» для подбора пароля и снятия защиты листа.

    Этот способ немного сложнее, так как от Вас потребуются хотя бы начальные знания в написании макросов «Excel».

    Как пишется простейший макрос в «Excel» Вы можете посмотреть на странице сайта по ссылке:

    Как написать простой макрос в программе Excel

    Если вы знакомы с написанием макросов VBA , то для разблокировки файла защищенного паролем Вам следует выполнить следующие действия:

    1. Открыть редактор макросов во вкладке разработчик.
    2. Записать следующий код макроса:
    • Sub podbor_ruexcel()
    • Dim E1, E2, E3, E4, E5, E6, i, j, k, l, m, n As Integer
    • Dim ruexcel As String
    • Dim t!
    • t = Timer
    • On Error GoTo err_
    • 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 E1 = 65 To 66
    • For E2 = 65 To 66: For E3 = 65 To 66: For E4 = 65 To 66
    • For E5 = 65 To 66: For E6 = 65 To 66
    • ruexcel = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(E1) & Chr(E2) & Chr(E3) & Chr(E4) & Chr(E5) & Chr(E6)
    • For n = 32 To 126
    • Unprotect ruexcel & Chr(n)
    • MsgBox «Пароль снят » & Format(Timer — t, «0.0 sec»)
    • Exit Sub
    • nxt_: Next: Next: Next: Next: Next: Next
    • Next: Next: Next: Next: Next: Next
    • Exit Sub
    • err_: Resume nxt_
    • End Sub
    1. Запустить полученный макрос.
    2. После выполнения макроса пароль с листа «Excel» будет снят.

    Результат редактирования макроса:

    Макрос подбора пароля к листу Excel в редакторе

    Снять защиту с листа excel 2016 в VBA

    Как снять защиту листа программно?
    Нужно срочно изменить формулу на защищенном листе, но пароль где то потерялся, выручте пожалуйста.

    Программно снять защиту с листа чтобы добавить строку
    Добрый день! Есть макрос на добавление строки: Sub add_row() Rows(ActiveCell.Row).Insert.

    Как снять защиту листа на нажатие уровня структуры
    Есть такая проблемка, к сожалению не знаю как ее решить. Может кто знает.

    Можно ли программно ставить и снимать защиту с VBA проекта в Excel, Access?
    Помогите, пожалуйста, можно ли программно ставить и снимать защиту с VBA проекта в Excel, Access.

    igleb75, попробуйте старым инструментом пока я может сегодня или завтра выложу новый

    Сегодня у меня весь день на пробы по данному занятию.

    Добавлено через 2 часа 18 минут
    Пробовал два этих макроса

    Добавлено через 3 минуты
    Пробовал надстройку MulTExplex и тоже безрезультатно. Голову уже сломал. Надо просто очень этот Excel файл открыть.

    igleb75, Привет обновил надстройку можешь скачивать, снимает пароли со всех версий Excel

    используйте снять пароли удалить XML

    igleb75, привет!
    должно быстро быть

    вы используете снять пароли удалить XML
    потому что другой инструмент с 2016 excel не снимет пароль

    А если там нет xml ?

    »»»»»»»»»
    Решил всё-таки взглянуть на этот «инструмент», хотя оно мне и не надо.

    Получил вот это (см.скрин). Охота «взглянуть» пропала.

    SoftIce, привет! проблема) у меня не возникает такой ошибки, сейчас попробую заменить файл проверите ?
    не пойму что случилось

    если нет XML это может быть с файлом формата *.xlsb, тогда нужно его сохранить в другом формате в теории

    Добавлено через 1 минуту
    на почту можно будет скинуть ? для оперативности

    Добавлено через 8 минут
    все не надо, но БОЛЬШОЕ ВАМ спасибо!)

    Добавлено через 8 минут
    Обновил)! проверте)

    igleb75, я сейчас файл надстройки обновил раньше был не рабочий файл

    Добавлено через 1 минуту
    у вас нет проблем с файлом ?

    Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

    Статические строковые массивы — VBA Excel 2016
    Здравствуйте. Помогите разобраться! 6 часов угробил на тесты и поиски ответов — ничего не пойму.

    VBA Excel печать листа
    На листе ActiveSheet определены сквозные строки "$1:$2" для печати на каждой странице.

    Excel VBA: Копирование листа из другой книги
    Снова здравствуйте! Пытаюсь скопировать лист из одной книги в другую Private Sub Load_Click() .

    Отображение целого листа Excel в форме vba
    Все привет. Сразу оговорюсь, я не профи в vba, так, балуюсь с кодами которые нашел на форумах. .

    Excel Store

    Снять защиту с листов или книги Excel

    Краткое описание

    Макрос позволяет легко и быстро восстановить доступ к листам или книге Excel. Просто нажмите кнопку, выберите нужный файл и макрос создаст копию указанного файла, но уже без установленного ранее пароля.

    Подробное описание

    Иногда бывают ситуации, когда работая с тем или иным файлом Excel, мы устанавливаем защиту (пароль) на листы в файле или на саму книгу. Если пароль простой, используется для большинства документов или где-то записан, то разумеется, разблокировка не вызывает проблем. Но что делать, если запись о пароле утеряна, пароль устанавливался давно или мы не можем его вспомнить?

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

    1. на всех листах книги (если таковые были установлены)
    2. в самой книге (если включалась защита на файл excel)

    Для использования макроса достаточно:

    а) нажать кнопку «Снять защиту с файла»

    б) в появившемся окне подтвердить, что пароль удаляется именно в вашем файле

    в) после нажатия кнопки «OK», в диалоговом окне выбрать файл Excel, в котором требуется снять защиту

    Результатом работы макроса будет новый файл (точная копия вашего указанного), но уже без пароля на листах и в книге. Сохраняется данный файл в папке с исходным (выбранным) вами файлом и в названии данного файла присутствует текст «NotProtectionFile». Как пример:

    Макрос успешно снимает защиту в файлах Excel с расширением xlsx и xlsm. Версия Excel (2007, 2010, 2013) значения не имеет. Данным макросом также успешно можно сбросить пароли с файлов xls и xlsb, если нужные файлы предварительно пересохранить в поддерживаемый макросом формат (xlsx/xlsm).

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

    И еще раз напоминаем. В осстановление собственных паролей — это легальная операция. Взлом паролей чужих файлов без явного согласия их владельца запрещен.

    Как снять защиту с листа Excel

    Время от времени ко мне попадают файлы Excel страницы которых защищены от изменений. Авторы таким способом пытаются защитить документ от внесения изменений. Если бы у вас был пароль, то вы могли поступить как на рисунке ниже.

    Но эта статья для тех у кого пароля нет, а снять защиту с листа Excel очень надо.

    Как снять защиту от редактирования с листа книги Excel с помощью офисного пакета программ OpenOffice

    Это самый простой способ снятия защиты. Достаточно открыть файл Excel в редакторе таблиц OpenOffice Calc и снять галочку в меню «Сервис -> Защитить документ -> Лист». При этом не нужно вводить никаких паролей и т.д. Да, да — это всё. Осталось только сохранить разблокированный файл Excel.

    Я так понимаю, что разработчики OpenOffice чихать хотели на защиту, которую придумали в компании MicroSoft. К слову сказать, подобные манипуляции с другим бесплатным пакетом LibreOffice желаемого результата не принесут. То есть при попытке разблокировки у вас запросят пароль, как и в случае использования оригинального MicroSoft Office.

    Разблокировка данным способом проводилась с использованием OpenOffice версии 4.1.2 от 28 октября 2015

    Как снять защиту от редактирования листа Excel с помощью макроса MicroSoft Office

    Будем снимать защиту от редактирования с листов Excel с помощью самой же программы Excel. Для это воспользуемся встроенной поддержкой макросов.

    Если у вас нет вкладки для разработчиков, то включите ее в настройках:

    Затем выбираем пункт «Макросы» на вкладке для разработчиков:

    Вводим название нашего макроса и нажимаем кнопку «Создать»:

    В появившемся окне

    вставляем следующий код:

    У вас должно получиться примерно так:

    Закрываем главное окно:

    снова нажимаем на вкладке для разработчиков кнопку «Макросы»

    и в появившемся окне нажимаем кнопку «Выполнить»

    Через некоторое время вы получите уведомление, что все готово:

    Осталось только сохранить файл. При этом Excel спросит вас сохранять ли макрос:

    Разблокировка данным способом проводилась с помощью MicroSoft Office Excel 2010.

    Разблокировка с помощью архиватора и текстового редактора

    Это способ для тех, кто хочет знать как защита от редактирования устроена изнутри.
    Измените расширение файла XLSX на ZIP.

    Если у вас файл в формате XLS, то в начале, чтобы воспользоваться этим способом, сохраните его в XLSX.

    Откройте файл в архиваторе, я буду использовать бесплатный BandZip.

    Распакуйте необходимый лист из книги Excel используя путь в архиве «xl -> worksheets».
    Откройте полученный файл, к примеру sheet1.xml в любом текстовом редакторе, можно даже в блокноте.

    Найдите в тексте секцию

    Спасибо огромное макрос отработал на все 100!

    Читать еще:  Как высчитать среднее значение в excel
    Ссылка на основную публикацию
    Adblock
    detector