Exceli VBA kaitsmata leht

Excelis on meil võimalus, mille abil saame kaitsta oma exceli lehti ja faile kustutamise, ümbernimetamise ja andmete salvestamise eest muude vajalike muudatuste eest. Selle suvandi nimi on Kaitse lehte ja kaitske töövihikut, mis asub seal muudatuste jaotises menüü Riba lindil all. Saame seada parooli, mille abil saame valitud lehe kõigist tehtud muudatustest salvestada. Kuid mida ma ütlen, seda saab ka VBA-koodi abil automatiseerida. Jah, me saame luua koodi või makro, mille abil saame lehe ja töövihiku automaatselt lukustada. Kuid see artikkel on seotud lehe kaitse eemaldamisega.

Lehe kaitse eemaldamine on ka lehe kaitsmine üsna lihtne protsess. Lehe kaitse eemaldamiseks peame sisestama parooli, mida me selle lehe lukustamisel kasutasime. Lehe kaitse eemaldamiseks peame lihtsalt valima töölehe nime ja funktsiooni nimega Unprotect . Kui see on VBA-s saadaval, siis on see lihtsalt üherealine kood. Kuid kui see pole nii, siis peame otsima mõnda muud viisi, kuidas seda teha allpool toodud näidetes.

Kuidas lehe Excel VBA-st lahti kaitsta?

Õpime, kuidas Excelis lehe kaitset kaitsta VBA-koodi abil.

Selle VBA kaitsmata lehe Exceli malli saate alla laadida siit - VBA kaitsmata lehe Exceli mall

VBA kaitseta leht - näide nr 1

Esiteks näeksime lihtsat näidet lehe kaitse eemaldamise kohta. Selleks toimige järgmiselt:

1. samm: kõigepealt avage moodul vahekaardil Insert, nagu allpool näidatud.

2. samm: kirjutage nüüd VBA Unprotect lehe alamprotsess. Või võime selle määratlemiseks valida mõne muu nime.

Kood:

 Alam VBA_Unprotect () Lõpp Alam

3. samm: määratlege muutuja nimega tööleht mis tahes nime järgi. Eelistatavalt nimi, mis sarnaneb töölehele, näiteks ExSheet

Kood:

 Alam VBA_Unprotect () Tühjendama ExSheet töölehena Lõpp-alam

4. samm. Nüüd määrake määratletud töölehe muutuja lehega, mille kaitset me soovime eemaldada. Selle lehe nimi on Sheet1 .

Kood:

 Alam VBA_Unprotect () Tühjendama ExSheet töölehena Set ExSheet = Worksheets ("Sheet1") End Sub

5. samm: määrake nüüd töölehe muutujale ExSheet funktsioon Unprotect, mis asub VBA ripploendis.

Kood:

 Alam VBA_Unprotect () Tühjenda ExSheet töölehena Set ExSheet = Worksheets ("Sheet1") ExSheet.Unprotect End Sub

6. samm: andke nüüd parool, mille andsime selle lehe lukustamiseks. Selle parooli nimi on “Open1212”. Ja see võib olla ükskõik milline, mis jääb kasutaja enda otsustada.

Kood:

 Alam VBA_Unprotect () Tühjenda ExSheet töölehena Set ExSheet = Worksheets ("Sheet1") ExSheet.Unprotect Password: = "Open1212" End Sub

7. samm: nüüd kaitseme kõigepealt lehte Sheet1, klõpsates vahekaardil Ülevaade ja valides suvandi Kaitse lehte .

8. samm: sisestage soovitud parool ja lehe kaitsmiseks klõpsake nuppu OK.

9. samm: kinnitamiseks sisestage parool uuesti.

10. samm: kui see on valmis, näeme, et me ei saa selles lehes midagi muuta, isegi kui proovime. Lehe kaitse eemaldamiseks kompileerime oma kirjaliku koodi ja käivitame selle.

Näeme, kui meie kood on täidetud, saame nüüd lehel1 muudatusi teha.

11. samm: mis siis, kui eemaldame või muudame parooli sisestatud koodirida ja muudame selle funktsiooniks Kaitse eemaldamine allpool näidatud viisil. Vaatame, mis juhtub, kui seda teeme.

Kood:

 Alam VBA_Unprotect () Tühjenda ExSheet töölehena Set ExSheet = Worksheets ("Sheet1") ExSheet.Unprotect End Sub

12. samm: käivitage uuesti täielik kood. Me näeme, et kuvatakse teade, mis palub parooli sisestada. Sisestage siin parool, mille oleme lehe kaitsmise ajal valinud, ja klõpsake nuppu OK.

Ka selle protsessi abil saame kaitsta soovitud lehe kaitset.

VBA kaitseta leht - näide nr 2

Töölehtede kaitse eemaldamine on veel üks viis. See on kõige lihtsam ja lihtsam viis seda teha. Selleks toimige järgmiselt.

1. samm: kirjutage VBA Unprotect alamprotseduur, nagu allpool näidatud.

Kood:

 Alam VBA_Unprotect2 () Lõpp Alam

2. samm: kasutage funktsiooni Töölehed ja valige leht, mille kaitset me kaitsta soovite. Siin jälle on see leht 1. leht.

Kood:

 Alam VBA_Unprotect2 () töölehed ("Leht1") Lõpeta alam

3. samm: sarnaselt näitele 1, kasutame käsku Unprotect koos parooliga, mida kasutasime lehe lukustamisel. Ka siin on meie kaitse eemaldamise parool sama, mis “ Open1212 ”.

Kood:

 Alam VBA_Unprotect2 () töölehed ("Leht1"). Kaitse eemaldamine parooliga: = "Open1212" Lõpeta alamkategooria

Nüüd on meie kood valmis. Selle kontrollimiseks kaitske esmalt lehte samamoodi nagu näites-1 ja käivitage see kaitse eemaldamiseks see kood.

VBA kaitseta leht - näide nr 3

Mis siis saab, kui ma ütlen, saame uuesti kirjutada koodi, kus me ei pea valima lehe nime, mida me kaitsta soovime. Jah, seda saab teha silmuse abil. Selleks toimige järgmiselt.

1. samm: avage moodul uuesti ja kirjutage VBA Unprotect lehe alamprotseduur, nagu allpool näidatud.

Kood:

 Alam VBA_Unprotect3 () Lõpp Alam

2. samm: määrake DIM-i abil töölehe muutuja nimeks Exsheet. See on sama joon, mida kasutasime ülaltoodud näidetes.

Kood:

 Alam VBA_Unprotect3 () Tühjendama ExSheet töölehena Lõpp Sub

3. samm: avage For-Next silmus, kus kirjutame kaitsmata lehe tingimused.

Kood:

 Alam VBA_Unprotect3 () Tühjendage ExSheet töölehena järgmise ExSheet End Sub jaoks

4. samm: tingimuste kirjutamine iga avatud aktiivse töövihiku jaoks valib aktiivse aktiivse töölehe, nagu allpool näidatud.

Kood:

 Alam VBA_Unprotect3 () Tühjendage ExSheet töölehena iga ExSheet jaoks ActiveWorkbook.Worksheets Next ExSheet End Sub Sub

5. samm. Nüüd, sarnaselt ülaltoodud näidetega, kasutame lehe kaitse eemaldamiseks määratletud muutujaid koos funktsiooniga Kaitse eemaldamine. Samuti võime või ei tohi parooli kasutada. See on valikuline viis.

Kood:

 Alam VBA_Unprotect3 () Tühjendage ExSheet töölehena iga ExSheet jaoks ActiveWorkbook.Worksheets ExSheet.Unprotect Password: = "Open1212" Järgmine ExSheet End Sub

Kompileerige kood ja käivitage, kui viga ei leitud.

Nii saame kaitsta avatud aktiivse töölehe kaitset, isegi ilma selle nime ja järjestust valimata. See kood arvestab automaatselt seda lehte, mis on praegu valitud ja avatud.

Excel VBA kaitsmata lehe plussid

  • Ülaltoodud protsesse ja näiteid on kõige lihtsam rakendada.
  • Me võime lehe kaitset kaitsta mõlemal viisil, andes parooli ise koodis või ilma parooli andmata.
  • See toimib samal viisil kui lehe käsitsi eemaldamine.

Asjad, mida meeles pidada

  • Kuna seda protsessi on üsna lihtne rakendada, ei pruugi automatiseerimine midagi paremaks muuta.
  • Parooli saab muuta iga kord, kui teeme uuesti lehe kaitsmise ja kaitse eemaldamise protsessi.
  • Saame valida lehe nime või lehe järjestuse, mille kaitset me soovime kaitsta.
  • Ja kui see on tehtud, salvestage kood makro aktiveerimise Exceli töölehele, et kaitsta VBA koodi eksimist.

Soovitatavad artiklid

See on VBA Unprotect Sheet juhend. Siin arutleme, kuidas kaitsta Exceli lehte kaitsmata kujul, kasutades VBA-koodi, koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA avalik muutuja (näited)
  2. VBA vormingus number funktsiooniga
  3. VBA variant andmetüüpidega
  4. VBA juhuslikult | Exceli mallid
  5. VBA keskkond

Kategooria:

VBA