Bonsoir,
Quelque chose comme ça :
Sub DeproPro()
Static prot As Boolean, fa As Worksheet
If prot Then
If Not fa Is Nothing Then fa.Protect '"mdp", True, True
Set fa = Nothing
Else
Set fa = ActiveSheet
fa.Unprotect '"mdp"
End If
prot = Not prot
End Sub
Cette macro, déprotège lors d'une première exécution, protège lors de la seconde. Elle peut être utilisée pour toutes les feuilles (à toi de voir son mode de lancement pour l'avoir à disposition). Elle mémorise la feuille déprotégée afin de pouvoir la protéger la fois suivante (ainsi, si tu omets de reprotéger après usage, que tu changes de feuille et que tu actionnes pour déprotéger, c'est en fait la feuille précédente qui sera reprotégée, et tu devras réactionner pour déprotéger la nouvelle...). Remplacer mdp par le mot de passe (Cela suppose un même mot de passe pour toutes les feuilles).
Cordialement
Ferrand