Autres Liste déroulante de choix

[Bestioles27]

Bonjour à tous
Je ne réussi pas à sélectionner plusieurs liste déroulantes de choix à la fois.
Pourquoi faire me demanderez-vous: Dans mes feuilles il y a des formules, donc je les protège. Malheureusement en protégeant les feuilles, mes listes de choix s'en trouve verrouillées elles aussi.
J'ai 60 listes déroulantes par feuille, 12 feuilles par classeur et 3 classeurs, alors une par une............
(Excel 2007)
Merci d'avance

 

[Nairolf]

Salut Bestioles27,

Sans plus de détails, je dirais qu'il faut que tu déverrouilles les cellules que tu ne veux pas bloquer en protégeant les feuilles.

Pour ce faire, clique droit sur la cellule correspondante, choisi "Format de cellule" (je crois que c'est "Propriété" sur les vieilles versions d'Excel), puis décoche "Verrouillée" dans l'onglet "Protection".

 

[Jacky67]

Bonjour à tous
Je ne réussi pas à sélectionner plusieurs liste déroulantes de choix à la fois.

Bonjour,

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

A tester.....
En adaptant le chemin, le nom des classeurs et les éventuels mot de passe
Ce code enlève le verrouillage de toutes les cellules ayant une liste de validation de toutes les feuilles des 3 classeurs.

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

 

[Bestioles27]

Merci Jacky67... mais je n'ai rien compris! Ca dépasse mon niveau...

Je viens de constater que, même si elles sont déverrouillées (je les ai faite une par une), les liste déroulantes sont protégées si je protège la feuille.

 

[Nairolf]

Salut,

@Bestioles27, j'ai essayé la procédure que je t'ai proposé et j'ai bien réussi à avoir accès à la liste déroulante.
Peux-tu mettre un fichier exemple qui met en avant ton problème, il sera plus simple pour nous de t'aider plus précisément.

 

[Jacky67]

Merci Jacky67... mais je n'ai rien compris! Ca dépasse mon niveau...

Je viens de constater que, même si elles sont déverrouillées (je les ai faite une par une), les liste déroulantes sont protégées si je protège la feuille.

Re..
Alors ce ne sont pas des listes de validation. Un classeur exemple s'impose.