Koda VBA za odklepanje zaklenjenega lista Excel: 4 koraki
Koda VBA za odklepanje zaklenjenega lista Excel: 4 koraki

Kazalo:

Anonim
Koda VBA za odklepanje zaklenjenega Excelovega lista
Koda VBA za odklepanje zaklenjenega Excelovega lista
Koda VBA za odklepanje zaklenjenega Excelovega lista
Koda VBA za odklepanje zaklenjenega Excelovega lista

Č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 VBA
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č

Izrežite in prilepite razbijalec kod
Izrežite in prilepite razbijalec kod

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

Zaženite makro
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

Uporabite ustvarjeno kodo
Uporabite ustvarjeno kodo
Uporabite ustvarjeno kodo
Uporabite ustvarjeno kodo
Uporabite ustvarjeno kodo
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.