Excel VBA -suojalehti
Laskentataulukon suojaaminen on tärkeä tehtävä niille, jotka työskentelevät Microsoft Excelillä erittäin usein. Se on tehtävä, joka sinun on suojattava arkkisi muilta käyttäjiltä. Oletetaan, että lähetät raportin johdolle ja sitten johto muuttaa tietoisesti tai vahingossa parametreja tai arvoja raportin kautta. On vaikeaa tunnistaa vika ja samalla uusinta on jotain, joka vie aikaa. Tämän ongelman ratkaisemiseksi on aina hyvä käytäntö suojata arkkeja muokkaamista varten salasanalla. Tämä vaihtoehto auttaa sinua, koska se ei salli käyttäjän tehdä muutoksia arkkiin. Voit myös jakaa salasanan henkilölle, joka on tarkoitettu sekä valtuutettu tekemään muutokset. Vaikka Excelissä on Suojaa työarkki -vaihtoehto Excel-nauhassa olevan Review-välilehden kautta, siitä tulee kiireistä, kun suojaat useampaa kuin yhtä arkkia. Se kuluttaa runsaasti aikaa suojaamaan jokaista arkkia yksitellen. Sen sijaan on hyvä käytäntö kirjoittaa VBA-koodi, joka voi suojata joko yhden tai useita arkkeja työkirjan muokkaamista varten.
VBA Protect -lehden syntaksi
Tämä sisäänrakennettu VBA-toiminto, joka liittyy työarkkiin, antaa sinun suojata arkki salasanan avulla. VBA Protect Sheet -toiminnon syntaksi on seuraava:
Kaikki parametrit ovat valinnaisia tässä toiminnossa, jonka voit arvata jokaiselle mainituista neliösulkeista.
- Salasana: Määrittää arkin salasanan. Jos arkkia ei toimiteta, arkki suojataan ilman salasanaa ja käyttäjä voi muokata sitä ilman, että sinulta kysytään salasanaa.
- DrawingObjects: Valinnaiset argumentit, joiden avulla voit suojata taulukon erilaisia muotoja. Ottaa Boolen arvot. Oletusasetuksena on FALSE.
- Sisältö: Valinnainen argumentti. Suojaa kaikkia esineitä. Oletusarvot on asetettu TOSSI.
- Skenaariot: Suojaa kaikkia erilaisia skenaarioita. Oletusarvoksi on asetettu TOSI.
- UserInterfaceOnly: Se suojaa käyttöliittymää, mutta ei makroja. Oletusarvo on TOSI, jos makro jätetään huomioimatta, samoin kuin käyttöliittymä on suojattu.
- AllowFormattingCells: Oletusarvoksi on asetettu FALSE, jonka vuoksi käyttäjä ei voi alustaa arkin soluja. Jos asetettu TOSI, käyttäjä voi alustaa solut arkista.
- AllowInsertingColumns: Oletusarvoksi on asetettu FALSE. Jos asetettu TOSI, käyttäjä voi lisätä sarakkeen arkkiin.
- AllowInsertingRows: Oletusarvoksi on asetettu FALSE. Jos asetettu TOSI, käyttäjä voi lisätä rivejä arkkiin.
- AllowInsertingHyperlinks: Oletusarvoksi on asetettu FALSE. Jos asetettu TOSI, käyttäjä voi lisätä hyperlinkkejä arkkiin.
- AllowDeletingColumns: Oletusarvoksi on asetettu FALSE. Jos asetettu TOSI, käyttäjä voi poistaa minkä tahansa sarakkeen arkista.
- AllowDeletingRows: Oletusarvoksi on asetettu FALSE. Jos asetukseksi TOSI, käyttäjä voi poistaa rajoittamattoman määrän rivejä arkista.
- AllowSorting: Oletusarvoksi on asetettu FALSE. Jos asetettu TOSI, käyttäjä voi lajitella arkin tiedot.
- AllowFiltering: Oletusarvoksi on asetettu FALSE. Jos asetettu TOSI, käyttäjä voi suodattaa arkin tiedot.
- AllowUsingPivotTables: Oletusarvoksi on asetettu FALSE. Jos asetettu TOSI, käyttäjä voi käyttää ja muokata kääntötaulukoita.
Kuinka suojata arkki Excel VBA: ssa?
Alla on erilaisia esimerkkejä arkin suojaamiseksi Excelissä VBA Protect -sovelluksella.
Voit ladata tämän VBA Protect Sheet Excel -mallin täältä - VBA Protect Sheet Excel TemplateVBA-suojalehti - esimerkki # 1
Oletetaan, että meillä on arkki nimeltä “Esimerkki 1” työkirjassa nimeltä “VBA Protect Sheet”. Haluamme, että tämä arkki on suojattu salasanalla. Tätä varten noudata seuraavia vaiheita:
Vaihe 1: Aseta uusi moduuli Visual Basic Editoriin (VBE). Napsauta Lisää > valitse moduuli .
Vaihe 2: Määritä uusi aliproseduuri moduulissa.
Koodi:
Alaesimerkki_1 () Loppu alaosaan
Vaihe 3: Nyt meidän on käytettävä Suojaa-toimintoa, jota voidaan käyttää objektiin nimeltä Työarkki. Käynnistä koodi Worksheets -objektilla ja kirjoita arkkisivun nimi taulukkoon, jota haluat suojata.
Koodi:
Alaesimerkki_1 () laskentataulukot ("Esimerkki 1") Loppu alaosaan
Vaihe 4: Aseta nyt piste sulkevien sulkujen jälkeen ja käytä Suojaa-avainsanaa, joka käynnistää “ Esimerkki 1 ” -lehden suojausprosessin.
Koodi:
Alaesimerkki_1 () taulukot ("Esimerkki 1"). Suojaa loppuosa
Voit lopettaa täällä suojaamalla arkkia. Koska kaikki argumentit ovat valinnaisia, arkki on silti suojattu, mutta se ei pyydä käyttäjää syöttämään salasanaa ennen muokkaamista, ja se on sama kuin suojaamaton arkki. Et todellakaan haluaisi sitä tällä tavalla. Siksi lisää vahva salasana suojataksesi tätä arkkia seuraavassa vaiheessa.
Vaihe 5: Kirjoita salasanan avainsana ja suojaa tämä arkki vahvalla salasanalla.
Koodi:
Alaesimerkki_1 () laskentataulukot ("Esimerkki 1"). Suojaa salasana: = " " Lopeta alaosa
Käytämme vain funktion ensimmäistä argumenttia, jota kutsutaan salasanaksi, ja loput kaikki argumentit, joiden kanssa käytämme oletusarvoja.
Vaihe 6: Tämä on se, voit suorittaa tämän koodin napsauttamalla F5- tai Suorita-painiketta ja nähdä, että tiedosto on nyt suojattu, ja kysyy käyttäjältä salasanaa heti, kun hän yrittää muokata mitä tahansa solua.
Näin suojaamme arkki VBA Protect -toiminnolla.
VBA-suojalehti - esimerkki 2
Nyt haluamme suojata kaikki työkirjassa olevat arkit. Tätä varten noudata seuraavia vaiheita:
Vaihe 1: Määritä aliproseduuri moduulissa.
Koodi:
Alaesimerkki_2 () Loppu alaosaan
Vaihe 2: Määritä uusi muuttuja taulukkona käyttämällä Himmennys-asetusta.
Koodi:
Alaesimerkki_2 () himmentää wrk_sht laskentataulukon lopuna
Vaihe 3: Aloita For-silmukka. Tämän silmukan tulisi olla voimassa aktiivisen työkirjan viimeiseen taulukkoon.
Koodi:
Alaesimerkki_2 () Himmennä wrk_sht laskentataulukkona jokaiselle wrk_sht: lle ActiveWorkbook.Worksheets End Sub
Tämä koodirivi valitsee jokaisen aktiivisen työkirjan taulukon ja tallentaa sen muuttujan wrk_sht alle jokaiselle silmukan iteraatiolle. Silmukka loppuu heti, kun työkirjan viimeinen sivu on valittu ja tallennettu muuttujaan wrk_sht. Meidän on määritettävä toimenpide tälle silmukalle. Se varmasti suojaa arkkia salasanalla.
Vaihe 4: Käytä nyt Suojaa-toimintoa suojataksesi arkit, jotka tallentuvat wrk_sht- muuttujan alle jokaiselle For-silmukan iteraatiolle.
Koodi:
Alaesimerkki_2 () Himmennä wrk_sht laskentataulukkona ActiveWorkbook.Worksheets jokaiselle wrk_sht-työkaluille.Worksheets wrk_sht.Suojaa salasana: = " " End Sub
Vaihe 5: Käytä Seuraavaa käskyä, se antaa silmukan suorittaa, kunnes jokainen taulukko on suojattu.
Koodi:
Alaesimerkki_2 () Himmennä wrk_sht laskentataulukkona jokaiselle wrW_sht: lle ActiveWorkbook.Worksheets wrk_sht.Suojaa salasana: = " " Seuraava loppu Sub
Jos suoritat tämän koodin, jokainen aktiivisen työkirjan taulukot on suojattu salasanalla ja sinun on syötettävä se joka kerta, kun haluat muokata arkkeja.
Muistettavat asiat
- On suositeltavaa käyttää salasanaa, kun suojaat arkkia. Muussa tapauksessa käyttäjää ei pyydetä syöttämään salasanaa, ja hän voi muokata tiedostoa suoraan, vaikka oletkin suojannut sitä.
- On suositeltavaa muistaa salasana. Muuten saman unohtaminen ei koskaan anna sinun muokata tiedostoa. Saatat joutua käydä läpi erilaisia menetelmiä, jos kadotat salasanan, ja nämä menetelmät eivät kuulu tämän artikkelin soveltamisalaan.
Suositellut artikkelit
Tämä on VBA Protect Sheet -oppaan ohje. Tässä keskustellaan siitä, kuinka arkkeja voidaan suojata tai lukita käyttämällä VBA Protect -toimintoa Excelissä, sekä käytännön esimerkkejä ja ladattavaa Excel-mallia. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -
- Kuinka nimetä arkki uudelleen Excel VBA: lle?
- Ohjeet arkin suojauksen poistamiseen Excelissä
- VBA-aktivointiarkki (esimerkkejä Excel-mallilla)
- Kuinka kopioida Excel-taulukko?