Mida teada
- Omaniku kaitse tühistamine: avage arvutustabel. Valige Review > Tühista lehe kaitse. Sisestage faili kaitsmiseks kasutatav parool. Valige OK.
- Kaitse ilma paroolita eemaldamine: avage arvutustabel. Avage Visual Basic koodiredaktor, valides Arendaja > Kuva kood.
- Seejärel sisestage selles artiklis esitatud kood ja valige Run. Mõne minuti pärast ilmub parool. Valige OK.
See artikkel selgitab, kuidas eemaldada Exceli töövihikute kaitse parooliga töövihiku omanikuna või paroolita üksikisikuna. See teave kehtib Exceli töövihikute kohta versioonides Microsoft Excel 365, Microsoft Excel 2019, 2016 ja 2013.
Kuidas avada Exceli töövihik omanikuna
Microsoft Excel on täis funktsioone. Üks selline funktsioon on võimalus kaitsta oma Exceli faile lahtri, arvutustabeli või töövihiku tasemel. Mõnikord on vaja Exceli töövihikute kaitse tühistada, et tagada andmete muudatuste õige rakendamine.
See meetod eeldab, et faili omanikuna mäletate arvutustabeli kaitsmiseks kasutatud parooli.
-
Avage kaitstud arvutustabel ja valige Review > Tühista lehe kaitse. Võite ka kaitstud arvutustabelil paremklõpsata ja seejärel valida Unprotect Sheet.
Kaitstud arvutustabeli saate tuvastada lindi vahekaardi Ülevaatus jaotises Muudatused. Kui arvutustabel on kaitstud, näete valikut Tühista lehe kaitse.
Image -
Sisestage arvutustabeli kaitsmiseks kasutatav parool, seejärel valige OK.
Image -
Teie arvutustabel on nüüd kaitsmata ja seda saab muuta.
Image
Kuidas eemaldada Exceli töövihiku kaitset ilma parooli teadmata
Olete võib-olla kaitsnud oma Exceli töövihikut või arvutustabelit ega ole pidanud seda mõnda aega, isegi aastaid, muutma. Nüüd, kui peate tegema muudatusi, ei mäleta te enam parooli, mida kasutasite selle arvutustabeli kaitsmiseks.
Õnneks võimaldavad need sammud teil oma töövihiku kaitse eemaldada, kasutades parooli tuvastamiseks makrona Virtual Basicu skripti.
- Ava kaitstud arvutustabel.
-
Juurdepääs Visual Basicu koodiredaktorile, vajutades ALT+F11 või valides Developer > Kuva kood.
Image -
Kaitstud lehe koodiaknas sisestage järgmine kood:
Sub PasswordBreaker()
Dim i täisarvuna, j täisarvuna, k täisarvuna
Dim l täisarvuna, m täisarvuna, n täisarvuna
Dim i1 Täisarvuna, i2 täisarvuna, i3 täisarvuna
Dim i4 täisarvuna, i5 täisarvuna, i6 täisarvuna
Vea korral Jätka järgmisena
I=65 j kuni 66 jaoks=65 kuni 66: k=65 kuni 66
l=65 kuni 66 jaoks: m=65 kuni 66 jaoks: i1 jaoks=65 kuni 66
i2 jaoks=65 kuni 66: i3 jaoks=65 kuni 66: i4 jaoks=65 kuni 66
i5 jaoks=65 kuni 66: i6 jaoks=65 kuni 66: n jaoks=32 kuni 126
ActiveSheet. Tühista Chr(i) & Chr kaitse (j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet. ProtectContents=Väär, siis
MsgBox "Üks kasutatav parool on " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5)) & Chr(i6) & Chr(n)
Välju alam
End If
Järgmine: Järgmine: Järgmine: Järgmine: Järgmine: Järgmine
Järgmine: Järgmine: Järgmine: Järgmine: Järgmine: Järgmine
Lõpe alam
Image -
Valige Run või vajutage koodi käivitamiseks F5.
Image -
Koodi käitamiseks kulub mitu minutit. Kui olete lõpetanud, saate parooliga hüpikakna. Valige OK ja teie arvutustabel on kaitsmata.
See ei ole algne parool ja te ei pea seda meeles pidama.
