Co je dobré vědět
- Zrušit ochranu jako vlastníka: Otevřete tabulku. Vyberte Recenze > Unprotect Sheet. Zadejte heslo používané k ochraně souboru. Vyberte OK.
- Odemknout bez hesla: Otevřete tabulku. Otevřete editor kódu Visual Basic výběrem Developer > Zobrazit kód.
- Poté zadejte kód uvedený v tomto článku a vyberte Spustit. Během několika minut je heslo odhaleno. Vyberte OK.
Tento článek vysvětluje, jak zrušit ochranu sešitů aplikace Excel buď jako vlastník sešitu s heslem, nebo jako jednotlivec bez hesla. Tyto informace platí pro sešity aplikace Excel v aplikaci Microsoft Excel 365, Microsoft Excel 2019, 2016 a 2013.
Jak odemknout sešit Excel jako vlastník
Microsoft Excel je nabitý funkcemi. Jednou z takových funkcí je schopnost chránit soubory aplikace Excel na úrovni buňky, tabulky nebo sešitu. Někdy je nutné zrušit ochranu sešitů aplikace Excel, aby se změny dat projevily správně.
Tato metoda předpokládá, že jako vlastník souboru si pamatujete heslo použité k ochraně tabulky.
-
Otevřete chráněnou tabulku a vyberte Review > Unprotect Sheet. Můžete také kliknout pravým tlačítkem na chráněnou tabulku a vybrat Unprotect Sheet.
Chráněnou tabulku můžete identifikovat v části Změny na kartě Kontrola na pásu karet. Pokud je tabulka chráněná, zobrazí se možnost Unprotect Sheet.
Image -
Zadejte heslo používané k ochraně tabulky a poté vyberte OK.
Image -
Vaše tabulka nyní nebude chráněna a lze ji upravit.
Image
Jak zrušit ochranu sešitu Excel bez znalosti hesla
Možná jste ochránili svůj excelový sešit nebo tabulku a nemuseli jste je nějakou dobu, dokonce roky, upravovat. Nyní, když potřebujete provést změny, si již nepamatujete heslo, které jste použili k ochraně této tabulky.
Naštěstí vám tyto kroky umožní zrušit ochranu vašeho sešitu pomocí skriptu Virtual Basic jako makra k identifikaci hesla.
- Otevřete chráněnou tabulku.
-
Vstupte do editoru kódu Visual Basic buď stisknutím ALT+F11 nebo výběrem Vývojář > Zobrazit kód.
Image -
V okně Kód chráněného listu zadejte následující 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
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 až 66
Pro i5=65 až 66: Pro i6=65 až 66: Pro 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ž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)
Exit Sub
End If
Další: Další: Další: Další: Další: Další
Další: Další: Další: Další: Další: Další
Konec Pod
Image -
Vyberte Spustit nebo stiskněte F5 pro provedení kódu.
Image -
Spuštění kódu bude trvat několik minut. Po dokončení se zobrazí vyskakovací okno s heslem. Vyberte OK a vaše tabulka nebude chráněna.
Toto není původní heslo a nemusíte si ho pamatovat.
