Option Explicit
 
Sub Deproteger_Feuilles()
Dim Wsh As Worksheet
 
    Application.StatusBar = ""
 
    For Each Wsh In ThisWorkbook.Worksheets
        With Wsh
            .Protect vbNullString, , True, , , , , , , , , , , , , True
            .Unprotect vbNullString
        End With
    Next Wsh
 
    Application.StatusBar = "Terminé"
End Sub