Werbladen beveiligen Excel 2007

[rclaasen]

Ik heb een excel model met 17 werkbladen. Deze wil ik allemaal tegelijkertijd kunnen beveiligen en ontdoen van beveiliging.
Tevens nog een ander probleem. Als ik handmatig alle bladen (per stuk) heb beveiligd en ik wil het bestand opslaan als, krijg ik de vraag de beveiliging op te heffen. Hoe kan ik dit voorkomen?.

Kan iemand mij helpen aan vba code om mijn probleem op te lossen.

 

[Hoornvan]

rclaasen,

Ik hoop dat je wat aan de code heb.

Sub Beveiligen()
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect "jouwpaswoord"
    Next
End Sub

Sub WegBeveiliging()
        Password = InputBox("Vul het wachtwoord in om de beveiliging op te heffen!")
  For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password
    Next
End Sub

 

[rclaasen]

Ik heb de code toegepast en het werkt, hartstikke bedankt.

Weet iemand nog een oplossing voor de vraag bij het opslaan van het bestand?