Kód VBA pro odemknutí uzamčeného listu aplikace Excel: 4 kroky
Kód VBA pro odemknutí uzamčeného listu aplikace Excel: 4 kroky

Obsah:

Anonim
Kód VBA k odemknutí uzamčeného listu aplikace Excel
Kód VBA k odemknutí uzamčeného listu aplikace Excel
Kód VBA k odemknutí uzamčeného listu aplikace Excel
Kód VBA k odemknutí uzamčeného listu aplikace Excel

Pokud jste někdy zapomněli heslo pro jeden ze svých listů aplikace Excel, víte, jak frustrující to může být. Kód použitý v této instrukci je jedním z nejjednodušších, které jsem našel. Vygeneruje použitelný kód, který odemkne váš chráněný list. Nemohu si připsat kredit za kód, protože jsem jej našel jen v okamžiku potřeby (a nemohu už najít, kde je stránka) … sooo, moc vám nepomůžu, pokud vám to nefunguje, ale já měl s tím úspěch a myslel si, že se o to podělím.

Krok 1: Otevřete VBA

Otevřete VBA
Otevřete VBA

Otevřete list, na který jste zapomněli heslo. Pomocí Alt+F11 vstupte do editoru maker. Jakmile jste ve VBA, dvakrát klikněte na list, který potřebujete odemknout ze seznamu nabídek vlevo. Tím se otevře stránka obecných prohlášení pro list.

Krok 2: Vyjmout a vložit Breaker kódu

Vyjmout a vložit Breaker Code
Vyjmout a vložit Breaker Code

Vložte níže uvedený kód na stránku obecných prohlášení, kterou jste otevřeli. Neměli byste nic měnit, název listu atd. … Stačí vyjmout a vložit. _ Sub PasswordBreaker () 'Přeruší ochranu hesla pracovního listu. Dim i As Integer, j As Integer, k As IntegerDim 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 On Error Resume Next For i = 65 To 66: For j = 65 až 66: pro k = 65 až 66 pro l = 65 až 66: pro m = 65 až 66: pro i1 = 65 až 66 pro i2 = 65 až 66: pro i3 = 65 až 66: pro 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 použitelné heslo je" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Ukončit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next: Next End Sub_

Krok 3: Spusťte makro

Spusťte makro
Spusťte makro

Jakmile je kód přidán, spusťte Makro výběrem Spustit na liště v horní části obrazovky editoru VBA nebo jednoduše stiskněte F5

Krok 4: Použijte vygenerovaný kód

Použijte vygenerovaný kód
Použijte vygenerovaný kód
Použijte vygenerovaný kód
Použijte vygenerovaný kód
Použijte vygenerovaný kód
Použijte vygenerovaný kód

Makro vás vrátí na list, u kterého chcete zrušit ochranu. Zobrazí se pole stylu upozornění s použitelným kódem. Na kartě Kontrola klikněte na Odemknout list. Vygenerovaný kód zadejte jako heslo a hotovo. Váš list by měl být odemčen! Tuto sílu byste měli používat moudře a zodpovědně pouze k odemčení vlastních pracovních listů.