Excel võimaldab teil kaitsta oma Exceli töövihikuid muudatuste eest. See õpetus näitab teile, kuidas VBA abil töövihiku struktuuri kaitsta või selle kaitset eemaldada.
VBA töövihiku kaitse
VBA töövihiku kaitse võimaldab teil töövihiku struktuuri lukustada. Kui töövihik on kaitstud, ei saa kasutajad töölehti lisada, kustutada, peita / peita või kaitsta või kaitset eemaldada. Kui ehitate mudelit, soovite tõenäoliselt töövihiku kaitse sisse lülitada, et vältida kasutajate (või teie!) Kogemata töölehtede kustutamist.
Tööraamatu VP kaitsmine
Töövihiku kaitse tühistamiseks kasutage lihtsalt järgmist koodirida:
| 1 | Töövihikud ("1. raamat"). Kaitse eemaldamine |
Märkus: see kood töötab ainult siis, kui töövihik on kaitstud ilma parooli. Kui see oli parooliga kaitstud, peate selle kaitsest vabastamiseks sisestama ka parooli.
Kaitske töövihik parooliga kaitsmata
See koodirida eemaldab parooliga kaitstud töövihiku kaitse:
| 1 | Töövihikud ("Raamat1"). Parooli kaitse eemaldamine: = "parool" |
või võite parooli tühistada: =
| 1 | Töövihikud ("1. raamat"). Tühistage "parooli" kaitse |
Tühista selle töövihiku kaitse
See kood tühistab käesoleva töövihiku kaitse (see töövihik on töövihik, kuhu jooksev kood on salvestatud. See ei muutu kunagi).
| 1 | See tööraamat. Kaitsta |
või eemaldage selle töövihiku kaitse parooliga:
| 1 | ThisWorkbook.Kaitse "parooli" kaitse |
Tühista ActiveWorkbooki kaitse
See kood tühistab ActiveWorbooki kaitse.
| 1 | ActiveWorkbook. Kaitse |
või eemaldage ActiveWorkbooki kaitse parooliga:
| 1 | ActiveWorkbook. Kaitske "parool" |
Tühista kõigi avatud töövihikute kaitse
See kood tühistab kõigi avatud töövihikute kaitse:
| 12345678 | AlamkatkestusAllOpenWorkbooks ()Dim wb TöövihikunaIga wb kohta töövihikuteswb. KaitstaJärgmine wbEnd Sub |
Kaitseta töövihik - parooli teadmata
Kui teil on vaja töövihiku kaitset parooli teadmata eemaldada, on abiks mitmed lisandmoodulid. Soovitan Ribbon Commanderit.
Tühista kõigi töövihiku lehtede kaitse
Pärast töövihiku kaitsest vabastamist võiksite ka kõigi töövihiku lehtede kaitse tühistada. Siin on protseduur, mis eemaldab kõigi lehtede kaitse:
| 12345678 | Sub UnProtectWorkbookAndAllSheets ()Dim ws töölehenaActiveWorkbook. KaitstaIga ws töölehtedelws. KaitstaEdasiEnd Sub |
Kaitske töövihikut
Töövihiku struktuure saate kaitsta samamoodi nagu kaitset.
Kaitske töövihikut paroolita
See koodirida kaitseb töövihikut (parooli pole)
| 1 | Töövihikud ("Raamat1"). Kaitsta |
Märkus. Ma kasutan sageli töövihiku kaitset ilma paroolideta, lihtsalt selle vältimiseks juhuslik muudatused töövihikutes.
Kaitske töövihikut parooliga
See kood kaitseb töövihiku struktuuri (parooliga)
| 1 | Töövihikud ("Book1"). Kaitske parooli |
või:
| 1 | Töövihikud ("Book1"). Protect Password: = "password" |
Parooliga kaitstud Exceli fail
Töövihiku kaitse asemel võiksite kaitsta terve Exceli faili parooliga. Selleks, et seda teha VBA abil, salvestage parooliga töövihikuna:
| 1 | Töövihikud ("Raamat1"). Salvesta kui "parool" |
Töövihikute kaitsmise / kaitsmise näited
Näita kaitstud töövihikus kõiki töölehti
See protseduur tühistab töövihiku kaitse, peidab kõik töölehed ja kaitseb töövihikut uuesti
| 12345678910 | Alamkaitse tühistamineWB_Unhide_All_Sheets ()Dim ws töölehenaActiveWorkbook. KaitstaIga ws töölehtedelws.Visible = xlSheetVisibleEdasiActiveWorkbook. KaitseEnd Sub |
Kaitske töövihikut ja kõiki lehti
See protseduur kaitseb kõiki töövihiku töölehti ja seejärel töövihikut.
| 1234567891011 | AlamkaitseWB_Protect_All_Sheets ()Dim ws töölehenaActiveWorkbook. KaitseIga ws töölehtedelws. KaitstaEdasiActiveWorkbook. KaitseEnd Sub |
Saate lisada ka paroolikaitse:
| 1234567891011 | AlamkaitseWB_Protect_All_Sheets_Pswrd ()Dim ws töölehenaActiveWorkbook. Kaitske "parool"Iga ws töölehtedelws.Kaitse "parool"EdasiActiveWorkbook.Protect "parool"End Sub |
