Kód VBA na odomknutie uzamknutého listu programu Excel: 4 kroky
Kód VBA na odomknutie uzamknutého listu programu Excel: 4 kroky

Obsah:

Anonim
Kód VBA na odomknutie uzamknutého listu programu Excel
Kód VBA na odomknutie uzamknutého listu programu Excel
Kód VBA na odomknutie uzamknutého listu programu Excel
Kód VBA na odomknutie uzamknutého listu programu Excel

Ak ste niekedy zabudli heslo pre jeden zo svojich pracovných listov programu Excel, viete, aké frustrujúce to môže byť. Kód použitý v tejto inštrukcii je jedným z najjednoduchších, aké som našiel. Vygeneruje použiteľný kód, ktorý odomkne váš chránený list. Nemôžem si pripísať kredit za kód, pretože som ho našiel iba v okamihu potreby (a už nemôžem nájsť, kde sa stránka nachádza)… nooo, ak vám to nefunguje, veľmi vám nepomôžem, ale mal s tým úspech a myslel som si, že sa o to podelím.

Krok 1: Otvorte VBA

Otvorte VBA
Otvorte VBA

Otvorte list, na ktorý ste zabudli heslo. Na vstup do editora makier použite Alt+F11. Keď ste vo VBA, dvakrát kliknite na list, ktorý musíte odomknúť zo zoznamu ponúk vľavo. Tým sa otvorí stránka so všeobecnými vyhláseniami pre list.

Krok 2: Vystrihnite a prilepte prerušovač kódu

Vystrihnite a prilepte prerušovač kódu
Vystrihnite a prilepte prerušovač kódu

Vložte kód nižšie na stránku všeobecných vyhlásení, ktorú ste otvorili. Nemali by ste nič meniť, názov hárka atď. Stačí vystrihnúť a prilepiť. _ Sub PasswordBreaker () 'Prestávky v pracovnom hárku ochranou heslom. 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: pre k = 65 až 66 pre l = 65 až 66: pre m = 65 až 66: pre i1 = 65 až 66 pre i2 = 65 až 66: pre i3 = 65 až 66: pre 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žiteľné 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čiť čiastkový koniec If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next: Next End Sub_

Krok 3: Spustite makro

Spustite makro
Spustite makro

Po pridaní kódu spustite makro kliknutím na položku Spustiť na paneli s ponukami v hornej časti obrazovky editora VBA alebo jednoducho stlačte kláves F5.

Krok 4: Použite vygenerovaný kód

Použite vygenerovaný kód
Použite vygenerovaný kód
Použite vygenerovaný kód
Použite vygenerovaný kód
Použite vygenerovaný kód
Použite vygenerovaný kód

Makro vás vráti do pracovného hárka, od ktorého chcete zrušiť ochranu. Zobrazí sa pole so štýlom výstrahy s použiteľným kódom. Na karte ponuka Revízia kliknite na položku Odbrániť list. Vygenerovaný kód zadajte ako heslo a hotovo. Váš hárok by mal byť odomknutý! Túto právomoc by ste mali používať múdro a zodpovedne iba na odomknutie vlastných pracovných hárkov.