Macro alle cellen beveiligen

[Gerard2348]

Hallo experts,

Misschien een gekke vraag, Ik heb een sheet met beveiligde en onbeveiligde cellen. Is het mogelijk dat wanneer de onbeveiligde cellen zijn ingevuld je dmv
een macro de beveiliging van het werkblad opheft alle cellen selecteert en daarna alle cellen blokkeert en dan de beveiliging er weer opzet zonder dat je het wachtwoord opnieuw moet invullen.

 

[HSV]

Zoiets dus Gerard.

Sub hsv()
 With Sheets("Blad1")
  .Unprotect "jouw wachtwoord"
  .Cells.Locked = True
  .Protect "jouw wachtwoord"
 End With
End Sub

 

[Gerard2348]

Helemaal Top!!!