Met deze macro's moet het lukken
Sub Beveilig()
For t = 1 To 13
Sheets(t).Select
Sheets(t).Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="paswoord"
Next t
Sheets(1).Select
End Sub
Sub GeefVrij()
For t = 1 To 13
Sheets(t).Select
Sheets(t).Activate
ActiveSheet.Unprotect ("paswoord")
Next t
Sheets(1).Select
End Sub
groeten