Hur skyddar jag flera kalkylblad samtidigt i Excel?

Om du antar att du har en arbetsbok som innehåller flera kalkylblad och nu behöver skydda alla kalkylblad eller vissa specifika kalkylblad, normalt i Excel, kan du bara skydda bladet en efter en med funktionen Skydda ark, men den här metoden är tråkig och tidskrävande om det finns många ark som behöver skyddas. Hur skyddar du flera ark samtidigt i Excel snabbt och enkelt?

Skydda alla ark samtidigt med VBA-kod

Skydda flera ark samtidigt med Kutools för Excel

Avskydda flera ark samtidigt med Kutools för Excel

Skydda alla ark samtidigt med VBA-kod

Med följande VBA-kod kan du skydda alla ark i den aktiva arbetsboken samtidigt med samma lösenord, gör så här:

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Skydda alla kalkylblad i en arbetsbok samtidigt:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Tryck sedan på F5 nyckel för att köra koden och mata in lösenordet för de skyddade arken i snabbrutan, se skärmdump:

4. Klicka OK, och ange sedan lösenordet igen för att bekräfta lösenordet.

5. Klicka sedan OK, och alla ark har skyddats med samma lösenord.

Skydda flera ark samtidigt med Kutools för Excel

Ibland vill du inte skydda alla ark i din arbetsbok och bara skydda vissa specifika ark. I den här situationen fungerar ovanstående kod inte. Men med Kutools för ExcelÄr Skydda kalkylbladet verktyg kan du snabbt och enkelt skydda både alla ark och specifika ark.

När du har installerat Kutools för Excelgör så här:

1. Klicka Kutools Plus > Skydda kalkylbladet, se skärmdump:

2. I Skydda kalkylbladet i dialogrutan väljer du de ark som du vill skyddas. (Som standard är alla kalkylblad i den aktuella arbetsboken markerade.) Se skärmdump:

3. och klicka OKoch skriv sedan och bekräfta lösenordet i dialogrutan Skydda kalkylblad. Se skärmdump:

4. Klicka sedan OKhar de valda kalkylbladet skyddats.

Klicka på Skydda kalkylblad för att lära dig mer om den här funktionen.

Avskydda flera ark samtidigt med Kutools för Excel

Hur kunde du avskydda flera skyddade kalkylblad i en arbetsbok samtidigt? Självklart, Kutools för Excel tillhandahåller också Avskydda kalkylbladet verktyg för att du ska kunna skydda dem på en gång.

Gör med följande steg:

1. Öppna din arbetsbok som innehåller skyddade kalkylblad.

2. Klicka sedan Kutools Plus > Avskydda kalkylbladet, se skärmdump:

3. I Avskydda kalkylbladet dialogrutan visas de skyddade arken i listrutan och klicka sedan på Ok knapp, se skärmdump:

4. Och sedan en Avskydda kalkylbladet dialogrutan dyker upp för att påminna dig om att ange lösenordet som du har skapat för att skydda kalkylbladet, se skärmdump:

5. När du har skrivit in lösenordet klickar du på Ok, alla kontrollerade kalkylblad i listrutan har varit oskyddade.

Notera: Kalkylbladet måste ha samma lösenord.

Om du vill veta mer om funktionen Unprotect Worksheet.

Demo: Skydda eller avskydda alla kalkylblad samtidigt med Kutools för Excel

Relaterad artikel:

Hur skyddar jag flera kalkylblad samtidigt i Excel?