Microsoft 365 Liste déroulante auto-filtrante dans une feuille protégée

PatyouExcel · 18 Juin 2021

Bonjour à Toutes et tous,
J'ai programmé en VBA, une liste déroulante auto-filtrante pour des données.
Je l'utilise dans une autre feuille pour choisir des données dans une liste.
J'ai déclaré le format de la cellule où la liste est utilisée avec une protection de cellule déverrouillée pour permettre de choisir

soit en faisant défiler la liste
Soit en auto-filtration (je tape dans la cellule un mot et il me montre uniquement les données de la liste commençant par ce mot)

Lorsque je verrouille ma feuille, je peux faire défiler ma liste et choisir une donnée. Par contre, la fonction auto-filtrante ne fonctionne plus.

Quelqu'un (e) aurait-elle (il), une astuce pour me sortir de ce piège ?

Merci d'avance de votre aide

Phil69970 · 18 Juin 2021

Re

Il faut juste cocher une option en plus dans la liste de la protection de la feuille

*Avec ton code j'ai une erreur au démarrage sur cette ligne

VB:

'Ouverture du classeur sur la feuille "Sommaire"
'Sheets("Sommaire").Activate

Que j'ai désactivé pour supprimer l'erreur

@Phil69970

soan · 18 Juin 2021

@Phil69970 : merci d'avoir confirmé mon post #15 précédent.

Etoto · 18 Juin 2021

Re,

Avez-vous trouvé la liste source Phil et soan ?

soan · 18 Juin 2021

@Etoto

Etoto à dit:
Avez-vous trouvé la liste source @Phil69970 et @soan ?

soan

Etoto · 18 Juin 2021

soan à dit:
@Etoto

Regarde la pièce jointe 1108810

soan

Re,

Je ne pensais pas que tu lisais des BD belges .

EDIT : Je pense que le mieux est de filtrer la liste source si elle est dans un outils tableau, ce qui va automatiquement filtrer la liste de la validation des données.

Phil69970 · 18 Juin 2021

Re

VB:

Private Sub Workbook_Open()
'Affichage d'un message de bienvenu et toujours démarrer sur la page sommaire

'Déclaration de la variable date du jour
Dim DateJour As Date

'Affectation de la variable
DateJour = Now()

'*****
'Ouverture du classeur sur la feuille "Sommaire"
'Sheets("Sommaire").Activate
'Se positionner sur une cellule de stockage particulière
'Range("Q2").Select
Sheets("Sommaire").Range("A1").Select

'******

'Message de Bienvenu et aller ou pas directement à la feuille de recherche
If MsgBox("Bonjour et Bienvenu(e) dans la liste des substances allergisantes ..." & vbCrLf & "Nous sommes, aujourd'hui, le : " _
     & vbCrLf & vbTab & Chr(10) & "              " & Format(DateJour, "dddd dd mmmm yyyy") & _
     Chr(10) & Chr(10) & "Voulez-vous aller directement à la Recherche ?" _
     , vbYesNo + vbInformation, "BIENVENU") = vbYes Then
   
     '*****
     'Ouverture de la feuille "liste complète"
     'Sheets("liste complète").Activate
     Sheets("Liste complète").Select
     '*****
   
End If
   
'*****
'En modifiant une option de la liste de la protection de la feulle
'cela fonctionne donc le code que je t'ai donné ne sert à rien

''Active le mode auto-filtrant d'une liste déroulante en mode protégé
'Sheets("Liste complète").Select
'ActiveSheet.EnableAutoFilter = True
'ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
'******

End Sub

Et voila le fichier

@Phil69970

PatyouExcel · 18 Juin 2021

Etoto à dit:
Re,

Ton fichier est en partie protégé et je n'arrive pas à trouver la liste source à ta validation des données et je sais pas si ton fichier contient des données confidentielles.

EDIT : Elle est où la la liste source ?

Etoto,
Dans mon fichier, il y a une feuille "Feuil2" qui est masquée. Il faut la démasquer, puis afficher les colonnes de A à L (masquées) qui comportent les données et le travail intermédiaire pour les listes auto-filtrantes.
Je t'envoie le fichier pleinement ouvert (trois feuilles), sans protection et colonnes cachées

Etoto · 18 Juin 2021

PatyouExcel à dit:
Etoto,
Dans mon fichier, il y a une feuille "Feuil2" qui est masquée. Il faut la démasquer, puis afficher les colonnes de A à L (masquées) qui comportent les données et le travail intermédiaire pour les listes auto-filtrantes.
Je t'envoie le fichier pleinement ouvert (trois feuilles), sans protection et colonnes cachées

Re,

Ok malheureusement, je ne pourrais t'aider que lundi, donc j'espère que quelqu'un pourra t'aider avant moi.

Phil69970 · 18 Juin 2021

@PatyouExcel

As tu regarder mon post #21 et mon post #16

@Phil69970

PatyouExcel · 18 Juin 2021

P

Phil69970 à dit:
Re

Il faut juste cocher une option en plus dans la liste de la protection de la feuille

Regarde la pièce jointe 1108809

*Avec ton code j'ai une erreur au démarrage sur cette ligne

VB:

'Ouverture du classeur sur la feuille "Sommaire" 'Sheets("Sommaire").Activate

Que j'ai désactivé pour supprimer l'erreur

@Phil69970

Si j'autorise les objets, n'importe qui peut bouger les logos. ce que je ne veux pas. les seules choses autorisées sont :
- Recherche de substances par NOM ou N° CAS, en utilisant les listes avec auto-filtration ou pas
- Visualiser les substances inclus dans les test mixs allergologiques

PatyouExcel · 18 Juin 2021

Phil69970 à dit:

Re

VB:

Private Sub Workbook_Open()
'Affichage d'un message de bienvenu et toujours démarrer sur la page sommaire

'Déclaration de la variable date du jour
Dim DateJour As Date

'Affectation de la variable
DateJour = Now()

'*****
'Ouverture du classeur sur la feuille "Sommaire"
'Sheets("Sommaire").Activate
'Se positionner sur une cellule de stockage particulière
'Range("Q2").Select
Sheets("Sommaire").Range("A1").Select

'******

'Message de Bienvenu et aller ou pas directement à la feuille de recherche
If MsgBox("Bonjour et Bienvenu(e) dans la liste des substances allergisantes ..." & vbCrLf & "Nous sommes, aujourd'hui, le : " _
     & vbCrLf & vbTab & Chr(10) & "              " & Format(DateJour, "dddd dd mmmm yyyy") & _
     Chr(10) & Chr(10) & "Voulez-vous aller directement à la Recherche ?" _
     , vbYesNo + vbInformation, "BIENVENU") = vbYes Then
  
     '*****
     'Ouverture de la feuille "liste complète"
     'Sheets("liste complète").Activate
     Sheets("Liste complète").Select
     '*****
  
End If
  
'*****
'En modifiant une option de la liste de la protection de la feulle
'cela fonctionne donc le code que je t'ai donné ne sert à rien

''Active le mode auto-filtrant d'une liste déroulante en mode protégé
'Sheets("Liste complète").Select
'ActiveSheet.EnableAutoFilter = True
'ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
'******

End Sub

Et voila le fichier

@Phil69970

Je suis parti de ton fichier et en protégeant à nouveau la feuille, cela ne fonctionne toujours pas

PatyouExcel · 18 Juin 2021

Phil69970,

Après avoir protégé la feuille, le première que je sélectionne en filtrant, cela fonctionne.
Quand je veux le réaliser encore une fois pour tester la fiabilité, cela ne fonctionne plus.
Ass-tu une idée ?

Phil69970 · 18 Juin 2021

Re

Pourtant sur le fichier que tu as fourni cela fonctionne il me semble !
Donc c'est à la transposition sur ton fichier que cela ne va pas.
-Soit tu as mal retranscris
-Soit il y a un bout de code que tu n'as pas transmis qui bloque et alors un fichier plus proche de la réalité est nécessaire

PatyouExcel à dit:
Je suis parti de ton fichier et en protégeant à nouveau la feuille,

Il me semble que le fichier transmis est protégé

EDIT
Quand j'ai écris mon post je n'avais pas vu ta dernière réponse

@Phil69970

Phil69970 · 18 Juin 2021

Re

A priori sur le fichier de mon post #21 cela fonctionne je viens de ré-essayer

PatyouExcel à dit:
Après avoir protégé la feuille, le première que je sélectionne en filtrant, cela fonctionne.
Quand je veux le réaliser encore une fois pour tester la fiabilité, cela ne fonctionne plus.

Donc voir mon post #28

@Phil69970

PatyouExcel · 18 Juin 2021

Phil69970,

La feuille protégée fonctionne parce que dans les options de protection, la modification d'objets est autorisée.
Mais je ne veux, absolument, pas que l'utilisateur déplace les logos et autres (pas question de changer la mise en forme de la feuille par l'utilisateur). Donc cette option ne doit pas être prise en compte.

Microsoft 365 Liste déroulante auto-filtrante dans une feuille protégée

PatyouExcel

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

PatyouExcel

XLDnaute Nouveau

Pièces jointes

Etoto

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

PatyouExcel

XLDnaute Nouveau

PatyouExcel

XLDnaute Nouveau

PatyouExcel

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

PatyouExcel

XLDnaute Nouveau

Discussions similaires