Excel VBA védelem nélküli lap

Van egy olyan opciónk az Excel programban, amellyel megvédhetjük az Excel-fájlokat és fájlokat a törléstől, átnevezéstől és az adatok mentésétől a nem szükséges változtatásoktól. Ez a lehetőség a Munkafüzet védelme és a Munkafüzet védelme elnevezésű, amely ott található a Változtatások szakaszban, az Áttekintés menüszalag alatt. Beállíthatunk egy jelszót, amellyel menthetjük a kiválasztott lapot a végrehajtott változtatásoktól. De amit mondok, ez VBA-kóddal is automatizálható. Igen, létrehozhatunk egy kódot vagy makrót, amellyel automatikusan lezárhatjuk a lapot és a munkafüzetet. De ez a cikk arról szól, hogy eltávolítja a lapot.

A lap védőcsoportjának eltávolítása szintén meglehetősen egyszerű folyamat, mivel védi a lapot. A lap védettségének megszüntetéséhez be kell írnunk a jelszót, amelyet a lap lezárásakor használtunk. A munkalap védettségének megszüntetéséhez ki kell választania a munkalap nevét és a Unprotect nevû funkciót. Ha ez elérhető a VBA-ban, akkor ez csak egy egysoros kód. De ha nem, akkor másféle módon kell megtennünk, amit az alábbiakban bemutatunk.

Hogyan távolíthatjuk el a lapot az Excel VBA-ból?

Megtanuljuk, hogyan lehet a Excel védettségét eltávolítani az VBA kód használatával.

Itt töltheti le a VBA Unprotect Sheet Excel sablont - VBA Unprotect Sheet Excel sablon

VBA védelem nélküli adatlap - 1. példa

Először látnánk egy egyszerű példát a lap védettségének megszüntetésére. Ehhez kövesse az alábbi lépéseket:

1. lépés: Először nyisson meg egy modult a Beszúrás menü lapon, az alább látható módon.

2. lépés: Most írja be a VBA Unprotect lap alfolyamatát. Vagy bármilyen más nevet választhatunk a meghatározására.

Kód:

 Sub VBA_Unprotect () Vége Sub

3. lépés: Adjon meg egy munkalapnak nevezett változót bármilyen névvel. Lehetséges, hogy a név hasonló munkalapra, például ExSheet

Kód:

 Sub VBA_Unprotect () Dim ExSheet Mint Munkalap Vége Al

4. lépés: Most állítsa be a definiált munkalap-változót annak a lapnak a nevével, amelyet védeni akarunk. Itt a lap neve Sheet1 .

Kód:

 Sub VBA_Unprotect () Dim ExSheet Munkalapként Set ExSheet = Munkalapok ("Sheet1") End Sub

5. lépés: Most rendelje el a Védelem levonása funkciót, amely a VBA legördülő listában található, az ExSheet munkalap-változóhoz.

Kód:

 Sub VBA_Unprotect () Dim ExSheet Munkalapként Set ExSheet = Munkalapok ("Sheet1") ExSheet.Unprotect End Sub

6. lépés: Most adja meg a jelszót, amelyet megadtunk a lap bezárásához. Itt a jelszó „Open1212”. És ez bármi lehet, amit a felhasználó választhat.

Kód:

 Sub VBA_Unprotect () Dim ExSheet Munkalapként Set ExSheet = Munkalapok ("Sheet1") ExSheet.Unprotect Password: = "Open1212" End Sub

7. lépés: Most először a Sheet1-et védjük, ha rákattintunk a Review menü fülre, és kiválasztjuk a Sheet Protect lehetőséget.

8. lépés: Írja be a kívánt jelszót, és kattintson az OK gombra a lap védelme érdekében.

9. lépés: Írja be újra a jelszót a megerősítéshez.

10. lépés: Ha kész lesz, látni fogjuk, hogy semmit sem változtathatunk meg a lapon, még ha meg is próbáljuk. A lap védelemének megszüntetése érdekében összeállítjuk az írott kódot és futtatjuk azt.

Látni fogjuk, amint a kód végrehajtása megtörténik, bármilyen változtatást meg tudunk adni az 1. lapban .

11. lépés: Mi lenne, ha eltávolítanánk vagy megváltoztatnánk a kódot, ahova behelyeztük a jelszót, és addig végezzük, amíg az Unprotect funkció alább látható. Lássuk, mi fog történni, ha így teszünk.

Kód:

 Sub VBA_Unprotect () Dim ExSheet Munkalapként Set ExSheet = Munkalapok ("Sheet1") ExSheet.Unprotect End Sub

12. lépés: Most futtassa újra a teljes kódot. Látni fogjuk, egy üzenőablak jelenik meg, amely megkérdezi a jelszó megadását. Töltse be itt a jelszót, amelyet kiválasztottunk a lap védelme közben, és kattintson az OK gombra.

Ezzel a folyamattal meg is védhetjük a kívánt lapot.

VBA védelem nélküli lap - 2. példa

A munkalapok védekezésének másik módja is van. Ez a legegyszerűbb és legegyszerűbb módszer erre. Ehhez kövesse az alábbi lépéseket:

1. lépés: Írja be a VBA Unprotect alfolyamatát az alábbiak szerint.

Kód:

 Sub VBA_Unprotect2 () Sub

2. lépés: Használja a Munkalapok funkciót, és válassza ki azt a lapot, amelyet védeni akarunk. Itt is az a lap az 1. lap.

Kód:

 Sub VBA_Unprotect2 () munkalapok ("Sheet1") End Sub

3. lépés: Az 1. példában bemutatotthoz hasonló módon az Unprotect parancsot fogjuk használni a jelszóval együtt, amelyet a lap zárolásakor használtunk. Itt a védelem megszüntetésére szolgáló jelszónk ugyanaz, mint az “ Open1212 ”.

Kód:

 Sub VBA_Unprotect2 () munkalapok ("Sheet1"). Védelem eltávolítása: = "Open1212" Sub Sub vége

Kódunk elkészült. Ennek teszteléséhez először védje meg a lapot ugyanúgy, mint az 1. példában, és futtassa ezt a kódot a védelem megszüntetése érdekében.

VBA védelem nélküli lap - 3. példa

Mi van, ha mondom, akkor ismét megírhatunk egy kódot, ahol nem kell kiválasztanunk annak a lapnak a nevét, amelyet védeni akarunk. Igen, ezt hurok segítségével lehet megtenni. Ehhez kövesse az alábbi lépéseket:

1. lépés: Ehhez ismét nyisson meg egy modult, és írja be a VBA Unprotect lap alfolyamatát az alábbiak szerint.

Kód:

 Sub VBA_Unprotect3 () Sub

2. lépés: A DIM segítségével határozza meg a munkalap változóját mint Exsheet. Ugyanezt a vonalat használtuk fel a fenti példákban.

Kód:

 Sub VBA_Unprotect3 () Dim ExSheet Mint Munkalap Vége Al

3. lépés: Nyisson meg egy For-Next hurkot, ahol a nem védett lap feltételeit írjuk be.

Kód:

 Sub VBA_Unprotect3 () Eximlap tompítása munkalapként a következő ExSheet End Sub alhoz

4. lépés: Írja be az egyes megnyitott aktív munkafüzetek feltételeit. Az alább látható módon kiválasztja az aktuális aktív munkalapot.

Kód:

 Sub VBA_Unprotect3 () Eximlap tompítása munkalapként minden egyes ExSheet számára az ActiveWorkbook.Worksheets Következő ExSheet End Sub almenüben

5. lépés: A fenti példákhoz hasonló módon definiált változókat fogunk használni a Unprotect funkcióval együtt a lap védelmének megszüntetésére. Itt is használhatjuk vagy nem használhatjuk a Jelszót. Ez opcionális módszer.

Kód:

 Sub VBA_Unprotect3 () Eximlap tompítása munkalapként minden egyes ExSheet számára az ActiveWorkbook.Worksheets ExSheet.Unprotect jelszó: = "Open1212" Következő ExSheet End Sub

Fordítsa le a kódot, és futtassa, ha nem található hiba.

Így védhetjük meg a nyitott munkalapok védelmét anélkül, hogy kiválasztanánk annak nevét és sorrendjét. Ez a kód automatikusan figyelembe veszi a jelenleg kiválasztott és megnyitott lapot.

Az Excel VBA Unprotect Sheet előnyei

  • A fent bemutatott folyamatok és példák a legegyszerűbben alkalmazhatók.
  • A lap védettségét mindkét módon kikapcsolhatjuk, maga a jelszó megadva a kódban, vagy a jelszó megadása nélkül.
  • Ez ugyanúgy működik, mint a kéz védelmének manuális eltávolítása.

Dolgok, amikre emlékezni kell

  • Mivel a folyamat meglehetősen könnyű végrehajtani, ezért az automatizálás nem javíthat.
  • Minden alkalommal megváltoztathatjuk a jelszót, amikor újra megismételjük a lap védelmének és védettségének megszüntetésének folyamatát.
  • Kiválaszthatjuk a Lap nevét vagy a lap sorozatát, amelyet védeni akarunk.
  • Ha kész, mentse el a kódot a Macro Makro lehetővé teszi az Excel munkalapon, hogy megvédje a VBA-kódot az elveszéstől.

Ajánlott cikkek

Ez a VBA Unprotect Sheet útmutatója. Itt megvitatjuk, hogyan lehet a Excel védettségét eltávolítani az VBA kód használatával, a gyakorlati példákkal és a letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -

  1. VBA nyilvános változó (példák)
  2. VBA formátum száma funkcióval
  3. VBA-változat adattípusokkal
  4. VBA Véletlenszerű Excel sablonok
  5. VBA Environ

Kategória:

VBA