J'ai eu ma réponse:
Voilà le code possible à utiliser:
Private Sub Workbook_Open()
'pour tous les feuilles de calcul du classeur:
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Protect Contents:=True, UserInterfaceOnly:=True
'Avec Mot de passe
'Sh.Protect password:="toto", Contents:=True, UserInterfaceOnly:=True
Next
Set Sh = Nothing
'Si c'est seulement pour une feuille :
'Worksheets("NomDeLaFeuille").Protect Contents:=True, UserInterfaceOnly:=True
End Sub