Autres Liste déroulante de choix

'Pour selectionner
ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation).Select
'Pour déverrouiller
ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation).Locked = False

Sub SupprimerVerrouillageJJ()
    Dim Chemin$, Sh As Worksheet, CL
    Dim c As Range
    Chemin = "D:\Mes documents\toto\"    ' A adapter
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    For Each CL In Array("Classeur1.xlsm", "Classeur2.xlsm", "Classeur3.xlsm")    ' A adapter
        Workbooks.Open Filename:=Chemin & CL
        For Each Sh In ActiveWorkbook.Worksheets
            Sh.Unprotect    ' mdp s'il y a lieu
            On Error Resume Next    'si pas de liste de validation
            Sh.Cells.SpecialCells(xlCellTypeAllValidation).Locked = False
            On Error GoTo 0
            Sh.Protect    'mdp s'il y a lieu
        Next
        ActiveWorkbook.Close True
    Next
    Application.EnableEvents = True
End Sub