Filtre auto dans feuil protégé XCell 2000

[XC2ONE]

Bonjour le Forum,

Je souhaiterais pouvoir utiliser les filtres automatiques dans une feuille protégée dans EXCEL 2000.

En effet, contrairement à Excel 2003, je n'ai pas l'option à cocher dans la fenetre Protection : Utiliser les filtres automatiques.

Donc mes feuilles ne fonctionnent pas d'une version à l'autre.

Comment contourner le problème ?

Merci par avance

Bonne fin de journée

XC2ONE

 

[Papy Novice]

Bonjour XC2ONE
As-tu vérifié que la cellule recevant ta liste est déprotégée
Garde courage
Jean

 

[CBernardT]

Bonjour Xc2one,

Une méthode consiste à déprotéger, exécuter la macro avec les filtres automatiques puis de reprotéger;

1- s'il y a plusieurs feuilles, la macro est du style :

Sub DeproMacroRepro()
Dim i As Byte

'Passer les feuilles les unes après les autres
For i = 1 To Sheets.Count
Sheets(i).Activate
' Deprotection de la feuille active, le mot de passe est '***'
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect Password:='***'
End With
'
'Mettre ici la commande de la Macro à exécuter !
'
' Reprotection de la feuille active avec le même mot de passe '***'
With ActiveSheet
.EnableSelection = xlNoSelection
.Protect Password:='***', Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End With
Next i
End Sub

2- S'il n'y a qu'une feuille :

Sub DeproMacroRepro()
' Deprotection de la feuille, le mot de passe est '***'
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect Password:='***'
End With
'
'Mettre ici la commande de la Macro à exécuter !
'
' Reprotection de la feuille avec le même mot de passe '***'
With ActiveSheet
.EnableSelection = xlNoSelection
.Protect Password:='***', Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End With
End Sub

Cordialement

Bernard