Note: The other languages of the website are Google-translated. Back to English

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?


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

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!
officetab botten
Sortera kommentarer efter
Kommentarer (21)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Bra - så hur kan man UN-skydda dem alla på en gång? Jag är en amatör, så jag behöver mer information.
Denna kommentar minimerades av moderatoren på webbplatsen
[quote]Bra - så hur avskyddar man dem alla på en gång? Jag är en amatör, så jag behöver mer information.Av Kristin Dzugan[/quote] :-) Du kan enkelt avskydda dem som http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Denna kommentar minimerades av moderatoren på webbplatsen
Sub unprotect_all_sheets() top: pass = InputBox("lösenord?") repass = InputBox("Verifiera lösenord") Om inte (pass = repass) Då MsgBox "du gjorde ett bu bu" Gå Till toppen Slut Om För i = 1 Till arbetsblad .Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Jag tror att du har några ark som redan är skyddade. Vänligen avskydda alla ark B4 som kör detta makro." Avsluta Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket :-)
Denna kommentar minimerades av moderatoren på webbplatsen
Som Kristin sa, hur avskyddar man dem alla på en gång?
Denna kommentar minimerades av moderatoren på webbplatsen
Så, hur tar jag bort skyddet utan kutools?
Denna kommentar minimerades av moderatoren på webbplatsen
[citat]Så, hur tar jag bort skyddet utan kutools?Av cz[/quote] Du kan avskydda kalkylbladet utan Kutools för Excel. Du behöver bara högerklicka på arkfliken som du vill ta bort skyddet och klicka på kommandot Unprotect Sheet och ange sedan ditt lösenord. :-)
Denna kommentar minimerades av moderatoren på webbplatsen
när jag matar in koden kommer det upp med "run time error 1004?? och markerar följande i gult... s.Protect Password:=pass
Denna kommentar minimerades av moderatoren på webbplatsen
Jag får plötsligt 1004-felet också. Jag har använt makrot i flera månader men nu fungerar det inte.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag hade det här problemet också. Det visar sig att det inte kan köras om du har valt alla ark i arbetsboken. Försök att välja bara ett ark och kör sedan.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag får plötsligt felet 1004. Har använt makrot i flera månader nu misslyckas det slumpmässigt.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag får plötsligt 1004-felet också. Någon som hittar en lösning?
Denna kommentar minimerades av moderatoren på webbplatsen
när jag aktiverade denna VBA, hyperlänk fungerar inte. hur kan jag få dem att fungera? tnx :)
Denna kommentar minimerades av moderatoren på webbplatsen
Tack! Det här är fantastiskt, jag kunde till och med ändra VBA-koden så att jag kunde avskydda alla ark på en gång! :) Sub unprotect_all_sheets() top: pass = InputBox("lösenord?") repass = InputBox("Verifiera lösenord") Om inte (pass = repass) Då MsgBox "du gjorde ett bu bu" GoTo top End If For i = 1 To Worksheets.Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Jag tror att du har några ark som redan är skyddade. Vänligen avskydda alla ark B4 som kör detta makro." Avsluta Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag behöver lite hjälp, koden ovan var till stor hjälp, men den låser sorteringen (även autofilter) kan du snälla ange kod för att lösa problemet och även var den skulle infogas. Tack på förhand.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har diagramflikar och kalkylblad i min Excel 2013-arbetsbok. VBA-kodningen ovan fungerar för att skydda kalkylbladen men inte de separata diagramflikarna. Hur lösenordsskyddar jag de flera diagramflikarna och flera kalkylblad i min arbetsbok? Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag använde den här koden nu, jag accepterar inte mitt lösenord för att komma tillbaka till mitt kalkylark !!
Denna kommentar minimerades av moderatoren på webbplatsen
Hur maskerar jag lösenordet med VBA-metoden? Jag kan inte hitta denna information via google eller F1 hjälpfiler. Tack på förhand!
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för det underbara verktyget för att skydda och avskydda alla ark samtidigt. Snälla vägled mig. Jag kan avskydda alla ark i min arbetsbok åt gången, men när jag kör skydda alla ark VBA-kod är bara de första fyra arken skyddade och vilar eller lämnas oskyddade. Snälla hjälp mig att reda ut problemet.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag försöker använda detta i en delad arbetsbok men jag får ett Microsoft Visual Basic-fel "Run-time error '1004": Programdefinierat eller objektdefinierat fel" Jag letar bara efter förslag på hur man kan komma runt detta. Alla hjälp skulle uppskattas
Denna kommentar minimerades av moderatoren på webbplatsen
Uppstår när arket redan är låst
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL