Werkblad beveiligen met wachtwoord via macro

[S.Teeling]

Hallo,

ik wil een sheet beveiligen met een wachtwoord, dit doe ik gewoon via het menu Extra, Beveiliging, Blad beveiliging.

Ik heb echter op een sheet 2 knoppen staan, een voor UNPROTECT en een voor PROTECT. Na een beveiliging via het menu wordt na een klik op de UNPROTECT knop keurig gevraagd om het wachtwoord. Beveiling ik het sheet vervolgens weer met de knop PROTECT dan wordt hij beveiligd zonder wachtwoord.

Wat is de code welke ik moet toevoegen aan onderstaande regels om het blad ook na het indrukken van deze knop weer te beveiligen. Het liefst zet ik het ww in de code zodat ik het niet telkens hoef in te geven.

Private Sub CommandButton2_Click()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Heeft iemand een idee?

 

[jpvs]

Heb een code gezocht, misschien is dit iets?

zie bijlage

Pierre

 

[Jan van Asseldonk]

Private Sub CommandButton2_Click()
ActiveSheet.Protect Password:="Wachtwoord", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[S.Teeling]

Bedankt, dat is precies wat ik zocht.

 

[Wigi]

Zet de vraag op opgelost aub.