Hvis du har distribueret Excel-projektmapper med beskyttede ark, får du sandsynligvis projektmapperne tilbage med arkene stadig beskyttet. Ofte skal du fjerne beskyttelsen af arbejdsarkene i en projektmappe, før du fortsætter dit arbejde. Hvis du opdager, at du hele tiden fjerner beskyttelsen af arbejdsark, kan denne makro være den rette billet.
Sådan fungerer makroen
Koden udløses af projektmappens Open-begivenhed. Når du åbner en projektmappe, udløses denne hændelse og kører koden indeni. Denne makro fjerner automatisk beskyttelsen af det angivne ark med den givne adgangskode, når projektmappen åbnes:
Privat underarbejdsbog_Åben()
Trin 1: Beskyt arket med en adgangskode
Sheets("Sheet1"). Fjern beskyttelse af adgangskode:="RED"
Slut Sub
Makroen navngiver eksplicit det ark, du vil fjerne beskyttelsen - Ark1, i dette tilfælde. Derefter sender den den adgangskode, der kræves for at fjerne beskyttelsen af arket.
Excel-adgangskoder skelner mellem store og små bogstaver, så vær opmærksom på den nøjagtige adgangskode og store bogstaver, du bruger.
Sådan bruger du makroen
For at implementere denne makro skal du kopiere og indsætte den i vinduet Workbook_Open begivenhedskode. Ved at placere makroen her kan den køre hver gang projektmappen åbnes:
Aktiver Visual Basic Editor ved at trykke på Alt+F11.
Find dit projekt-/projektmappenavn i projektvinduet og klik på plustegnet ved siden af det for at se alle arkene.
Klik på ThisWorkbook.
På rullelisten Begivenhed skal du vælge Åbn begivenhed.
Indtast eller indsæt koden i det nyoprettede modul, rediger arknavnet (hvis nødvendigt) og adgangskoden.
Indtast din kode i Workbook Open-begivenheden.