Turinys:
2025 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2025-01-13 06:57
Jei kada nors pamiršote slaptažodį viename iš „Excel“darbalapių, žinote, koks tai gali būti varginantis. Šioje instrukcijoje naudojamas kodas yra vienas paprasčiausių, kokį radau. Tai sukurs naudingą kodą, kuris atrakins jūsų apsaugotą lapą. Negaliu pripažinti kodo, nes jį tiesiog radau, kai reikia (ir nebegaliu rasti, kur yra svetainė) … taigi man nebus daug pagalbos, jei jis jums neveiks, bet aš man pasisekė ir maniau, kad pasidalinsiu.
1 veiksmas: atidarykite VBA
Atidarykite darbalapį, kuriam pamiršote slaptažodį. Naudokite „Alt“+F11, kad įeitumėte į makrokomandų redaktorių. Kai VBA dukart spustelėkite lapą, kurį turite atrakinti, kairėje esančiame meniu sąraše. Taip bus atidarytas lapo bendrųjų deklaracijų puslapis.
2 žingsnis: Iškirpkite ir įklijuokite kodo pertraukiklį
Įveskite žemiau esantį kodą į bendrųjų deklaracijų puslapį, kurį atidarėte. Jums nereikės nieko keisti, lapo pavadinimo ir tt … Tiesiog iškirpkite ir įklijuokite. _ k Kaip IntegerDim l Kaip sveikasis skaičius, m kaip sveikasis skaičius, n kaip sveikasis skaičius i1 kaip sveikasis skaičius, i2 kaip sveikasis skaičius, i3 kaip sveikasis skaičius i4 kaip sveikasis skaičius, i5 kaip sveikasis skaičius, i6 kaip sveikasis skaičius klaidos atveju Toliau tęsti, kai i = 65–66: d Iki 66 Jei i5 = 65 iki 66: jei i6 = 65 iki 66: n = 32 iki 126 ActiveSheet. Apsaugokite Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Jei ActiveSheet. ProtectContents = False Tada MsgBox "Vienas tinkamas slaptažodis yra" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5)) & Chr (i6) & Chr (n) Išeiti iš pabaigos Jei Kitas: Kitas: Kitas: Kitas: Kitas: Kitas Kitas: Kitas: Kitas: Kitas: Kitas: Kitas pabaiga _
3 veiksmas: paleiskite makrokomandą
Kai kodas bus pridėtas, paleiskite makrokomandą, VBA redaktoriaus ekrano viršuje esančioje meniu skirtuko juostoje pasirinkę Vykdyti arba tiesiog paspauskite F5
4 žingsnis: naudokite sukurtą kodą
Makrokomanda grąžins jus į darbalapį, kurio apsaugą norite panaikinti. Bus rodomas įspėjimo stiliaus langelis su tinkamu kodu. Meniu skirtuke Peržiūra spustelėkite Išsaugoti lapą. Įveskite sugeneruotą kodą kaip slaptažodį ir atlikite. Jūsų lapas turėtų būti atrakintas! Šią galią turėtumėte naudoti protingai ir atsakingai, tik norėdami atrakinti savo darbalapius.