Hvis du har distribuert Excel-arbeidsbøker med beskyttede ark, får du sannsynligvis arbeidsbøkene tilbake med arkene fortsatt beskyttet. Ofte må du oppheve beskyttelsen av regnearkene i en arbeidsbok før du fortsetter arbeidet. Hvis du oppdager at du kontinuerlig opphever beskyttelsen av regneark, kan denne makroen være rettferdig.
Hvordan makroen fungerer
Koden utløses av arbeidsbokens Open-hendelse. Når du åpner en arbeidsbok, utløses denne hendelsen og kjører koden innenfor. Denne makroen fjerner automatisk beskyttelsen av det angitte arket med det gitte passordet når arbeidsboken åpnes:
Privat underarbeidsbok_Open()
'Trinn 1: Beskytt arket med et passord
Sheets("Sheet1"). Unprotect Password:="RED"
End Sub
Makroen navngir eksplisitt arket du vil oppheve beskyttelsen - Ark1, i dette tilfellet. Deretter sender den passordet som kreves for å oppheve beskyttelsen av arket.
Excel-passord skiller mellom store og små bokstaver, så vær oppmerksom på nøyaktig passord og store bokstaver du bruker.
Hvordan bruke makroen
For å implementere denne makroen, må du kopiere og lime den inn i Workbook_Open-hendelseskodevinduet. Ved å plassere makroen her kan den kjøres hver gang arbeidsboken åpnes:
Aktiver Visual Basic Editor ved å trykke Alt+F11.
I prosjektvinduet finner du navnet på prosjektet/arbeidsboken og klikker på plusstegnet ved siden av for å se alle arkene.
Klikk på Denne arbeidsboken.
I rullegardinlisten Begivenhet velger du Åpne hendelse.
Skriv eller lim inn koden i den nyopprettede modulen, endre arknavnet (om nødvendig) og passordet.
Skriv inn koden din i Workbook Open-hendelsen.