Excel VBA -suojausarkki

Meillä on Excel-ohjelmassa vaihtoehto, jolla voimme suojata excel-taulukkomme ja tiedostomme poistumiselta, uudelleennimeämiseltä ja tietojen tallennukselta muilta muutoksilta, joita ei vaadita. Vaihtoehto on nimeltään Suojaa arkki ja Suojaa työkirja, joka on siellä Muutokset- osiossa Review- valikon nauhassa. Voimme asettaa salasanan, jolla voimme tallentaa valitun arkin kaikista tehdyistä muutoksista. Mutta mitä sanon, tämä voidaan myös automatisoida käyttämällä VBA-koodia. Kyllä, voimme luoda koodin tai makron, jolla lukitsemme arkin ja työkirjan automaattisesti. Mutta tässä artikkelissa on kyse arkin suojauksen poistamisesta.

Arkin suojauksen poistaminen on myös melko helppo prosessi arkin suojaamiseksi. Arkin suojauksen poistamiseksi meidän on annettava salasana, jota käytimme lukitsemalla sitä. Arkin suojauksen poistamiseksi meidän on valittava vain taulukon nimi ja toiminto nimeltä Poista suojaus . Jos se on saatavana VBA: ssa, niin se on vain yksirivinen koodi. Mutta jos ei, niin meidän on etsittävä muuta tapaa tehdä se, mitä näemme alla olevissa esimerkeissä.

Kuinka suojata arkki Excel VBA -sovelluksessa?

Opimme kuinka suojauslaskenta poistetaan Excelistä käyttämällä VBA-koodia.

Voit ladata tämän VBA Unprotect Sheet Excel -mallin täältä - VBA Unprotect Sheet Excel Template

VBA-suojauslomake - esimerkki 1

Ensinnäkin nähdään yksinkertainen esimerkki arkin suojauksen poistamisesta. Tätä varten noudata seuraavia vaiheita:

Vaihe 1: Avaa ensin moduuli Lisää-valikko-välilehdeltä alla olevan kuvan mukaisesti.

Vaihe 2: Kirjoita nyt VBA Unprotect -lehden osaprosessori. Tai voimme valita minkä tahansa muun nimen sen määrittelemiseksi.

Koodi:

 Sub VBA_Unprotect () End Sub

Vaihe 3: Määritä muuttuja, jota kutsutaan taulukkoksi millä tahansa nimellä. Mieluiten nimi, joka muistuttaa taulukkoa, kuten ExSheet

Koodi:

 Sub VBA_Unprotect () himmentää ExSheet taulukkona Loppuosa Sub

Vaihe 4: Aseta sitten määritetty laskentataulukon muuttuja taulukon nimellä, jonka suojauksen haluamme poistaa. Tässä arkin nimi on Sheet1 .

Koodi:

 Sub VBA_Unprotect () himmentää ExSheet -taulukoita Set ExSheet = Worksheets ("Sheet1") End Sub

Vaihe 5: Määritä nyt Poista suojaus -toiminto, joka on VBA-pudotusluettelossa, taulukon muuttujaan ExSheet .

Koodi:

 Sub VBA_Unprotect () himmentää ExSheet -taulukoita Set ExSheet = Worksheets ("Sheet1") ExSheet.Unprotect End Sub

Vaihe 6: Anna nyt salasana, jonka annoimme lukita kyseinen arkki. Tässä salasana on “Open1212”. Ja tämä voi olla mitä tahansa, mikä on käyttäjän valinnan varassa.

Koodi:

 Sub VBA_Unprotect () himmentää ExSheet -taulukoita Set ExSheet = Worksheets ("Sheet1") ExSheet.Unprotect Password: = "Open1212" End Sub

Vaihe 7: Suojaamme nyt ensin Sheet1 napsauttamalla Review ( Valikko) -välilehteä ja valitsemalla Protect Sheet (Suojaa arkki) .

Vaihe 8: Kirjoita haluamasi salasana ja suojaa arkki napsauttamalla Ok.

Vaihe 9: Vahvista salasana kirjoittamalla se uudelleen.

Vaihe 10: Valmistuksen jälkeen näemme, ettemme voi muuttaa mitään siinä olevassa taulukossa, vaikka yrittäisimmekin. Nyt suojataksesi arkin suojaa, kokoamme kirjoitetun koodimme ja ajamme sen.

Näemme, kun koodimme on suoritettu, voimme nyt tehdä muutoksia Sheet1: een .

Vaihe 11: Entä jos poistamme tai vaihtamme koodirivin, johon olemme asettaneet salasanan, ja poistamme sen, kunnes Poista suojaus -toiminto, kuten alla on osoitettu. Katsotaan mitä tapahtuu, jos teemme niin.

Koodi:

 Sub VBA_Unprotect () himmentää ExSheet -taulukoita Set ExSheet = Worksheets ("Sheet1") ExSheet.Unprotect End Sub

Vaihe 12: Suorita nyt koko koodi uudelleen. Näemme, että näyttöön tulee viestiruutu, jossa pyydetään antamaan salasana. Syötä tähän valitsemasi salasana suojaamalla arkkia ja napsauta Ok.

Myös tällä prosessilla voimme poistaa suojauksen haluamaltamme levylle.

VBA-suojauslomake - esimerkki 2

On myös toinen tapa suojata laskentataulukoita. Tämä on helpoin ja yksinkertaisin tapa tehdä se. Tätä varten noudata seuraavia vaiheita:

Vaihe 1: Kirjoita osaprosessori VBA Unprotect -sovellukselle alla olevan kuvan mukaisesti.

Koodi:

 Sub VBA_Unprotect2 () End Sub

Vaihe 2: Käytä taulukot-toimintoa ja valitse arkki, jonka suojauksen haluamme poistaa. Tässäkin arkki on Sheet1 .

Koodi:

 Sub VBA_Unprotect2 () -taulukot ("Sheet1") Loppu Sub

Vaihe 3: Samalla tavalla kuin esimerkissä-1 esitetään, käytämme Poista suojaus -komentoa salasanan kanssa, jota käytimme lukitsemalla arkki. Täällä myös salasanasuojauksen poisto on sama kuin “ Open1212 ”.

Koodi:

 Sub VBA_Unprotect2 () -taulukot ("Sheet1"). Poista suojauksen salasana: = "Open1212" End Sub

Nyt koodimme on valmis. Testaa tämä ensin suojaamalla arkki samalla tavalla kuin esimerkissä-1 ja suorita tämä koodi suojauksen suojaamiseksi.

VBA-suojauslomake - esimerkki 3

Entä jos sanon, voimme jälleen kirjoittaa koodin, jossa meidän ei tarvitse valita arkin nimeä, jonka haluamme suojata. Kyllä, tämä voidaan tehdä silmukan avulla. Tätä varten noudata seuraavia vaiheita:

Vaihe 1: Uudelleen avataksesi moduuli ja kirjoita VBA Unprotect -arkin alaprosessori alla olevan kuvan mukaisesti.

Koodi:

 Sub VBA_Unprotect3 () End Sub

Vaihe 2: Käytä DIM-arvoa määrittääksesi muuttujan laskentataulukolle Exesheet. Se on sama linja, jota olemme käyttäneet yllä olevissa esimerkeissä.

Koodi:

 Sub VBA_Unprotect3 () himmentää ExSheet-taulukkoa loppuun Sub

Vaihe 3: Avaa For-Next-silmukka, johon kirjoitamme suojaamattomat arkkiehdot.

Koodi:

 Sub VBA_Unprotect3 () himmentää ExSheet-taulukkoa seuraavalle ExSheet End Sub -alustalle

Vaihe 4: Kirjoita ehto jokaiselle avoimelle aktiiviselle työkirjalle, joka valitsee nykyisen aktiivisen laskentataulukon, kuten alla.

Koodi:

 Sub VBA_Unprotect3 () himmentää ExSheet-taulukkoa jokaiselle ActiveWorkbook.-työkalun taulukolle.Worksheets Next ExSheet End Sub

Vaihe 5: Nyt samalla tavalla kuin yllä olevissa esimerkeissä voidaan nähdä, käytämme määriteltyjä muuttujia yhdessä Poista suojaus -toiminnon kanssa arkin suojauksen suojaamiseksi. Tässä yhteydessä saatamme myös käyttää salasanaa. Tämä on valinnainen tapa.

Koodi:

 Sub VBA_Unprotect3 () himmentää ExSheet-taulukkoa ActiveWorkbook.Worksheets ExSheet.Unprotect-salasanan jokaiselle ExSheet-taulukolle: = "Open1212" Seuraava ExSheet End Sub

Käännä koodi ja suorita, jos virhettä ei löydy.

Näin voimme poistaa kaikkien avoimien nykyisten laskentataulukoiden suojauksen edes valitsemalla niiden nimeä ja järjestystä. Tämä koodi ottaa automaattisesti huomioon valitun ja avatun arkin.

Plussat Excel VBA -suojausluettelosta

  • Edellä esitetyt prosessit ja esimerkit ovat helpoimmin sovellettavia.
  • Voimme poistaa arkin suojauksen molemmilla tavoilla antamalla salasanan itse koodissa tai antamatta salasanaa.
  • Tämä toimii samalla tavalla kuin suojauksen arkki poistetaan manuaalisesti.

Muistettavat asiat

  • Koska prosessi on melko helppo toteuttaa, automatisoinnilla ei ehkä ole mitään parannuksia.
  • Voimme vaihtaa salasanan joka kerta, kun uudistamme arkin suojaamisen ja suojauksen poistamisen prosessin.
  • Voimme valita arkin nimen tai arkkijonojärjestyksen, jonka haluamme poistaa sen suojauksen.
  • Kun olet valmis, tallenna koodi makroon ottamaan Excel-taulukko käyttöön, jotta VBA-koodi häviää.

Suositellut artikkelit

Tämä on opas VBA-suojauslomakkeeseen. Tässä keskustellaan siitä, kuinka suojauslaskenta poistetaan Excelistä käyttämällä VBA-koodia, käytännön esimerkkien ja ladattavan Excel-mallin avulla. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA-julkinen muuttuja (esimerkit)
  2. VBA-muodon numero toiminnolla
  3. VBA-versio tietotyypeillä
  4. VBA satunnaista | Excel-mallit
  5. VBA Environ

Luokka:

VBA