Dažreiz jums ir jānosūta pasaulei sava Excel darbgrāmata ar aizsargātām īpašām darblapām. Ja konstatējat, ka pirms darbgrāmatu izplatīšanas pastāvīgi aizsargājat un atceļat lapu aizsardzību, šeit esošais makro var jums palīdzēt.
Kā darbojas makro
Kodu aktivizē darbgrāmatas notikums BeforeClose. Mēģinot aizvērt darbgrāmatu, šis notikums tiek aktivizēts, palaižot tajā esošo kodu. Makro automātiski aizsargā norādīto lapu ar norādīto paroli un pēc tam saglabā darbgrāmatu:
Private Sub Workbook_BeforeClose (Atcelt kā Būla)
1. darbība. Aizsargājiet lapu ar paroli
Izklājlapas ("1. lapa"). Aizsargājiet paroli:="SARKANA"
2. darbība. Saglabājiet darbgrāmatu
ActiveWorkbook.Save
Beigt apakš
1. darbībā jūs skaidri norādāt, kuru lapu aizsargāt — šajā gadījumā 1. lapu. Norādiet arī paroles argumentu Password:=”RED”, kas nosaka aizsardzības noņemšanai nepieciešamo paroli.
Šis paroles arguments nav obligāts. Ja to izlaidīsit, lapa joprojām būs aizsargāta, taču jums nebūs nepieciešama parole, lai to noņemtu.
Excel paroles ir reģistrjutīgas, tāpēc vēlēsities pievērst uzmanību precīzai izmantotajai parolei un lielo burtu lietojumam.
2. darbībā programmai Excel ir jāsaglabā darbgrāmata. Ja nesaglabājat darbgrāmatu, tikko lietotā lapas aizsardzība nebūs spēkā nākamajā darbgrāmatas atvēršanas reizē.
Kā lietot makro
Lai ieviestu šo makro, tas ir jākopē un jāielīmē notikuma koda logā Workbook_BeforeClose. Ievietojot makro šeit, tas tiks palaists katru reizi, kad mēģināt aizvērt darbgrāmatu:
Aktivizējiet Visual Basic redaktoru, nospiežot Alt+F11.
Projekta logā atrodiet sava projekta/darbgrāmatas nosaukumu un noklikšķiniet uz pluszīmes blakus tam, lai redzētu visas lapas.
Noklikšķiniet uz šī darbgrāmata.
Nolaižamajā sarakstā Notikums atlasiet notikumu BeforeClose.
Ierakstiet vai ielīmējiet kodu jaunizveidotajā modulī, mainot lapas nosaukumu (ja nepieciešams) un paroli.
Ievadiet savu kodu pasākumā Workbook BeforeClose.
Ņemiet vērā, ka varat aizsargāt papildu lapas, pievienojot pievienošanas paziņojumus pirms Activeworkbook.Save.