Советы и лайфхаки по работе с Excel
Способ 1. (Используем программу)
Ищем в поисковике и загружаем программу «Office Password Recovery Toolbox«, которая подбирает пароли к запароленным документам Microsoft Office: MS Word, MS Excel, MS Outlook, баз данных MS Access и VBA проектам. Обратите внимание, что полученные пароли не будут родными, а только будут являться случайно подобранной комбинацией символов (это такие особенности механизма кодирования паролей в Excel).
Способ 2. (Средствами VBA )
Откройте меню Сервис — Макрос — Редактор Visual Basic ( или нажмите Alt + F11 ) , вставьте новый модуль (меню Insert — Module ) и скопируйте туда этот текст:
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
Dim kennwort as string
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
Kennwort = 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 «Done» & vbcr & «enjoy it )»
Next : Next : Next : Next : Next : Next
Next : Next : Next : Next : Next : Next
После выполнения данного макроса, пароли будут безвозвратно удалены из файла Excel.
Способ 3. (Для продвинутых пользователей)
Сохранить файл как — XML.
Далее открываем блокнотом.
Находим тег Password .
Удаляем его прочь.
Открываем Excel — вуаля!
- Объяснение:
Новые файлы Офиса — это контейнер. Архив, если хотите.
Открыть его можно через TotalCommander — ставим на него курсор и нажимаемCtrl + PageDown
Так вот по пути «Файл.xlsx/xl/worksheets/sheet1.xml» или « sheet2 » или как-то иначе, и находится тот самый запаролено лист. Для примера есть в « sheet1 «.
1. Вытаскиваем файл « sheet1.xml » из контейнера XLSX и открываем текстовым редактором.
2. Поиском по тексту ищем «pass».
3. Редактор находит XML-контейнер . Или что-то типа этого. Короче контейнер «sheetProtection «.
4. Убиваем весь контейнер « sheetProtection » от « ».
5. Сохраняем файл.
6. Закидываем обратно в контейнер XLSX.
7. Поднимаемся вверх из файла
8. Открываем файл двойным кликом и вуаля! Все работает!
Как разблокировать файл «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 в редакторе