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.
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
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.
Normaal kan ik kiezen dat een gebruiker objecten mag bewerken. Hoe kan ik dat voor een bepaald deel van mijn werkblad toch nog instellen? Door nu alles met de knop te beveiligen kan op de ongeblokkeerde cellen enkel maar tekst worden ingevoerd. Bij een aantal cellen wil ik dat de gebruiker ook objecten kan invoegen. Bedankt alvast!
Om gebruikers toe te staan objecten in te voegen in specifieke delen van je werkblad terwijl de rest van het werkblad beveiligd blijft, kun je het volgende doen:
Ontgrendel de cellen waar objecten ingevoegd mogen worden:
– Selecteer de cellen waar je wilt toestaan dat objecten worden ingevoegd.
– Klik met de rechtermuisknop op de geselecteerde cellen en kies “Celeigenschappen”.
– Ga naar het tabblad “Beveiliging”.
– Haal het vinkje weg bij “Geblokkeerd”.
– Klik op “OK”.
Beveilig het werkblad met specifieke uitzonderingen:
– Ga naar het tabblad “Controleren” in het lint.
– Klik op “Werkblad beveiligen”.
– In het dialoogvenster dat verschijnt, kun je specifieke acties toestaan door de bijbehorende vakjes aan te vinken. Voor jouw situatie wil je zeker “Objecten invoegen” selecteren.
– Zorg ervoor dat “Geblokkeerde cellen selecteren” en “Niet-gebokkeerde cellen selecteren” ook zijn aangevinkt als je wilt dat gebruikers deze cellen kunnen bewerken.
– Klik op “OK” en stel eventueel een wachtwoord in voor de beveiliging.
Hopelijk lost dit je probleem op.