Turinys:

VBA kodas užrakintam „Excel“lapui atrakinti: 4 veiksmai
VBA kodas užrakintam „Excel“lapui atrakinti: 4 veiksmai

Video: VBA kodas užrakintam „Excel“lapui atrakinti: 4 veiksmai

Video: VBA kodas užrakintam „Excel“lapui atrakinti: 4 veiksmai
Video: Пример рефакторинга кода с транспиляцией из VBA в JavaScript 2024, Lapkritis
Anonim
VBA kodas užrakintam „Excel“lapui atrakinti
VBA kodas užrakintam „Excel“lapui atrakinti
VBA kodas užrakintam „Excel“lapui atrakinti
VBA kodas užrakintam „Excel“lapui atrakinti

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 VBA
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į

Iškirpkite ir įklijuokite kodo pertraukiklį
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ą

Paleiskite makrokomandą
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ą

Naudokite sukurtą kodą
Naudokite sukurtą kodą
Naudokite sukurtą kodą
Naudokite sukurtą kodą
Naudokite sukurtą kodą
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.

Rekomenduojamas: