Om du har distribuerat Excel-arbetsböcker med skyddade ark, får du förmodligen tillbaka arbetsböckerna med arken fortfarande skyddade. Ofta måste du avskydda kalkylbladen i en arbetsbok innan du fortsätter ditt arbete. Om du upptäcker att du ständigt tar bort skyddet av kalkylblad, kan det här makrot vara just biljetten.
Hur makrot fungerar
Koden utlöses av arbetsbokens Open-händelse. När du öppnar en arbetsbok utlöses den här händelsen och kör koden inom. Detta makro tar automatiskt bort skyddet av det angivna arket med det angivna lösenordet när arbetsboken öppnas:
Privat underarbetsbok_Öppen()
'Steg 1: Skydda arket med ett lösenord
Sheets("Sheet1"). Avskydda lösenord:="RED"
Avsluta Sub
Makrot namnger uttryckligen det ark som du vill ta bort skyddet - Blad1, i det här fallet. Sedan skickar den lösenordet som krävs för att avskydda arket.
Excel-lösenord är skiftlägeskänsliga, så var uppmärksam på det exakta lösenordet och versaler som du använder.
Hur man använder makrot
För att implementera detta makro måste du kopiera och klistra in det i Workbook_Open-händelsekodfönstret. Genom att placera makrot här kan det köras varje gång arbetsboken öppnas:
Aktivera Visual Basic Editor genom att trycka på Alt+F11.
I projektfönstret hittar du ditt projekt-/arbetsboksnamn och klickar på plustecknet bredvid för att se alla ark.
Klicka på ThisWorkbook.
I listrutan Händelse väljer du evenemanget Öppna.
Skriv eller klistra in koden i den nyskapade modulen, ändra arknamnet (om nödvändigt) och lösenordet.
Ange din kod i Workbook Open-händelsen.