Vaak moet ik een excelbestand met 4X18 tabbladen aanpassen.De aanpassingen mogen niet teniet gedaan kunnen worden door andere gebruikers dus moet ik ze beveiligen. De voor de hand liggende oplossing is blad per blad te beveiligen maar dat is een vervelend en landurig werk.
Is er een mogelijkheid om met bvb. 1 macroknop de 18 tabbladen te beveiligen en met een andere knop de beveiliging ongedaan te maken wel rekening mee houdende dat andere gebruikers nog bepaalde zaken kunnen wijzigen. Kan wel macro's opnemen maar ken geen visual basic?

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