Bonour Yvouille,
Je ne pense pas qu'il y ait un moyen direct pour exécuter une macro lorsqu’on clique sur le bouton “Ôter la protection de la feuille”.
On peut le contourner, mais cela tu sais le faire et je n'ai pas de doute aux vues de tes compétences... @+
Sub UnprotectTrap()
If ActiveSheet.ProtectContents = True Then
MsgBox "Tut,tut!"
ActiveSheet.Unprotect
Else
ActiveSheet.Protect
End If
End Sub