beveiligen blad met een wachtwoord

[Egbert12345]

Hoi, ik wil het werkblad beveiligen met een wachtwoord via VBA. Soms beveiligen inschakelen en uitschakelen. Onderstaand de standaardcode, maar nu moet ik het wachtwoord inschakelen. Ik weet nog dat dit via VBA kan, maar ik de VBA-code weet ik niet meer. Kunnen jullie helpen?

groet Egbert


Sub Beveiligen_Aan()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Sub Beveiligen_Uit()
ActiveSheet.Unprotect
End Sub

 

[edmoor]

Zoiets:

Sub Beveiligen_Aan()
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True[COLOR="#FF0000"], Password:="JeWachtwoord"[/COLOR]
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Sub Beveiligen_Uit()
    ActiveSheet.Unprotect [COLOR="#FF0000"]"JeWachtwoord"[/COLOR]
End Sub

 

[Egbert12345]

bedankt maar weer