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

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?


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (21)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk - så hvordan afbeskytter man dem alle på én gang? Jeg er amatør, så jeg har brug for mere information.
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Fantastisk - så hvordan afbeskytter man dem alle på én gang? Jeg er amatør, så jeg har brug for mere information.Af Kristin Dzugan[/quote] :-) Du kan nemt fjerne beskyttelsen af ​​dem som http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Denne kommentar blev minimeret af moderatoren på webstedet
Sub unprotect_all_sheets() top: pass = InputBox("adgangskode?") repass = InputBox("Bekræft adgangskode") Hvis ikke (pass = repass) Så MsgBox "du lavede et buo" GoTo top End If For i = 1 Til Arbejdsark .Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Jeg tror, ​​du har nogle ark, der allerede er beskyttet. Fjern beskyttelsen af ​​alle ark B4, der kører denne makro." Slut Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak :-)
Denne kommentar blev minimeret af moderatoren på webstedet
Som Kristin sagde, hvordan ophæver du beskyttelsen af ​​dem alle på én gang?
Denne kommentar blev minimeret af moderatoren på webstedet
Så hvordan fjerner jeg beskyttelsen uden kutools?
Denne kommentar blev minimeret af moderatoren på webstedet
[citat]Så hvordan fjerner jeg beskyttelsen uden kutools?Af cz[/quote] Du kan fjerne beskyttelsen af ​​regnearket uden Kutools til Excel. Du skal bare højreklikke på arkfanen, som du vil fjerne beskyttelsen af, og klikke på kommandoen Fjern beskyttelse af ark, og derefter indtaste din adgangskode. :-)
Denne kommentar blev minimeret af moderatoren på webstedet
når jeg indlæser koden kommer den op med "run time error 1004?? og fremhæver følgende med gult... s.Protect Password:=pass
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har pludselig også fejlen 1004. Jeg har brugt makroen i flere måneder, men nu kører den ikke.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg havde også dette problem. Det viser sig, at det ikke kan køre, hvis du har valgt alle ark i projektmappen. Prøv kun at vælge ét ark og kør derefter.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har pludselig fejl 1004-problemet. Har brugt makroen i flere måneder, nu fejler den tilfældigt.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har pludselig også fejlen 1004. Nogen der finder en løsning?
Denne kommentar blev minimeret af moderatoren på webstedet
da jeg aktiverede denne VBA, hyperlink virker ikke. hvordan kan jeg få dem til at virke? tnx :)
Denne kommentar blev minimeret af moderatoren på webstedet
Tak skal du have! Dette er fantastisk, jeg var endda i stand til at ændre VBA-koden, så jeg kunne fjerne beskyttelsen af ​​alle ark på én gang! :) Sub unprotect_all_sheets() top: pass = InputBox("adgangskode?") repass = InputBox("Bekræft adgangskode") Hvis ikke (pass = repass) Så MsgBox "you made a buo boo" GoTo top End If For i = 1 To Worksheets.Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub ups: MsgBox "Jeg tror, ​​du har nogle ark, der allerede er beskyttet. Fjern venligst beskyttelsen af ​​alle ark B4, der kører denne makro." Slut Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg har brug for lidt hjælp, ovenstående kode var meget nyttig, men den låser sorteringen (også autofilter) kan du venligst give kode til at løse det problem, og også hvor den vil blive indsat. Tak på forhånd.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har diagramfaner og regneark i min Excel 2013-projektmappe. VBA-kodningen ovenfor virker til at beskytte regnearkene, men ikke de separate diagramfaner. Hvordan beskytter jeg de flere diagramfaner og flere arbejdsark i min projektmappe med adgangskode? Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej jeg brugte denne kode nu, jeg vil ikke acceptere min adgangskode for at komme tilbage til mit regneark !!
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan maskerer jeg adgangskoden ved hjælp af VBA-metoden? Jeg kan ikke finde disse oplysninger via google eller F1 hjælpefiler. Tak på forhånd!
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for det vidunderlige værktøj til at beskytte og fjerne beskyttelsen af ​​alle ark ad gangen. Venligst vejled mig. Jeg er i stand til at fjerne beskyttelsen af ​​alle ark i min arbejdsbog ad gangen, men når jeg kører beskytte alle ark VBA-kode, er kun de første 4 ark beskyttet og hviler eller efterladt ubeskyttede. Hjælp mig venligst med at løse problemet.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg forsøger at bruge dette i en delt projektmappe, men jeg får en Microsoft Visual Basic-fejl "Run-time error '1004": Applikationsdefineret eller objektdefineret fejl" Jeg leder bare efter forslag til, hvordan man kan komme uden om dette. hjælp ville blive værdsat
Denne kommentar blev minimeret af moderatoren på webstedet
Opstår, når arket allerede er låst
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL