'Pour déprotéger les cellules
Cells.Select
Selection.Locked = False
'Pour protéger les cellules
Cells.Select
Selection.Locked = True
Mais de toute manière, pour que la protection soit activé
Sheets("feuil1").Protect password:="test"
ou désactivé
Sheets("feuil1").Unprotect password:="test"