Filtre automatique sur feuille protégée

[joemis]

Bonjour à tous,
Sous Excel 97:
Sur une feuille protégée, le filtre automatique ne fonctionne pas. Comment résoudre ce problème (d'autant plus que le fichier est partagé en réseau)
Merci d'avance !

 

[Lionel]

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

 

[@+Thierry]

Bonjour Lionel, Joemis, qui n'est plus revenu, le Forum

En complément d'info pour cet excellement didactitiel de Lionel voici pour la méthode ThisWorkBook /// Private Sub Workbook_Open()



et pour des infos sur "userInterfaceOnly" voir ce lien (qui en contient d'autres) :

Lien supprimé

Bon allez je file, bon dimanche
@+Thierry

 

[joemis]

Comme tu le sais, j'ai réussi ta manoeuvre. Mais je rencontre un autre problème: dès que je partage ce fichier, lje n'ai pas accès au filtrage automatique. T'as une idée à ce sujet ?