Beveilig alle tabbladen met een druk op de knop

Als je een werkblad met verschillende tabbladen hebt en je komt erachter dat je op iedere pagina de beveiliging nog moet doen dan kan dit een heleboel extra werk opleveren.
Beveilig daarom met een druk op de knop alle tabbladen.

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

Macro

Om deze macro in te stellen open je de VBA editor, sneltoets ALT + F11. Hier voeg je een nieuwe module in met de volgende code:

Sub BeveiligAlles()
Dim ws As Worksheet
Dim ps As String
ps = InputBox("Voer een wachtwoord in voor alle tabbladen", vbOKCancel)
For Each ws In ActiveWorkbook.Worksheets
ws.Protect 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 BeveiligAlles aan.

Nu heb je een knop om in een keer alle tabbladen te beveiligen.

2 replies on “Beveilig alle tabbladen met een druk op de knop”

  • Deze formule werkt perfect en beveiligd idd alle werkbladen in 1 keer.

    Maar als ik echter per werkblad de beveiliging wil opheffen, dan hoef ik alleen maar op het icoon te klikken en dan gaat de beveiliging eraf zonder wachtwoord.

    Kortom een tricky oplossing van mijn bladen zijn dus helemaal niet beveiligd.
    Hebben jullie hier een oplossing voor?
    ik hoop het enorm

    Excel quest
    • Wanneer je een werkblad beveiligt met een wachtwoord via VBA, kan inderdaad het wachtwoord worden omzeild door simpelweg op het icoon te klikken en de beveiliging op te heffen zonder wachtwoord.

      Dit komt omdat het wachtwoord dat via VBA wordt ingesteld, niet hetzelfde is als het wachtwoord dat wordt gebruikt bij het handmatig beveiligen van een werkblad.

      Wat je zou kunnen doen, is de werkbladen te beveiligen met een wachtwoord en tegelijkertijd de VBA-projectbeveiliging in te schakelen.
      Op deze manier wordt het moeilijker om de beveiliging van de werkbladen te omzeilen.

      Dit kun je alsvolgt instellen

      In de Visual Basic Editor (Alt + F11).
      Ga naar ‘Extra’ in de menubalk en selecteer ‘Projecteigenschappen’.
      Tabblad ‘Beveiliging’.
      Schakel het selectievakje ‘Project toegankelijk maken’ in en voer een wachtwoord in.
      Klik OK en sluit VBE af.

      Als je nu probeert om de VBA-code te bekijken of te wijzigen, om een wachtwoord worden gevraagd.
      Hierdoor wordt het moeilijker om de beveiliging van de werkbladen te omzeilen door simpelweg op het icoon te klikken.

      Joost Administrator

Leave a Comment

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