Filtre et feuille protégée

  • Initiateur de la discussion Initiateur de la discussion gourdin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gourdin

XLDnaute Impliqué
Bonjour

Avec Excel 2000, j'ai utlisé ces lignes de code (dans
This workbook etc..) et qui me permettent d'utiliser les filtres sur ma feuille protégée :

Private Sub Workbook_Open()
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End Sub

C'est parfait sur une seule feuille mais celà ne fonctionne pas sur une/des autres feuilles protégées du fichier avec filtre.

Quel code pour que cela fonctionne sur toutes les feuilles en même temps que je souhaite ?

Merci
 
Re : Filtre et feuille protégée

Bonjour Gourdin

pour que cela fonctionne sur toutes les feuilles, modifies comme suit :

Code:
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Workbooks
    ws.EnableAutoFilter = True
    ws.Protect contents:=True, userInterfaceOnly:=True
Next ws
End Sub

bonne fin d'après midi
@+
 
Re : Filtre et feuille protégée

Bonsoir,

j'ai essayé le code mais cela ne fonctionne pas

il affiche un message de débogage à la ligne :

"For Each ws In Workbooks"

voir fichier joint pour exemple

Merci
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour