Bonjour joemis et à tous les participants du Forum,
Pour pouvoir utiliser le filtre auto. dans un classeur protégé, il te faut intégrer cette commande dans le projet VBA de ton classeur filtré.
Le répertoire concerné est : ThisWorkbook_Open()
' utilisation du Filtre Automatique lors de l'activation de la protection des feuilles d'un classeur
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
Pour accéder a ce répertoire:
- Dès que ton classeur est ouvert. utilise les touche ALT+ F11 pour ouvrir l'utilitaire MVB
- Dans la fenêtre "Projet-VBA Project" Clique sur le + à côté de l'intitulé VBAProject(nom de ton classeur)
- Fait un double clic sur l'intitulé ThisWorkbook
Tu vas voir apparaitre la fenêtre de code.
- Sur cette fenêtre, l'intitulé de gauche indiqué (Général). Selectionne Workbook
- L'intitulé suivant va s'intégrer automatiquement:
Private Sub Workbook_Open()
End Sub
-Il ne te reste plus qu'à insérer le code sus-cité entre ces deux clés de commandes.
-Si tu as plusieurs feuilles dans ton classeur et qu'une seule est filtrée, il te faudra la nominé avant l'execution de la commande.
Voilà ce que tu dois obtenir:
Private Sub Workbook_Open()
Sheets("Nom de ta feuille").Select
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End Sub
En espérant être assez clair.
A plus et bonne pratique, Lionel
