Coucou tout le monde!
on peut aussi telecharger acyd sur http://excel.1.free.fr
Oui, je sais, moi aussi j'ai eu des problèmes pour faire fonctionner Acyd Ti,
Ti, tu ne m'en voudras pas si je donne la bonne vieille recette trouvée sur ce forum (mais je sais que ça ne fonctionne pas avec toutes les versions d'Excel) :
Sub Deprotege()
Dim ws
On Error Resume Next
ActiveWorkbook.Protect vbNullString, True, True
ActiveWorkbook.Unprotect vbnulltring
For Each ws In Sheets
If ActiveSheet.ProtectContents = False Then GoTo suit
ws.Protect vbNullString, , , , True
ws.Range("IV65536").Copy ws.Range("IV65536")
ws.Unprotect vbNullString
If ActiveSheet.ProtectContents = False Then MsgBox "La feuille " & ActiveSheet.Name & " a été déprotégée"
suit:
Next ws
On Error GoTo 0
End Sub
@+