Tu protèges sans mot de passe et tu déprotèges par macro
c'est une"faille de sécurité" de microsoft !! que l'on peut exploiter ...
Sub Déprotégerlafeuille()
On Error GoTo errmag
With ActiveSheet
.Protect vbNullString, , , , , , True
.Protect vbNullString, , , , , , , , , , True
.Unprotect vbNullString
End With
MsgBox "Protection de la feuille a été enlevée."
Exit Sub
errmag:
MsgBox "Erreur lors de la déprotection de la feuille." & vbCrLf & "Tentez de nouveau votre chance."
End Sub