Koda VBA za odklepanje zaklenjenega lista Excel: 4 koraki

2024 Avtor: John Day | [email protected]. Nazadnje spremenjeno: 2024-01-30 12:07

Če ste kdaj pozabili geslo za enega od Excelovih delovnih listov, veste, kako frustrirajoče je to lahko. Koda, uporabljena v tem navodilu, je ena najpreprostejših, ki sem jih našel. Ustvaril bo uporabno kodo, ki bo odklenila vaš zaščiten list. Ne morem si pripisati zasluge za kodo, saj sem jo našel v trenutku potrebe (in ne najdem več, kje je spletno mesto) … tako da ne bom vam v veliko pomoč, če vam ne deluje, vendar sem sem bil uspešen in mislil sem, da bom delil.

1. korak: Odprite VBA

Odprite delovni list, na katerega ste pozabili geslo. Uporabite Alt+F11 za vstop v urejevalnik makrov. Enkrat v VBA dvokliknite list, ki ga morate odkleniti na seznamu menijev na levi strani, s tem se odpre stran s splošnimi izjavami za list.

2. korak: Izrežite in prilepite kodni razbijač

Spodnjo kodo vstavite na stran s splošnimi deklaracijami, ki ste jo odprli. Ničesar vam ni treba spreminjati, imena lista itd … Samo izrežite in prilepite._ Sub PasswordBreaker () 'Prelomi zaščito z geslom na delovnem listu. 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 Napaka Nadaljuj Naprej 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. Odstranite zaščito Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Če je ActiveSheet. ProtectContents = False, potem MsgBox "Eno uporabno geslo 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) Izhod iz podkonc Če Naslednji: Naprej: Naprej: Naprej: Naprej: Naprej Naprej: Naprej: Naprej: Naprej: Naprej: Naprej Konec Sub_

3. korak: Zaženite makro

Ko je koda dodana, zaženite makro tako, da v vrstici z zavihki menija na vrhu zaslona urejevalnika VBA izberete Zaženi ali preprosto pritisnite F5

4. korak: Uporabite ustvarjeno kodo

Makro vas bo vrnil na delovni list, ki ga želite odstraniti z zaščite. Prikazalo se bo polje s slogom opozorila z uporabno kodo. Na zavihku meni Pregled kliknite Unprotect sheet. Vnesite ustvarjeno kodo kot geslo in končali ste. Vaš list bi moral biti odklenjen! To moč uporabite pametno in odgovorno samo za odklepanje lastnih delovnih listov.