Снять пароль с макроса excel
Как разблокировать файл «Excel», если забыли пароль. Макрос подбора пароля.
В данной статье описаны несколько способов разблокировки (снятия защиты, пароля) в запароленном файле «Эксель» и приведен макрос подбора пароля к файлу.
Категорически рекомендую использовать данные способы для разблокировки и снятия защиты только со своих собственных файлов, когда забыли (запамятовали) пароль и ни в коем случае не применять данные способы для взлома паролей защиты на чужих файлах не принадлежащих Вам.
Способ номер 1. Использование бесплатной офисной программы Open Office Calc
Это один из самых простых способов снятия забытого пароля с файла.
Что нужно делать:
- Скачать и установить бесплатную программу Open Office.
- Открыть запароленный файл в программе Open Office Calc.
- Перейти во вкладку «Сервис»
- Далее выбрать пункт «Защитить документ»
- Снять флажок (галочку) с пункта с названием защищенного листа.
Снять пароль в Open Office
Способ номер 2. Использование программы-архиватора для снятия пароля с листа «Excel»
Что нужно делать:
- Установить программу для открытия архивов и архивирования документов, если таковая не установлена на Вашем ПК. Например WinRar или 7Zip ;
7Zip man
Сохранить как xlsx
Снятие пароля через архив
Удаление строки с паролем
Способ номер 3. Макрос VBA «Excel» для подбора пароля и снятия защиты листа.
Этот способ немного сложнее, так как от Вас потребуются хотя бы начальные знания в написании макросов «Excel».
Как пишется простейший макрос в «Excel» Вы можете посмотреть на странице сайта по ссылке:
Как написать простой макрос в программе Excel
Если вы знакомы с написанием макросов VBA , то для разблокировки файла защищенного паролем Вам следует выполнить следующие действия:
- Открыть редактор макросов во вкладке разработчик.
- Записать следующий код макроса:
- 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
- Запустить полученный макрос.
- После выполнения макроса пароль с листа «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
Табличный процессор Excel был разработана Microsoft ещё в 1985 году, с того времени его функциональность значительно расширилась, а интерфейс стал более удобным. Программа активно используется как финансистами, бухгалтерами, аналитиками, так и обычными пользователями. Функционал позволяет составлять сложные таблицы и делать расчёты по имеющимся в программе или внесёнными пользователем самостоятельно формулам, строить графики и диаграммы. Работа происходит на так называемых листах, которые включены в книгу (один документ Excel).
Снятие защиты паролем с Эксель
В Microsoft понимают, что файл может попасть не в те руки, поэтому дают возможность пользователю задать пароль для доступа к конкретному листу или всему документу. Есть возможность даже заблокировать отдельные ячейки от редактирования и/или просмотра. Но что делать, если забыли пароль, а в файле находятся важные данные? Пароль можно снять самостоятельно при помощи стандартных программ Windows.
Способ 1: Снять пароль при помощи архиватора
Данный способ лучше всего работает со старыми версиями программы (до версии от 2010 года). В последних версиях есть риск потери данных из-за новых параметров безопасности. Суть способа заключается в том, чтобы получить доступ к каждому листу отдельно. Для этого вам понадобится любой архиватор, который умеет работать с файлами .zip и инструмент для редактирования кода (подойдёт даже стандартный блокнот от Windows).
Работа может осуществляться только с файлами .xlsx, поэтому обратите внимание на то, в каком формате сохранён документ, т.к. старые версии Excel сохраняют документе в .xls формате. Если файл имеет расширение .xls, то пересохраните. Для этого откройте его в Excel и в верхнем меню выберите файл, а из выпадающего меню “Сохранить как”, далее в разделе “Тип файла” выбирайте “Книга Excel (.xlsx)”.
Далее требуется поменять расширение .xlsx на .zip. Для этого нажмите правой кнопкой мыши по файлу и выберите переименовать. В конце названия меняете расширение на .zip. Пример: “Таблица1.xlsx” переименовываете в “Таблица1.zip”.
Если, когда вы пытаетесь переименовать файл, у вас не показывается расширение, то проделайте следующую процедуру:
- Перейдите в «Панель управления».
- Выберите тип просмотра “Мелкие значки” и найдите “Параметры папок” (также может называться “Параметры Проводника”).
Зайдите в раздел “Вид”, затем в поле “Дополнительные параметры” найдите пункт “Скрывать расширения для зарегистрированных типов файлов” и снимите с него галочку. Примените изменения.
После проделанной процедуры вы без проблем сможете вручную пометь расширение любого файла.
Далее открываете архив и переходите в папку «xl», после в “worksheets”, где находятся листы в формате .xml. Листы в этом случае называются “sheet” и нумеруются по дате создания (sheet1, sheet2 и т.д.). Открыть файл нужно при помощи стандартного блокнота или специального реактора кода (например, NotePad++).
В открывшемся файле найдите фрагмент “sheetProtection”. Т.к. в файле будет много кода, рекомендуется воспользоваться быстрым поиском по содержимому при помощи сочетания клавиш Ctrl+F. Находите нужный блок, имеющий данную структуру ““sheetProtection переменная1=”” переменная2=””…”, более подробно можно видеть на скриншоте ниже. Для сброса пароля удаляете весь этот блок.
Если вы проделаете данную процедуру с листом, который был сохранён в программе версии 2010 года и выше, то потеряете все данные. В качестве решения данной проблемы удалите не весь блок, а только значение переменной “password”. Что касается версии начиная с 2016 года, то там нет переменной “password”, поэтому снять пароль при помощи архиватора в этом случае невозможно.
Когда закончите сохраните изменения и измените расширение файла обратно в .xlsx аналогичным образом, как меняли на .zip.
Данный способ позволяет снять пароль только с отдельных листов, поэтому если у вас полностью запароленный большой файл Excel с несколькими листами, то придётся снимать защиту с каждого вручную.
Способ 2: Удаление пароля через Макрос
В этом случае вам понадобится только сама таблица Excel и умение работать с консолью разработчика. По умолчанию панель разработчика не отображается в файле, чтобы её включить воспользуйтесь следующей инструкцией:
- Перейдите в пункт “файл” в левой части верхнего меню программы.
- Затем зайдите в “параметры”, в левом меню выберите “настройка ленты”.
- В поле “Основные вкладки” (находится справа) поставьте галочку напротив пункта “Разработчик”.
В открывшемся окне разработчика найдите кнопку “Макрос” или воспользуйтесь комбинацией клавиш 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
Время от времени ко мне попадают файлы 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, если вы забыли пароль?
Пароль снять защиту с листа Excel. Добрый день, друзья. В позапрошлой статье мы с вами рассматривали метод, как поставить защиту на Excel. Также, мы разобрались, как подобную защиту можно удалить. Имеется в виду снятие пароля, когда вы его помните. Если же его не помните, то сделать это уже сложнее. Но, всё равно, защиту с Excel убрать можно. Правда, нам придётся прибегнуть к стороннему софту. Но, это мелочи.
Кроме этого, я надеюсь, что полученные знания вы будете применять на своём компьютере и со своими документами. Не стоит забывать об уголовной ответственности, когда вы совершаете подобные действия с документами других людей.
Как снять защиту с листа Excel?
Первым делом, нам нужно открыть Excel, находящийся под защитой. Обращаем внимание, что все инструменты в меню Эксель листа окрашены блеклым серым цветом. То есть, они не активны. В таком документе нельзя ничего ввести в любую ячейку или что-то в ней поменять.
Если же вы попробуете это сделать, то появится следующее окошко:
Итак, чтобы убрать пароль с документа, нажмём на вкладку «Файл» главного окна.
У нас появляется новое окно, где в левой колонке выбираем вкладку «Сведения». После этого, в новом окне выбираем команду «Снять защиту».
При этом, Excel попросит вас набрать пароль для снятия защиты. Но, мы его не помним. Поэтому, вводить в это окошко ничего не нужно. Нажимаем «Отмена».
В это окошко можно войти и с помощью другой вкладки – «Рецензирование», которое находится на главном меню. На этой вкладке нам нужно выбрать «Снять защиту листа». Появляется окно с паролем, нажимаем «Отмена».
Эту книгу можно почитать. Но, что-либо поменять в ней нельзя. Однако в большей части случаев пользователи устанавливают минимальную защиту. К примеру, книгу, которую я сейчас рассматриваю, можно не только читать, но и копировать с неё текст. Делается это выделением фрагментов ячеек, затем, через ниспадающее меню выбираем «Копировать» (или Ctrl + C) и вставляем скопированный фрагмент в другую книгу или текстовый редактор.
Давайте внесём скопированный фрагмент в новую книгу. Файл – Создать – Новая книга. Жмём Ctrl + V. Как видите, данные с нашего документа прекрасным образом были скопированы в новый документ. При этом, без взлома пароля.
Снимаем защиту Excel 2003
Тот вариант, который мы с вами разобрали, действует на новых версиях Excel. У старых версий вариант защиты частично отличается.
Для снятия кода выполним следующие манипуляции.
- Выбираем вкладку «Сервис»;
- Далее, в ниспадающем меню кликнем по «Защите»;
- В появившемся справа контекстном меню выберем «Снять защиту листа».
После данных действий появится окошко, в котором вам предложат ввести пароль.
Далее, можно с этого документа копировать данные.
Как снять пароль в Excel?
Итак, вначале нужно проверить, показывает ваш Windows расширения на конце фалов, или нет. Во многих компьютерах расширения не отображаются. Итак, давайте проверим.
- Входим в «Проводник»;
- Затем, переходим во вкладку «Вид»;
- Ставим галку над строкой «Расширения имён…».
У нашего документа расширение xlsx, но, нам нужно поменять его на zip. То есть, на папку архива. Для этого, выделим файл, и кликнем по кнопочке F2. Перед переименованием расширения, у нас появляется окошко. Нажимаем «Да».
Данный документ теперь система Windows считает архивом поэтому она дала ему новый ярлык в виде архива.
Этот архив нужно открыть, не распаковывая его. То есть, открыть в самой программе WinRar или в той, которую вы используете. Главное, данный архив нельзя распаковывать. Для этого, нужно кликнуть по архиву правой клавишей и в контекстном меню выбрать «Открыть в WinRar».
Затем, нам нужно зайти в папочку «xl» программы «WinRar» или другого архиватора.
После этого, проходим в папочку «worksheets».
В данной папочке мы видим, сколько у книги листов. Выбираем нужный из листов и перетаскиваем мышью в «Проводник».
Теперь, по данному файлику нужно кликнуть правой клавишей. В ниспадающем меню выбрать «Изменить».
У меня открылся документ с непонятной кодовой записью в программе WordPad, у вас скорее всего откроется в «Блокноте», но, сути это не меняет. Нам нужно войти в поиск меню WordPad, или через клавиши Ctrl + F.
В поиск нужно ввести слово «sheetProtection», следом «Найти далее».
Теперь, начиная с тега sheetProtection удаляем всё содержимое до закрывающего тега. У меня до «scenarios=»1″». Я эту часть выделил желтым цветом. Другими словами, обязательно удаляйте код начиная с открывающей скобки . Если вы удалили одну из этих скобок, просто добавьте её из латинской клавиатуры. После удаления, нажимаем «Сохранить».
Теперь, заново переносим переделанный файл в папочку архива.
Мы должны не просто перенести код, но с заменой файлов. Жмём Ок.
Теперь программу архиватор нужно закрыть. Затем, мы архиву снова добавляем расширение xlsx, выделив его и нажав F2. У нас программа заново переспрашивает. Жмём Да.
Наш документ опять стал Excel. Теперь необходимо его запустить. После проделанных манипуляций, мы видим, что все ячейки документа стали легко редактироваться. То есть, нам удалось удалить пароль xlsx, не зная его. Задача выполнена!
Видео пароль снять защиту с листа Excel
Вывод: Задача как убрать пароль с листа Excel выполнена. Как видите, всё просто, хотя немного запутанно. Из сторонних программ мы использовали только WinRar. Хотя, можно применить любой архиватор. Если у вас данное действие не получилось, значит, вы удалили лишнюю часть кода, или наоборот оставили. Поэтому, будьте предельно внимательны. Также, записывайте в нескольких местах ваши пароли, чтобы не прибегать к таким средствам. Успехов!