I want to protect and unprotect a excel sheet with a macro, how do I pass
the password to the command?

Sub Macro12()
'
' Macro12 Macro
' Macro enregistrée l
'

'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub