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.