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

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?


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

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!
officetab onderkant
Heb je vragen? Stel ze hier. (21)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Geweldig - dus hoe kun je ze allemaal tegelijk ONBESCHERMEN? Ik ben een amateur, dus ik heb meer info nodig.
Deze opmerking is gemaakt door de moderator op de site
[quote]Geweldig, dus hoe kun je ze allemaal tegelijk ONBESCHERMEN? Ik ben een amateur, dus ik heb meer info nodig.Door Kristin Dzugan[/quote] :-) Je kunt ze gemakkelijk opheffen als http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Deze opmerking is gemaakt door de moderator op de site
Sub unprotect_all_sheets() top: pass = InputBox("wachtwoord?") repass = InputBox("Verifieer wachtwoord") If Not (pass = repass) Dan MsgBox "je hebt een boo boo gemaakt" GoTo top End If For i = 1 Naar werkbladen .Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Volgende Exit Sub oeps: MsgBox "Ik denk dat je een aantal bladen hebt die al beveiligd zijn. Maak de beveiliging van alle bladen op B4 met deze macro ongedaan." Einde sub
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt :-)
Deze opmerking is gemaakt door de moderator op de site
Zoals Kristin zei, hoe verwijder je ze allemaal tegelijk?
Deze opmerking is gemaakt door de moderator op de site
Dus, hoe kan ik de beveiliging opheffen zonder kutools?
Deze opmerking is gemaakt door de moderator op de site
[quote]Dus, hoe kan ik de beveiliging opheffen zonder kutools?Door cz[/quote] U kunt de beveiliging van het werkblad opheffen zonder Kutools voor Excel. U hoeft alleen maar met de rechtermuisknop op de bladtab te klikken waarvan u de beveiliging wilt opheffen en op de opdracht Blad beveiligen opheffen te klikken en vervolgens uw wachtwoord in te voeren. :-)
Deze opmerking is gemaakt door de moderator op de site
wanneer ik de code invoer, komt het met "runtime error 1004?? en markeert het volgende in geel ... s.Protect Password:=pass
Deze opmerking is gemaakt door de moderator op de site
Ik heb opeens ook de 1004-fout. Ik gebruik de macro al maanden, maar nu werkt hij niet.
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik had dit probleem ook. Blijkt dat het niet kan worden uitgevoerd als u alle bladen in de werkmap hebt geselecteerd. Probeer slechts één blad te selecteren en vervolgens te starten.
Deze opmerking is gemaakt door de moderator op de site
Ik heb plotseling het probleem met fout 1004. Gebruik de macro nu al maanden en het mislukt willekeurig.
Deze opmerking is gemaakt door de moderator op de site
Ik heb opeens ook de 1004-fout. Vindt iemand een oplossing?
Deze opmerking is gemaakt door de moderator op de site
toen ik deze VBA activeerde, hyperlink werkt niet. hoe kan ik ze laten werken? thnx :)
Deze opmerking is gemaakt door de moderator op de site
Dank u! Dit is geweldig, ik was zelfs in staat om de VBA-code aan te passen, zodat ik alle bladen tegelijk kon opheffen! :) Sub unprotect_all_sheets() top: pass = InputBox("wachtwoord?") repass = InputBox("Verifieer wachtwoord") If Not (pass = repass) Dan MsgBox "je hebt een boo boo gemaakt" GoTo top End If For i = 1 Naar Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oeps: MsgBox "Ik denk dat je een aantal bladen hebt die al beveiligd zijn. Maak de beveiliging van alle bladen B4 met deze macro ongedaan." Einde sub
Deze opmerking is gemaakt door de moderator op de site
Hé, ik heb wat hulp nodig, de bovenstaande code was erg nuttig, maar het vergrendelt de sortering (ook automatisch filter) kunt u alstublieft code geven om dat probleem op te lossen en ook waar het zou worden ingevoegd. Dank u bij voorbaat.
Deze opmerking is gemaakt door de moderator op de site
Ik heb diagramtabbladen en werkbladen in mijn Excel 2013-werkmap. De bovenstaande VBA-codering werkt voor het beschermen van de werkbladen, maar niet voor de afzonderlijke diagramtabbladen. Hoe beveilig ik met een wachtwoord de meerdere grafiektabbladen en meerdere werkbladen in mijn werkmap? Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik heb deze code nu gebruikt, ik accepteer mijn wachtwoord niet om terug te gaan naar mijn spreadsheet !!
Deze opmerking is gemaakt door de moderator op de site
Hoe maskeer ik het wachtwoord met behulp van de VBA-methode? Ik kan deze informatie niet vinden via google of F1 helpbestanden. Bij voorbaat dank!
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor de wonder volledige tool om alle vellen tegelijk te beschermen en te ontschermen. Help me alsjeblieft. Ik kan de beveiliging van alle bladen in mijn werkboek tegelijk opheffen, maar wanneer ik alle bladen VBA-code beschermen uitvoer, zijn alleen de eerste 4 bladen beschermd en rusten ze of worden ze onbeschermd gelaten. Help me alstublieft om het probleem op te lossen.
Deze opmerking is gemaakt door de moderator op de site
Ik probeer dit te gebruiken in een gedeelde werkmap, maar ik krijg een Microsoft Visual Basic-fout "Runtime error '1004": Application-defined or object-defined error" Ik ben alleen op zoek naar suggesties om dit te omzeilen. hulp zou worden gewaardeerd
Deze opmerking is gemaakt door de moderator op de site
Doet zich voor wanneer het blad al is vergrendeld
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL