Pble filtre sur feuille protégée

[Chris78]

Bonjour à tous,

J'ai protégé une feuille excel afin que les différents utilisateurs ne puissent pas modifier mes formules dans les cellules.

J'ai dévérouillé les colonnes de titres qui comportent un filtre automatique. Malgré cela, losque la feuille est protégée, le bouton du filtre apparaît toujours mais par contre, il n'est plus possible de l'utiliser.

Si certains ont une explication, je suis preneuse !

A l'avance merci pour votre aide et bonne journée à tous.
Chris78

 

[wilfried_42]

Re : Pble filtre sur feuille protégée

Bonjour Chris

Tu as des colonnes de verouillées, donc chaque ligne contient des cellules verouillées verouillées, Donc ne pouvant agir sur celles ci, ca ne marche pas

Je suis sur excel XP, Dans la protection des feuilles, il y a un critere
utiliser les filtre automatiques : Cocher cette case

 

[RENAUDER]

Re : Pble filtre sur feuille protégée

Bonjour,

J'ai testé sur une feuille protégée et cela semble marcher
J'ai accès aux boutons du filtre mais pas aux données
A mettre dans le module ThisWorkbook

Private Sub Workbook_Open()
' Pour utiliser le filtre sur une feuille protégée :
    Sheets("Codes").EnableAutoFilter = True
    Sheets("Codes").Protect Contents:=True, UserInterfaceOnly:=True
End Sub

 

[Cousinhub]

Re : Pble filtre sur feuille protégée

Bonjour Chris, wilfried, eric, le forum

en complément, sous Excel 2000, peux-tu quand même sélectionner la ligne des titres comportant tes filtres?
Sous 2003, on ne peut pas, car il existe une option "Autoriser les filtres automatiques" lorsqu'on protège une feuille.
si tu peux sélectionner cette ligne, tu peux rajouter un évènement de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Row = 1 Then
    ActiveSheet.Unprotect "Toto"
Else
    ActiveSheet.Protect "Toto"
End If
End Sub

Si la ligne comportant les filtres est la ligne 1 (Target.Row = 1), ou autrement, si tu peux sélectionner la cellule H1 par exemple, tu remplaces (Target.Row = 1) par (Target.Address = "$H$1").
Du bidouillage, mais ça fonctionne

 

[Chris78]

Re : Pble filtre sur feuille protégée

Je vous remercie pour vos réponses.

Par contre, je ne suis pas suffisamment calée pour les comprendre (This Workbook ???). Et pourtant je ne suis pas blonde !!

Je me pencherais sérieusement sur ce problème dans la journée ou ce soir et je vous tiens au courant.

Merci encore
Chris