Tartalomjegyzék:

VBA -kód a zárolt Excel -lap feloldásához: 4 lépés
VBA -kód a zárolt Excel -lap feloldásához: 4 lépés

Videó: VBA -kód a zárolt Excel -lap feloldásához: 4 lépés

Videó: VBA -kód a zárolt Excel -lap feloldásához: 4 lépés
Videó: Excel lapvédelem megszüntetése szükség esetén 2024, November
Anonim
VBA -kód a zárolt Excel -lap feloldásához
VBA -kód a zárolt Excel -lap feloldásához
VBA -kód a zárolt Excel -lap feloldásához
VBA -kód a zárolt Excel -lap feloldásához

Ha valaha is elfelejtett jelszót valamelyik Excel -munkalapjához, tudja, milyen frusztráló tud lenni. Az utasításban használt kód az egyik legegyszerűbb, amit találtam. Használható kódot generál, amely feloldja a védett lap zárolását. Nem tudom jóváírni a kódot, mert csak egy pillanatban találtam meg (és már nem találom, hol van az oldal) … szóval nem leszek sok segítség, ha nem működik az Ön számára sikere volt vele, és gondoltam megosztom.

1. lépés: Nyissa meg a VBA -t

Nyissa meg a VBA -t
Nyissa meg a VBA -t

Nyissa meg azt a munkalapot, amelyre elfelejtette jelszavát. Az Alt+F11 billentyűkombinációval lépjen be a makrószerkesztőbe. Miután a VBA -ban duplán kattintott a lapra, amelyet fel kell oldania a bal oldali menüben. Ez megnyitja a lap általános deklarációs oldalát.

2. lépés: Vágja ki és illessze be a kódtörőt

Vágja ki és illessze be a kódszegőt
Vágja ki és illessze be a kódszegőt

Illessze be az alábbi kódot a megnyitott általános nyilatkozatok oldalra. Nem kell semmit sem módosítania, például a lap nevét stb.… Csak vágja ki és illessze be. k Mint IntegerDim l Mint Integer, m Mint Integer, n Mint Integer Dim i1 Mint Integer, i2 Mint Integer, i3 Mint Integer Dim i4 Mint Integer, i5 Mint Integer, i6 Mint Integer On Error Folytatás Következő i = 65 -tól 66 -ig: j = 65 -tól 66 -ig: k = 65 -tól 66 -ig l = 65 -tól 66 -ig: m = 65 -tól 66 -ig: i1 = 65 -tól 66 -ig i2 = 65 -tól 66 -ig: i3 = 65 -tól 66 -ig: i4 = 65 -től 66 -ig i5 = 65 -tól 66 -ig: i6 = 65 -tól 66 -ig: n = 32 -tól 126 -ig terjedő ActiveSheet. Védje a Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Ha ActiveSheet. ProtectContents = Hamis Akkor az MsgBox "Egy használható jelszó" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5)) & Chr (i6) & Chr (n) Kilépés alvég Ha Következő: Következő: Következő: Következő: Következő: Következő Következő: Következő: Következő: Következő: Következő: Következő vége Sub_

3. lépés: Futtassa a makrót

Futtassa a makrót
Futtassa a makrót

Miután hozzáadta a kódot, futtassa a makrót a VBA szerkesztő képernyő tetején található menü lapról a Futtatás lehetőség kiválasztásával, vagy egyszerűen nyomja meg az F5 billentyűt

4. lépés: Használja a generált kódot

Használja a generált kódot
Használja a generált kódot
Használja a generált kódot
Használja a generált kódot
Használja a generált kódot
Használja a generált kódot

A makró visszatér ahhoz a munkalaphoz, amelynek védelmét fel szeretné oldani. Megjelenik egy riasztási stílus mező egy használható kóddal. Az Áttekintés menü lapon kattintson a Lap védelmének feloldása lehetőségre. Írja be a generált kódot jelszóként, és kész. A lapot fel kell oldani! Ezt az energiát okosan és felelősségteljesen kell használnia, csak saját munkalapjainak feloldásához.

Ajánlott: