Bonjour a tous,
je souhaite mettre en libre consultation une feuille sur laquelle j'ai mis
en place les filtres auto, afin de faciliter les recherches. Pour éviter les
fausses manip, je veux protéger cette feuille. Mais dès que je la protège
(j'ai essayé plusieurs options), les filtres deviennent inactifs.
Y a t-il une solution ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Mettre ce code dans le ThisWorbook
Private Sub Workbook_Open() With Sheets("Feuil1") .EnableAutoFilter = True .Protect Contents:=True, UserInterfaceOnly:=True End With End Sub
puis appliquer le filtre sur "Feuil1" Enregistret/Fermer/réouvrir le classeur
AV
"Vince" a écrit dans le message news:
Bonjour a tous, je souhaite mettre en libre consultation une feuille sur laquelle j'ai mis en place les filtres auto, afin de faciliter les recherches. Pour éviter les fausses manip, je veux protéger cette feuille. Mais dès que je la protège (j'ai essayé plusieurs options), les filtres deviennent inactifs. Y a t-il une solution ?
D'avance merci
Mettre ce code dans le ThisWorbook
Private Sub Workbook_Open()
With Sheets("Feuil1")
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
End Sub
puis appliquer le filtre sur "Feuil1"
Enregistret/Fermer/réouvrir le classeur
AV
"Vince" <vincent.laigleNoSpam@free.fr> a écrit dans le message news:
ePuFiHxnDHA.2628@TK2MSFTNGP10.phx.gbl...
Bonjour a tous,
je souhaite mettre en libre consultation une feuille sur laquelle j'ai mis
en place les filtres auto, afin de faciliter les recherches. Pour éviter les
fausses manip, je veux protéger cette feuille. Mais dès que je la protège
(j'ai essayé plusieurs options), les filtres deviennent inactifs.
Y a t-il une solution ?
Private Sub Workbook_Open() With Sheets("Feuil1") .EnableAutoFilter = True .Protect Contents:=True, UserInterfaceOnly:=True End With End Sub
puis appliquer le filtre sur "Feuil1" Enregistret/Fermer/réouvrir le classeur
AV
"Vince" a écrit dans le message news:
Bonjour a tous, je souhaite mettre en libre consultation une feuille sur laquelle j'ai mis en place les filtres auto, afin de faciliter les recherches. Pour éviter les fausses manip, je veux protéger cette feuille. Mais dès que je la protège (j'ai essayé plusieurs options), les filtres deviennent inactifs. Y a t-il une solution ?
D'avance merci
Vince
Merci beaucoup. C'est exactement ce que je voulais.
"AV" a écrit dans le message de news: bnrq6k$tm2$
Mettre ce code dans le ThisWorbook
Private Sub Workbook_Open() With Sheets("Feuil1") .EnableAutoFilter = True .Protect Contents:=True, UserInterfaceOnly:=True End With End Sub
puis appliquer le filtre sur "Feuil1" Enregistret/Fermer/réouvrir le classeur
AV
"Vince" a écrit dans le message news:
Bonjour a tous, je souhaite mettre en libre consultation une feuille sur laquelle j'ai mis
en place les filtres auto, afin de faciliter les recherches. Pour éviter les
fausses manip, je veux protéger cette feuille. Mais dès que je la protège
(j'ai essayé plusieurs options), les filtres deviennent inactifs. Y a t-il une solution ?
D'avance merci
Merci beaucoup. C'est exactement ce que je voulais.
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
bnrq6k$tm2$1@news-reader1.wanadoo.fr...
Mettre ce code dans le ThisWorbook
Private Sub Workbook_Open()
With Sheets("Feuil1")
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
End Sub
puis appliquer le filtre sur "Feuil1"
Enregistret/Fermer/réouvrir le classeur
AV
"Vince" <vincent.laigleNoSpam@free.fr> a écrit dans le message news:
ePuFiHxnDHA.2628@TK2MSFTNGP10.phx.gbl...
Bonjour a tous,
je souhaite mettre en libre consultation une feuille sur laquelle j'ai
mis
en place les filtres auto, afin de faciliter les recherches. Pour éviter
les
fausses manip, je veux protéger cette feuille. Mais dès que je la
protège
(j'ai essayé plusieurs options), les filtres deviennent inactifs.
Y a t-il une solution ?
