Hoppa till huvudinnehåll

Hur skyddar jag flera kalkylblad samtidigt i Excel?

Om du antar att du har en arbetsbok som innehåller flera kalkylblad, och nu måste du skydda alla kalkylblad eller några specifika kalkylblad, normalt i Excel, kan du bara skydda arket en efter en med funktionen Skydda ark, men den här metoden är tråkig tidskrävande om det finns många ark 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


pil blå höger bubbla 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:

doc-skydda-flera ark1-1

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

doc-skydda-flera ark2-2

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


pil blå höger bubbla 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.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 60 dagar

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 du vill skydda. (Som standard är alla kalkylblad i den aktuella arbetsboken kontrollerade.) Se skärmdump:

doc-skydda-flera ark4-4

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

doc-skydda-flera ark5-5

4. Klicka sedan OKhar de valda kalkylbladet skyddats.

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


pil blå höger bubbla 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:

doc-skydda-flera ark7-7

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:

doc-skydda-flera ark8-8

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.

Ladda ner och prova gratis Kutools för Excel nu!


pil blå höger bubbla Demo: Skydda eller avskydda alla kalkylblad samtidigt med Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Relaterad artikel:

Hur skyddar jag flera kalkylblad samtidigt i Excel?

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
Thanks for the wonder full tool to protect & unprotect all the sheets at a time. Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
This comment was minimized by the moderator on the site
How do I mask the password using the VBA method? I can not find this information via google or F1 help files. Thanks in advance!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
This comment was minimized by the moderator on the site
Hey, I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted. Thank you in advance.
This comment was minimized by the moderator on the site
Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :) Sub unprotect_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 Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro." End Sub
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations