Kod VBA do odblokowania zablokowanego arkusza Excel: 4 kroki

2025 Autor: John Day | [email protected]. Ostatnio zmodyfikowany: 2025-01-23 15:03

Jeśli kiedykolwiek zapomniałeś hasła do jednego ze swoich arkuszy programu Excel, wiesz, jakie to może być frustrujące. Kod użyty w tej instrukcji jest jednym z najprostszych, jakie znalazłem. Wygeneruje użyteczny kod, który odblokuje chroniony arkusz. Nie mogę wziąć kredytu za kod, ponieważ znalazłem go tylko w chwili potrzeby (i nie mogę już znaleźć, gdzie jest strona)… więc nie będę zbyt pomocny, jeśli ci to nie zadziała, ale mam odniosłem sukces i pomyślałem, że się podzielę.

Krok 1: Otwórz VBA

Otwórz arkusz roboczy, do którego zapomniałeś hasła. Użyj Alt + F11, aby wejść do edytora makr. Gdy w VBA kliknij dwukrotnie arkusz, który chcesz odblokować, z listy menu po lewej stronie. Spowoduje to otwarcie strony ogólnych deklaracji dla arkusza.

Krok 2: Wytnij i wklej łamacz kodu

Wstaw poniższy kod na otwartej stronie ogólnych deklaracji. Nie powinieneś niczego zmieniać, nazwy arkusza itp. Po prostu wytnij i wklej._ Sub PasswordBreaker() 'Przerywa ochronę hasłem arkusza roboczego. Dim i As Integer, j As Integer, k jako IntegerDim l jako liczba całkowita, m jako liczba całkowita, n jako liczba całkowita Dim i1 jako liczba całkowita, i2 jako liczba całkowita, i3 jako liczba całkowita Dim i4 jako liczba całkowita, i5 jako liczba całkowita, i6 jako liczba całkowita Przy wznowieniu błędu Dalej dla i = 65 do 66: Dla j = 65 Do 66: Dla k = 65 Do 66 Dla l = 65 Do 66: Dla m = 65 Do 66: Dla i1 = 65 Do 66 Dla i2 = 65 Do 66: Dla i3 = 65 Do 66: Dla i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet. Unprotect 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 "Jedno użyteczne hasło to " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Wyjście Sub End Jeśli Dalej: Dalej: Dalej: Dalej: Dalej: Dalej Dalej: Dalej: Dalej: Dalej: Dalej: Dalej Koniec Sub_

Krok 3: Uruchom makro

Po dodaniu kodu uruchom makro, wybierając opcję Uruchom z paska kart menu u góry ekranu edytora VBA lub po prostu naciśnij klawisz F5

Krok 4: Użyj wygenerowanego kodu

Makro powróci do arkusza roboczego, którego ochronę chcesz usunąć. Pojawi się okno stylu alertu z użytecznym kodem. W karcie menu Recenzja kliknij opcję Odblokuj arkusz. Wprowadź wygenerowany kod jako hasło i gotowe. Twój arkusz powinien być odblokowany! Powinieneś używać tej mocy mądrze i odpowiedzialnie tylko do odblokowania własnych arkuszy.