VBA Makra
Funkcje
Procedury
TOP

Usuwanie hasła w Excel

Opis

Jeśli nie wiesz, jak usunąć ochronę hasłem pliku Excel, możesz wybrać jedną z trzech poniższych opcji, aby zrobić to szybko i łatwo.


1. Używamy programu do usuwania haseł

Google i pobierz program "Office Password Recovery Toolbox" , który wybiera hasła do zaszyfrowanych dokumentów Microsoft Office: Word, Excel, Outlook, baz danych Access i projektów VBA.

Należy pamiętać, że otrzymane hasła nie będą natywne, a jedynie losowo wybraną kombinacją znaków (takie cechy ma mechanizm kodowania haseł w Excel).

2. Usuń hasła za pomocą kodu VBA

Otwórz menu Usługa - Makro - Edytor Visual Basic (Service - Macros - Visual Basic Editor) (lub naciśnij Alt+F11), wstaw moduł VBA (menu Insert - Module) i skopiuj tam ten tekst: 

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

Po wykonaniu tego makra hasła zostaną trwale usunięte z pliku Excel.

3. Usuwanie hasła za pomocą XML (dla zaawansowanych użytkowników)

Szybkie kroki, aby złamać hasło w Excel, zmieniając kod wewnętrzny w pliku:

Szczegółowe wyjaśnienie:

  1. Nowy plik XML jest kontenerem.
  2. Możesz go otworzyć programem TotalCommander - umieść go na kursorze i naciśnij Ctrl + PageDown
  3. Więc w drodze "File.xlsx/xl/worksheets/sheet1.xml" Lub "sheet2" lub czymś innym jest ten arkusz chroniony hasłem. Na przykład, położony w "sheet1" .
  4. Wyodrębnij plik "sheet1.xml" z kontenera XLSX i otwórz w edytorze tekstu.
  5. Wyszukaj „przejście”.
  6. Edytor znajdzie kontener XML: 
    <sheetProtection password="CF7A" sheet="1" objects="1" scenarios="1" selectLockedCells="1" selectUnlockedCells="1"/>
    Czy coś takiego. Krótko mówiąc, kontener „sheetProtection”.
  7. Usuń cały kontener „sheetProtection” z „<” do „>”.
  8. Zapisz plik.
  9. Zwróć ten plik do kontenera XLSX.
  10. Wyjdź z pliku XLSX.
  11. Otwórz plik podwójnym kliknięciem i voila!!! Wszystko działa poprawnie!!!

P.S.

Jeśli znasz hasło, ale zakładka Nie chroń arkusza ("Unprotect sheet") nieaktywny, należy wybrać opcję „Edytuj” („Edit”), kliknąć przycisk „Książka dostępu” ("Access to workbook") , a następnie odznacz „Zezwalaj wielu użytkownikom na edycję pliku” ("Allow multiple users to edit file") .