Meerdere tabbladen in één werkmap met vergrendelde cellen tegelijk beveiligen

[Evelien83]

Is het mogelijk om meerdere tabbladen met vergrendelde cellen in één werkmap tegelijk te beveiligen? (zodoende dat alleen de vergrendelde cellen niet meer te bewerken zijn).

 

[alpha]

Dat kan met een kleine macro, bv. op deze manier:

- Kopieer onderstaande code.

- Druk ALT-F11 (=Alt-toets ingedrukt houden terwijl je op F11 drukt).

- Druk in de rechterkolom op de rechtermuisknop en kies "Plakken".

- Plaats de cursor op een willekeurige plaats in de macro en klik bovenaan in het menu op het groene pijltje-naar-rechts (je kunt ook een knop in bv. blad1 plaatsen waarmee je de macro uitvoert).

De macro beveiligt alle bladen. Wil je nu bv. alleen de bladen 2 t/m 5 beveiligen, dan wijzig je de regel For x = 1 To Worksheets.Count  in: For x = 2 to 5  .

Sub beveilig()
Dim x As Integer
For x = 1 To Worksheets.Count
Worksheets(x).Protect Password:="Evelien83"
Next x
End Sub

 

6 april 2018 aangepast door alpha