Filtre automatique sur feuille protégée
Résolu/Fermé
A voir également:
- Filtre automatique sur feuille protégée
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Message automatique thunderbird - Guide
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
2 réponses
Utilisateur anonyme
9 juin 2017 à 08:43
9 juin 2017 à 08:43
Bonjour,
Merci pour votre réponse, seulement dans la fenêtre d'option qui s'affiche, j'ai uniquement 3 possibilités (à cocher) :
- Contenu
- Objets
- Scénarios
Laquelle correspond au filtre automatique ?
Merci pour votre réponse, seulement dans la fenêtre d'option qui s'affiche, j'ai uniquement 3 possibilités (à cocher) :
- Contenu
- Objets
- Scénarios
Laquelle correspond au filtre automatique ?
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 418
Modifié le 8 juin 2017 à 16:44
Modifié le 8 juin 2017 à 16:44
Bonjour
lors de la protection de la feuille, dans la fenêtre d'option qui s'affiche:
chercher la ligne "utiliser les filtres automatiques"
et cochez la
crdlmnt
La qualité de la réponse dépend surtout de la clarté de la question, merci!
lors de la protection de la feuille, dans la fenêtre d'option qui s'affiche:
chercher la ligne "utiliser les filtres automatiques"
et cochez la
crdlmnt
La qualité de la réponse dépend surtout de la clarté de la question, merci!
9 juin 2017 à 09:20
suffit de tester une par une, sans être sur toutefois que l'option soit incluse en 2000
crdlmnt
9 juin 2017 à 09:47
9 juin 2017 à 10:48
Private Sub Workbook_Open()
With Sheets("Feuil1")
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
End Sub
texte à coller dans le menu visual basic, dossier "this workbook" en plaçant le nom de la feuille à protéger entre guillemets à la place de Feuil1
(je ne connais plus les commandes qui affichent VBA en 2000, aujourd'hui, c'est touche Alt + touche F11)
A part ça, je ne vois rien d'autre
crdlmnt
9 juin 2017 à 11:47
Pour plus de simplicité, j'ai donc saisi le code de cette manière :
Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
End Sub
Ensuite, j'ai réactivé la protection de la feuille via le menu Outils en insérant un mot de passe.
Merci pour votre aide !