Bonjour,
2 choses à faire :
1° Laisser les cellules (1ère ligne) sans protection. (format de cellules - Protection à décocher)
2° Mettre le code suivant dans le module "ThisWorkbook" :
Private Sub Workbook_Open()
For Each ws In Worksheets
If ws.ProtectContents = False Then
ws.Protect , UserInterfaceOnly:=True
End If
Next
End Sub