Beveiliging opheffen op alle tabbladen

In na volgeling van ons vorig artikel over hoe je de tabbladen in een keer beveiligt nu een artikel over hoe je de beveiliging op alle tabbladen in een keer opheft.

Als je bij een werkblad alle tabbladen beveiligt hebt en je komt erachter dat een kleine wijziging noodzakelijk is, dan is dat behoorlijk veel werk. Je moet dan elk tabblad apart aanklikken en dan de beveiliging opheffen. Dit kan sneller en dat wordt in dit artikel besproken.
We gaan een knop maken om iedere beveiliging van alle tabbladen te laten opheffen. Dit doen we doormiddel van VBA.

Vooraf is het handig om te weten hoe je het Ontwikkelaars tabblad krijgt en hoe je een macro toevoegt.

 

Beveiliging opheffen op alle tabbladen

Om deze knop goed te maken, gaan we eerst een code toevoegen. Open de VBA editor, sneltoets ALT + F11, en maak daar een nieuwe Module aan. Plak daar de volgende code:

Sub BeveiligOpheffenAlles()
Dim ws As Worksheet
Dim ps As String
ps = InputBox("Voer het wachtwoord in om de beveiliging op te heffen", vbOKCancel)
For Each ws In ActiveWorkbook.Worksheets
ws.Unprotect Password:=ps
Next ws
End Sub

Vervolgens gaan we hier een ActiveX besturingselement voor aanmaken. Ga op het lint naar het tabblad Ontwikkelaars, selecteer hier Invoegen en kies voor knop.
Koppel hier de zojuist aangemaakte module BeveiligOpheffenAlles aan.

Nu kan je in een keer alle beveiliging eraf halen.

 

 

 

 

Nieuwsbrief

Als deze uitleg nuttig was, dan kan je je inschrijven voor onze nieuwsbrief.
Een keer per maand ontvang je de nieuwste berichten in je mailbox.
Klik hier om je in te schrijven!

3 replies on “Beveiliging opheffen op alle tabbladen”

  • Als resultaat krijg ik een pop-up menu met de mededeling een password in te voeren omdat de sheet is beveiligd. Hoe los ik dit op. Ik gebruik de nieuwste versie van Excell
    Dak alvast voor de support.

    Paul

  • Goedemiddag,
    Ik gebruik deze knop nu om van meerdere bladen de beveiliging op te heffen en een aangepaste om dit voor alle bladen weer erop te zetten. Echter hoef ik dan nu maar 1 maal het wachtwoord in te vullen en vind het toch wel fijn om dit 2X te doen. Welke code kan ik hiervoor gebruiken?
    Met vriendelijke groet,
    Barbaros

    Barbaros
  • De macro werkt top. Is het ook mogelijk om op alle tabbladen de optie object bewerken ook aan te zetten en de optie het wachtwoord 2x in te moeten voeren.

    tommy wilms

Leave a Comment

Het e-mailadres wordt niet gepubliceerd.