Čo by ste mali vedieť
- Zrušiť ochranu ako vlastníka: Otvorte tabuľku. Vyberte Recenzia > Unprotect Sheet. Zadajte heslo používané na ochranu súboru. Vyberte OK.
- Zrušiť ochranu bez hesla: Otvorte tabuľku. Otvorte editor kódu Visual Basic výberom Developer > Zobraziť kód.
- Potom zadajte kód uvedený v tomto článku a vyberte Spustiť. O niekoľko minút sa odhalí heslo. Vyberte OK.
Tento článok vysvetľuje, ako zrušiť ochranu zošitov programu Excel buď ako vlastník zošita s heslom, alebo ako jednotlivec bez hesla. Tieto informácie sa týkajú excelových zošitov v Microsoft Excel 365, Microsoft Excel 2019, 2016 a 2013.
Ako odomknúť excelový zošit ako vlastník
Microsoft Excel je nabitý funkciami. Jednou z takýchto funkcií je schopnosť chrániť vaše excelové súbory na úrovni bunky, tabuľky alebo zošita. Niekedy je potrebné zrušiť ochranu zošitov programu Excel, aby sa zabezpečilo, že sa zmeny údajov uplatnia správne.
Táto metóda predpokladá, že ako vlastník súboru si pamätáte heslo používané na ochranu tabuľky.
-
Otvorte chránenú tabuľku a vyberte Review > Unprotect Sheet. Môžete tiež kliknúť pravým tlačidlom myši na chránenú tabuľku a potom vybrať Unprotect Sheet.
Chránenú tabuľku môžete identifikovať v sekcii Zmeny na karte Kontrola na páse s nástrojmi. Ak je tabuľka chránená, zobrazí sa možnosť Unprotect Sheet.
-
Zadajte heslo používané na ochranu tabuľky a potom vyberte OK.
-
Vaša tabuľka teraz nebude chránená a možno ju upraviť.
Ako zrušiť ochranu zošita programu Excel bez znalosti hesla
Je možné, že ste si ochránili svoj excelový zošit alebo tabuľku a už nejaký čas, dokonca roky, ste ich nemuseli upravovať. Teraz, keď potrebujete vykonať zmeny, už si nepamätáte heslo, ktoré ste použili na ochranu tejto tabuľky.
Tieto kroky vám našťastie umožnia zrušiť ochranu vášho zošita pomocou skriptu Virtual Basic ako makra na identifikáciu hesla.
- Otvorte chránenú tabuľku.
-
Vstúpte do editora kódu Visual Basic stlačením ALT+F11 alebo vyberte Vývojár > Zobraziť kód.
-
V okne Kód chráneného hárku zadajte nasledujúci kód:
Sub PasswordBreaker()
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
Pri chybe Pokračovať ďalej
For i=65 až 66: Pre 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 až 66
Pre i5=65 až 66: Pre i6=65 až 66: Pre n=32 až 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ť pod
End If
Ďalší: Ďalší: Ďalší: Ďalší: Ďalší: Ďalší
Ďalší: Ďalej: Ďalej: Ďalej: Ďalej: Ďalej
Koniec Sub
-
Vyberte Spustiť alebo stlačte F5 na vykonanie kódu.
-
Spustenie kódu bude trvať niekoľko minút. Po dokončení sa zobrazí kontextové okno s heslom. Vyberte OK a vaša tabuľka nebude chránená.
Toto nie je pôvodné heslo a nemusíte si ho pamätať.