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

2024 Autor: John Day | [email protected]. Zadnja promjena: 2024-01-30 09:37

Ako ste ikada zaboravili lozinku za jedan od svojih Excel radnih listova, znate koliko to može biti frustrirajuće. Kôd koji se koristi 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ću vam puno pomoći ako vam ne uspije, ali imao uspjeha s tim i mislio sam podijeliti.

Korak 1: Otvorite VBA

Otvorite radni list na koji ste zaboravili lozinku. Upotrijebite Alt+F11 za ulazak u uređivač makronaredbi. Jednom u VBA dvaput kliknite 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 u stranicu s općim deklaracijama koju ste otvorili. Ne biste trebali 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 Kao IntegerDim l Kao 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 pomoćnog kraja Ako Sljedeće: Slijedeće: Slijedeće: Sljedeće: Sljedeće Sljedeće Sljedeće: Sljedeće: Sljedeće: Sljedeće: Sljedeće Kraj Pod _

Korak 3: Pokrenite makro

Nakon što je kôd dodan, pokrenite Makro odabirom Pokreni na traci kartica izbornika pri vrhu zaslona uređivača VBA ili jednostavno pritisnite F5

Korak 4: Upotrijebite generirani kôd

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