blad beveiligen in macro

[W Bloemendal]

Ik heb een in een macro het volgende staan.

Sheets("invoer").Protect "2007"

Maar nu wil ik het volgende in de macro hebben zodat beveiligde cellen niet bezocht kunnen worden dit lukt met de volgende regel.

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells

Maar hoe moet ik er het wachtwoord in zetten zodat de beveiliging er niet door anderen er handmatig afgehaald kan worden.

wim

 

[Wigi]

Zo?

ActiveSheet.Protect Password:="2007", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells

Wigi