Ga naar hoofdinhoud

Hoe meerdere werkbladen tegelijk in Excel te beveiligen?

Stel dat u een werkmap heeft die meerdere werkbladen bevat en nu moet u alle werkbladen of enkele specifieke werkbladen beveiligen, normaal gesproken in Excel, kunt u het blad slechts één voor één beschermen met de functie Blad beschermen, maar deze methode is vervelend en tijdrovend als er meerdere vellen moeten worden beschermd. Hoe bescherm je snel en gemakkelijk meerdere bladen tegelijk in Excel?

Bescherm alle bladen tegelijk met VBA-code

Bescherm meerdere bladen tegelijk met Kutools voor Excel

Maak de bescherming van meerdere bladen tegelijk ongedaan met kutools voor Excel


pijl blauw rechts bel Bescherm alle bladen tegelijk met VBA-code

Met de volgende VBA-code kunt u alle bladen van de actieve werkmap tegelijk beveiligen met hetzelfde wachtwoord, doe dit als volgt:

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: bescherm alle werkbladen in een werkmap tegelijk:

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. Druk vervolgens op F5 sleutel om de code uit te voeren, en voer het wachtwoord voor de beschermde bladen in het promptvenster in, zie screenshot:

doc-protect-meerdere-bladen1-1

4. Klikken OKen voer het wachtwoord opnieuw in om het te bevestigen.

doc-protect-meerdere-bladen2-2

5. Dan klikken OK, en alle bladen zijn beveiligd met hetzelfde wachtwoord.


pijl blauw rechts bel Bescherm meerdere bladen tegelijk met Kutools voor Excel

Soms wilt u niet alle bladen in uw werkmap beschermen en wilt u alleen enkele specifieke bladen beschermen, in deze situatie werkt de bovenstaande code niet. Maar met Kutools for Excel's Bescherm werkblad hulpprogramma, kunt u zowel alle bladen als specifieke bladen snel en gemakkelijk beschermen.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Klikken Koetools Plus > Bescherm werkblad, zie screenshot:

2. In de Bescherm werkblad dialoogvenster, selecteer de bladen die u wilt beschermen. (Standaard worden alle werkbladen in de huidige werkmap gecontroleerd.) Zie screenshot:

doc-protect-meerdere-bladen4-4

3. En klik op OKen typ en bevestig het wachtwoord in het dialoogvenster Werkblad beveiligen. Zie screenshot:

doc-protect-meerdere-bladen5-5

4. Dan klikken OK, de geselecteerde werkbladen zijn beveiligd.

Klik op Werkblad beveiligen voor meer informatie over deze functie.


pijl blauw rechts bel Maak de bescherming van meerdere bladen tegelijk ongedaan met kutools voor Excel

Hoe kunt u de beveiliging van meerdere beveiligde werkbladen in een werkmap tegelijkertijd opheffen? Natuurlijk, Kutools for Excel biedt ook de Beveiliging werkblad opheffen hulpprogramma voor u om ze in één keer onbeschermd te maken.

Voer de volgende stappen uit:

1. Open uw werkmap die de beschermde werkbladen bevat.

2. Dan klikken Koetools Plus > Beveiliging werkblad opheffen, zie screenshot:

3. In de Beveiliging werkblad opheffen dialoogvenster, worden de beschermde bladen in de keuzelijst weergegeven en klikt u op Ok knop, zie screenshot:

doc-protect-meerdere-bladen7-7

4. En dan een Beveiliging werkblad opheffen dialoogvenster verschijnt om u eraan te herinneren het wachtwoord in te voeren dat u hebt gemaakt om de werkbladen te beschermen, zie screenshot:

doc-protect-meerdere-bladen8-8

5. Klik na het typen van het wachtwoord op Okzijn alle aangevinkte werkbladen in de keuzelijst onbeschermd.

Opmerking: De werkbladen moeten hetzelfde wachtwoord hebben.

Om meer te weten over deze functie Werkblad opheffen.

Download en gratis proef Kutools voor Excel nu!


pijl blauw rechts bel Demo: bescherm of maak de beveiliging van alle werkbladen tegelijk ongedaan met Kutools voor Excel

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

Gerelateerd artikel:

Hoe kan ik meerdere werkbladen tegelijk in Excel opheffen?

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke 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