Ôter la protection de centaines de feuille Excel.

Sub Déprotége_Fichiers() 
    Dim Chemin As String, Fichier As String 
    Dim Feuille As Worksheet 
    Chemin = ThisWorkbook.Path & "\" 
    Fichier = Dir(Chemin & "*.xls") 
    'boucle sur tous les classeurs 
    Do While Len(Fichier) > 0 
        If Fichier <> ThisWorkbook.Name Then 
            'ouvre le fichier 
            Workbooks.Open Filename:=Chemin & Fichier 
            'boucle sur chaque feuille 
            For Each Feuille In ActiveWorkbook.Worksheets 
                'déprotège 
                Feuille.Unprotect 
            Next 
            ActiveWorkbook.Save 
            ActiveWorkbook.Close 
        End If 
        Fichier = Dir() 
    Loop 
End Sub