Gå til hovedindhold

Hvordan beskyttes flere regneark på én gang i Excel?

Antag at du har en projektmappe, der indeholder flere regneark, og nu skal du beskytte alle regnearkene eller nogle specifikke regneark, normalt i Excel, kan du kun beskytte arket en efter en med funktionen Beskyt ark, men denne metode er kedelig og tidskrævende, hvis der er mange ark, der skal beskyttes. Hvordan beskytter du flere ark på én gang i Excel hurtigt og nemt?

Beskyt alle ark på én gang med VBA-kode

Beskyt flere ark på én gang med Kutools til Excel

Fjern beskyttelsen af ​​flere ark på én gang med kutools til Excel


pil blå højre boble Beskyt alle ark på én gang med VBA-kode

Med den følgende VBA-kode kan du beskytte alle arkene i den aktive projektmappe på én gang med den samme adgangskode, gør som dette:

1. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Beskyt alle regneark i en projektmappe på én gang:

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. Tryk derefter på F5 nøgle til at køre koden og indtaste adgangskoden til de beskyttede ark i promptboksen, se skærmbillede:

doc-protect-flere-ark1-1

4. Klik OK, og indtast derefter adgangskoden igen for at bekræfte adgangskoden.

doc-protect-flere-ark2-2

5. Klik derefter på OK, og alle arkene er beskyttet med den samme adgangskode.


pil blå højre boble Beskyt flere ark på én gang med Kutools til Excel

Nogle gange vil du ikke beskytte alle arkene i din projektmappe og kun ønsker at beskytte nogle specifikke ark. I denne situation fungerer ovenstående kode ikke. Men med Kutools til Excel's Beskyt regneark værktøj, kan du hurtigt og nemt beskytte både alle ark og specifikke ark.

Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 60 dage

Efter installation Kutools til Excelskal du gøre som følger:

1. Klik Kutools Plus > Beskyt regneark, se skærmbillede:

2. I Beskyt regneark i dialogboksen, skal du vælge de ark, du vil beskyttes. (Som standard kontrolleres alle regneark i den aktuelle projektmappe.) Se skærmbillede:

doc-protect-flere-ark4-4

3. og klik OK, og skriv og bekræft derefter adgangskoden i dialogboksen Beskyt regneark. Se skærmbillede:

doc-protect-flere-ark5-5

4. Klik derefter på OK, de valgte regneark er beskyttet.

Klik på Beskyt regneark for at vide mere om denne funktion.


pil blå højre boble Fjern beskyttelsen af ​​flere ark på én gang med kutools til Excel

Hvordan kunne du fjerne beskyttelse af flere beskyttede regneark i en projektmappe på samme tid? Selvfølgelig, Kutools til Excel giver også Fjern beskyttelse af regneark hjælpeprogram for dig til at fjerne beskyttelsen af ​​dem på én gang.

Gør følgende:

1. Åbn din projektmappe, der indeholder de beskyttede regneark.

2. Klik derefter på Kutools Plus > Fjern beskyttelse af regneark, se skærmbillede:

3. I Fjern beskyttelse af regneark dialogboksen, vises de beskyttede ark i listen, og klik derefter på Ok knap, se skærmbillede:

doc-protect-flere-ark7-7

4. Og så en Fjern beskyttelse af regneark dialogboksen vises for at minde dig om at indtaste den adgangskode, du har oprettet for at beskytte regnearkene, se skærmbillede:

doc-protect-flere-ark8-8

5. Når du har skrevet adgangskoden, skal du klikke på Ok, alle de markerede regneark i listeboksen har været ubeskyttede.

Bemærk: Arbejdsarkene skal have den samme adgangskode.

For at vide mere om denne funktion til beskyttelse af beskyttelsesark.

Download og gratis prøveversion Kutools til Excel nu!


pil blå højre boble Demo: Beskyt eller fjern beskyttelsen af ​​alle regneark på én gang med Kutools til Excel

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

Relateret artikel:

Sådan afbeskyttes flere regneark på én gang i Excel?

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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