Ja esat izplatījis Excel darbgrāmatas ar aizsargātām lapām, iespējams, jūs saņemsit darbgrāmatas atpakaļ ar aizsargātām lapām. Bieži vien pirms darba turpināšanas ir jānoņem darbgrāmatas darblapu aizsardzība. Ja konstatējat, ka nepārtraukti noņemat darblapu aizsardzību, šis makro var būt tikai biļete.
Kā darbojas makro
Kodu aktivizē darbgrāmatas notikums Atvērt. Atverot darbgrāmatu, šis notikums tiek aktivizēts, palaižot tajā esošo kodu. Šis makro automātiski atceļ norādītās lapas aizsardzību ar norādīto paroli, kad tiek atvērta darbgrāmata:
Privāta apakšdarbgrāmata_Open()
1. darbība. Aizsargājiet lapu ar paroli
Izklājlapas("1. lapa"). Noņemt paroles aizsardzību:="SARKANS"
Beigt apakš
Makro skaidri nosauc lapu, kuru vēlaties noņemt, šajā gadījumā Sheet1. Pēc tam tas nodod paroli, kas nepieciešama, lai noņemtu lapas aizsardzību.
Excel paroles ir reģistrjutīgas, tāpēc pievērsiet uzmanību precīzai izmantotajai parolei un lielo burtu lietojumam.
Kā lietot makro
Lai ieviestu šo makro, tas ir jākopē un jāielīmē notikuma koda logā Workbook_Open. Makro ievietošana šeit ļauj to palaist katru reizi, kad tiek atvērta darbgrāmata:
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 Atvērt notikumu.
Ierakstiet vai ielīmējiet kodu jaunizveidotajā modulī, mainot lapas nosaukumu (ja nepieciešams) un paroli.
Ievadiet savu kodu darbgrāmatas atvēršanas pasākumā.