VBA kôd za otključavanje zaključanog Excel lista: 4 koraka

2024 Autor: John Day | [email protected]. Zadnja izmjena: 2024-01-30 08:08

Ako ste ikada zaboravili lozinku za jedan od svojih Excel radnih listova, znate koliko to može biti frustrirajuće. Kôd korišten u ovoj uputi jedan je od najjednostavnijih koje sam pronašao. Generirat će upotrebljivi kod koji će otključati vaš zaštićeni list. Ne mogu uzeti zasluge za kôd jer sam ga jednostavno pronašao u trenutku potrebe (i ne mogu više pronaći gdje se web lokacija nalazi) … pa ne bih vam puno pomogao ako vam ne radi, ali imao sam uspjeha u tome i mislio sam podijeliti.

Korak 1: Otvorite VBA

Otvorite radni list na koji ste zaboravili lozinku. Upotrijebite Alt+F11 za ulazak u uređivač makroa. Jednom u VBA dvaput kliknite na list koji trebate otključati s popisa izbornika s lijeve strane. Ovo će otvoriti stranicu općih deklaracija za list.

Korak 2: Izrežite i zalijepite razbijač koda

Umetnite donji kôd na stranicu s općim deklaracijama koju ste otvorili. Ne morate ništa mijenjati, naziv lista itd … Samo izrežite i zalijepite._ Sub PasswordBreaker () 'Prekida zaštitu lozinkom radnog lista. 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 Greška Nastavi dalje Za i = 65 do 66: Za j = 65 do 66: za k = 65 do 66 za l = 65 do 66: za m = 65 do 66: za i1 = 65 do 66 za i2 = 65 do 66: za i3 = 65 do 66: za i4 = 65 Do 66 Za i5 = 65 Do 66: Za i6 = 65 Do 66: Za n = 32 do 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) Ako je ActiveSheet. ProtectContents = Netačno Tada je MsgBox "Jedna upotrebljiva lozinka 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) Izlaz iz pod -kraja Ako Sljedeće: Slijedeće: Slijedeće: Slijedeće: Slijedeće Sljedeće: Slijedeće: Slijedeće: Sljedeće: Sljedeće Kraj Pod _

Korak 3: Pokrenite makro

Nakon što je kôd dodan, pokrenite Makro odabirom Pokreni na traci s izbornicima na vrhu ekrana uređivača VBA ili jednostavno pritisnite F5

Korak 4: Koristite generirani kôd

Makro će vas vratiti na radni list koji želite ukloniti sa zaštite. Pojavit će se okvir sa stilom upozorenja sa upotrebljivim kodom. Na kartici izbornika Pregled kliknite Unprotect sheet. Unesite generirani kôd kao lozinku i sve ste učinili. Vaš list bi trebao biti otključan! Ovu moć trebali biste koristiti mudro i odgovorno samo za otključavanje vlastitih radnih listova.