Kā izveidot aizsardzību ar paroli, izmantojot makro
Vai vēlaties nodrošināt, ka visas darblapas jūsu izvēlētajā mapē ir aizsargātas ar paroli, izmantojot makro? Tas var būt noderīgi, ja jums ir pārāk daudz pūļu, lai aizsargātu darblapas atsevišķi vai ja vēlaties automātiski aizsargāt visas direktorijā esošās darbgrāmatas. Izmantojiet šo makro, lai piešķirtu paroli "aizsargāt" visām darblapām aktīvajā mapē:
Sub AllSchuetzen ()
Izkaltēt lapu kā darblapu
Par katru lapu ActiveWorkbook. Darblapas
Blatt.Protect ("aizsardzība")
Nākamā lapa
Beigu apakš
Teksta "Schutz" vietā izmantojiet izvēlēto paroli. Protams, šim programmas kodam ir jēga tikai tad, ja to ievadāt ārpus darbgrāmatas, kurā veidojat aizsardzību. Pretējā gadījumā katrs lietotājs var nolasīt paroli VBA avota tekstā.
Lai aizsargātajās darblapās varētu kaut ko mainīt, aizsardzība ir jānoņem. To var izdarīt manuāli, izmantojot komandu EXTRAS - PROTECTION - CANCEL LEAF PROTECTION. Šī komanda ir pieejama tikai tad, ja pašreizējā darblapa ir faktiski aizsargāta.
Ja vēlaties vēlreiz atbrīvot visas aizsargātās darblapas, izmantojot makro, izmantojiet šādu programmas kodu:
Sub AllExposure ()
Izkaltēt lapu kā darblapu
Par katru lapu ActiveWorkbook. Darblapas
Blatt.Unprotect ("aizsardzība")
Nākamā lapa
Beigu apakš
