comme ca plus de mot passe
macro de déprotection des feuilles du classeur
Private Sub azerty()
Dim essai
On Error Resume Next
ActiveWorkbook.Protect vbNullString, True, True
ActiveWorkbook.Unprotect vbnulltring
For Each essai In Sheets
essai.Protect vbNullString, , , , True
essai.Range("IV65536").Copy essai.Range("IV65536")
essai.Unprotect vbNullString
Next essai
On Error GoTo 0
End Sub