Узнать пароль макросы excel

Узнать пароль макросы excel

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

В качестве исходных данных, задаётся старый и новый пароли.

Если поле «старый пароль» — пустое, подразумевается, что у файлов нет пароля.
Если поле «новый пароль» — пустое, подразумевается, что с файлов снимается пароль.

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

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

ВНИМАНИЕ: Это очень опасный макрос, — если вы случайно забудете, какой пароль вы установили на файлы,
— все обработанные макросом файлы Excel станут недоступны!

Так что, пользуйтесь макросом на свой страх и риск.

Напоминаю: снять (сбросить) пароль н а открытие файла невозможно!
(только полным перебором, — а это очень долго)

Часть кода макроса: (см. прикреплённый файл)

Вложение Размер Загрузки Последняя загрузка
SetPasswords.xlsb 27.69 КБ 56 3 года 11 недель назад
  • 12468 просмотров

Комментарии

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

Вотя я и был неправ )) перебором он очень долго будет ломать )) автору спасибо

А за макрос спасибо он очень выручает

насчет того что долго сбрасывать пароль несогласен ) есть коллекция ломалок от элкомсофта так они без проблем хакают пароли офиса

Это лучший макрос в моей жизни!

Отправить комментарий

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.

ПОПУЛЯРНЫЕ ПРОГРАММЫ

© 2009-2019 Игорь Вахненко

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

Читайте также:  Оформление возврата билета ржд

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

Способ номер 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 в редакторе

    Большинство наверняка знает как установить/снять пароль с VBA проекта вручную:

    1. ToolsVBAProject Properties-вкладка Protection;
    2. для защиты устанавливается галочка "Lock project for viewing"; для разблокировки — снимается;
    3. вписывается/удаляется сам пароль в полях Password и Confirm password.

    Предположу, что не очень многим может понадобиться снимать пароль с проекта VBA средствами самого VBA. Но все же данная тема имеет спрос, как я смог убедиться, общаясь на форумах. Прежде всего это может пригодиться тем, кто создает свои приложения на VBA и периодически нужно вносить изменения в уже созданные проекты(например копирование модулей и кодов из одного проекта в другой). Сразу оговорюсь: я не рассматриваю ситуации, когда вам неизвестен пароль к проекту. Предполагается, что вы знаете пароль и можете снять его вручную.

    Я лично знаю два способа снять пароль программно: через метод SendKeys и использовании функций API. Т.к. второй способ довольно громоздкий и сложный для понимания — я в данной статье опишу лишь первый способ. Он не содежит каких-либо изысков и довольно прост.

    Sub Unprotect_VBA() Dim objVBProject As Object, objVBComponent As Object, objWindow As Object Workbooks.Open "C:1.xls" Set objVBProject = ActiveWorkbook.VBProject ‘просматриваем все окна проекта в поисках окна снятия защиты For Each objWindow In objVBProject.VBE.Windows ‘ Type = 6 — это нужное нам окно If objWindow.Type = 6 Then objWindow.Visible = True objWindow.SetFocus: Exit For End If Next ‘вводим пароль и подтверждаем ввод SendKeys "

    ", True: SendKeys "", True ‘здесь Ваш код по внесению изменений в проект Set objVBProject = Nothing: Set objVBComponent = Nothing: Set objWindow = Nothing ActiveWorkbook.Close True End Sub

    Читайте также:  Расширение dwg что это

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

    "C:1.xls" — полный путь к книге, включая расширение файла.

    " — пароль к проекту. Тильды нужны, но они не являются частью кода. Т.е. сам код это — 1234.

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

    Также см.:
    [[Копирование модулей и форм из одной книги в другую]]
    [[Как удалить макросы в книге?]]
    [[Как добавить код процедуры программно, скопировать модуль]]
    [[Защита листов/снятие защиты]]

    Статья помогла? Поделись ссылкой с друзьями!

    Ссылка на основную публикацию
    Тонны в сутки в кг в секунду
    Сколько Килограмм в секунду в Метрическая тонна в сутки: 1 Килограмм в секунду = 86.4 Метрическая тонна в сутки 1...
    Тарол волкова от тараканов отзывы
    ЗДОРОВЬЕ И КРАСОТА ИЗ СИБИРИ Препарат нового поколения, обеспечивающий 100% эффект против тараканов и совершенно безопасный для человека и животных....
    Тачки для gta sa
    В этом разделе сайта вы можете скачать машины для GTA San Andreas. Пользователи очень любят скачивать моды машин именно с...
    Тонер для заправки картриджей canon 725
    Совместимость: Картридж Canon 728 подходит к принтерам MF-4410, 4430, 4450, 4550, 4570, 4580, 4730, 4750, 4780, 4870, 4890. Аналог —...
    Adblock detector