Sub Protection()
Dim s As Object
ThisWorkbook.Names.Add "P", IsError([1/P]) 'nom défini dans le classeur
For Each s In Sheets(Array("Feuil1", "Feuil2", "Feuil3"))
s.DrawingObjects("ZoneTexte 2").Text = IIf([P], "Déprotéger", "Protéger")
If [P] Then s.Protect Else s.Unprotect
Next
End Sub