Ga naar inhoud

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


Evelien83
 Delen

Aanbevolen berichten

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

 

aangepast door alpha
Link naar reactie
Delen op andere sites

 Delen

×
×
  • Nieuwe aanmaken...