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!

Dit vind je misschien ook leuk...

Geef een reactie

Het e-mailadres wordt niet gepubliceerd. Vereiste velden zijn gemarkeerd met *

Spring naar toolbar