OVH Cloud OVH Cloud

filtre automatique sur feuille protégée

3 réponses
Avatar
Gg
Bonjour!

g une question concernant les filtres automatiques sur une=20
feuille prot=E9g=E9e. Mon filtre marche mais d=E8s lors que je=20
prot=E8ge la feuille, plus aucun choix n'apparait quand=20
jessaye de cliquer sur la case ayant le filtre.
On m'a propos=E9 la solution:

worksheets("toto").EnableAutoFilter=3Dfalse
worksheets("toto").protect

mais ca ne donne pas de resultat ... et il faut absolument=20
que cette feuille soit prot=E9g=E9e pour que l'utilisateur=20
n'ai pas acces =E0 certaines cellules!!
si qqn =E0 l'astuce.......... MERCI d'avance!

3 réponses

Avatar
AV
On m'a proposé la solution:
worksheets("toto").EnableAutoFilterúlse
worksheets("toto").protect
mais ca ne donne pas de resultat ...


Mais si, mais si !
Il faut mettre les instructions dans le "Workbook_Open" de ThisWorkbook ou dans
le "Worksheet_Activate" de la feuille...ou...
Il faut que tu appliques ton filtre sur la feuille > tu enregistres > tu fermes
tu réouvres


AV

Avatar
isabelle
bonjour Gg,

il y a un exemple sur ce lien,

http://groups.google.com/groups?hl=fr&lr=&ie=UTF-8&threadm=eyOkAf1dAHA.2188%40tkmsftngp02&rnum=2&prev=/groups%3Fq%3DEnableAutoFilter%253Dfalse%2Bgroup:microsoft.public.fr.excel%26hl%3Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DeyOkAf1dAHA.2188%2540tkmsftngp02%26rnum%3D2

isabelle


Bonjour!

g une question concernant les filtres automatiques sur une
feuille protégée. Mon filtre marche mais dès lors que je
protège la feuille, plus aucun choix n'apparait quand
jessaye de cliquer sur la case ayant le filtre.
On m'a proposé la solution:

worksheets("toto").EnableAutoFilterúlse
worksheets("toto").protect

mais ca ne donne pas de resultat ... et il faut absolument
que cette feuille soit protégée pour que l'utilisateur
n'ai pas acces à certaines cellules!!
si qqn à l'astuce.......... MERCI d'avance!


Avatar
AV
Reprenons :
Appliquer le filtre > mettre le code suivant dans le module de Thisworkbook

Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True
Feuil1.EnableSelection = xlUnlockedCells
End Sub

Enregistrer > Fermer > Réouvrir


AV