Entrez le code suivant dans le VBE. Remplacer "SECRET" avec votre mot de passe préféré. Ce mot de passe vous aider "déprotéger" votre feuille de calcul et des formes plus tard.
Sous Protect ()
Réglez oFeuille = ActiveSheet
Pour chaque oShape Dans oSheet.Shapes
oShape.Locked = True
Suivant oShape
oSheet.Protect _
Mot de passe: ="SECRET", _DrawingObjects: = True, _
Sommaire: = True, _
Scénarios: = true
End Sub