VBA Макросы
Функции
Процедуры
ВВЕРХ

Снятие пароля в Excel

Описание

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


1. Используем программу для удаления паролей

Гуглим и загружаем программу "Office Password Recovery Toolbox" , которая подбирает пароли к запароленным документам Microsoft Office: Word, Excel, Outlook, базам данных Access и VBA проектам.

Обратите внимание, что полученные пароли не будут родными, а будут являться случайно подобранной комбинацией символов (это такие особенности механизма кодирования паролей в Excel).

2. Удаляем пароли с помощью кода VBA

Откройте меню Сервис - Макрос - Редактор Visual Basic (Service - Macros - Visual Basic Editor) (или нажмите Alt+F11), вставьте VBA модуль (меню Insert - Module) и скопируйте туда этот текст: 

Sub PasswordRemover()

    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 SheetPassword 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
    
            SheetPassword = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
            
            ActiveSheet.Unprotect SheetPassword
            
            If ActiveSheet.ProtectContents = False Then
              MsgBox "Done" & vbcr & "enjoy it)"
              Exit Sub
            End If
    
        Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next

End Sub

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

3. Удаление пароля с помощью XML (для продвинутых пользователей)

Быстрые шаги для взлома пароля в Excel путем изменения внутреннего кода в файле:

Подробное объяснение:

  1. Новый файл xml является контейнером.
  2. Вы можете открыть его с помощью программы TotalCommander – поместите его на курсор и нажмите Ctrl+PageDown
  3. Так что в пути "File.xlsx/xl/worksheets/sheet1.xml" или "sheet2" или что-то другое есть этот защищенный паролем лист. Например, находится в "sheet1" .
  4. Извлеките файл "sheet1.xml" из контейнера XLSX и откройте в текстовом редакторе.
  5. Выполните поиск по слову "pass".
  6. Редактор найдет XML-контейнер: 
    <sheetProtection password="CF7A" sheet="1" objects="1" scenarios="1" selectLockedCells="1" selectUnlockedCells="1"/>
    Или нечто подобное. Короче, контейнер "sheetProtection".
  7. Удалите весь контейнер "sheetProtection" от "<" до ">".
  8. Сохраните файл.
  9. Поверните этот файл в контейнер XLSX.
  10. Выйдите из файла XLSX.
  11. Откройте файл двойным щелчком и вуаля!!! Всё работает!!!

P.S.

Если вы знаете пароль, но вкладка «Снять защиту листа» ("Unprotect sheet") неактивна, вам следует выбрать «Редактирование» ("Edit"), нажать кнопку «Доступ к книге» ("Access to workbook") , затем снять галочку «Разрешить нескольким пользователям редактировать файл» ("Allow multiple users to edit file") .