Filtre non protégés

[cora]

Bonjour à tous,
J'ai un tableau avec une liste de données, auquel j'ai rajouté des filtres automatiques.
Ma feuille et protégée par un mot de passe
Lorsque j'active une macro les filtres sont protégés alors que je souhaiterais qu'ils soient utilisable.
je précise qu'avant chaque procédure j'ai bien saisi
activesheet.unprotect("mot de passe")
et à la fin avant end sub
activesheet.protect("mot de passe")
J'ai aussi au moment de protéger la feuille j'ai coché utiliser le filtre automatique et pourtant ça ne fonctionne pas..
Merci pour votre aide

 

[Pierrot93]

Re : Filtre non protégés

Bonjour Cora

pas sur d'avoir bien compris ton problème... essaye peut être en protégeant ta feuille par vba en utilisant l'argument "userInterfaceOnly", permet d'intervenir par macro sur feuille protégée.

Code ci dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur...

Option Explicit
Private Sub Workbook_Open()
Feuil1.Protect "toto", AllowFiltering:=True, userInterfaceOnly:=True
End Sub

bonne journée
@+

 

[cora]

Re : Filtre non protégés

ça fonctionne à l'ouverture mais lorsque j'envoi ma macro ça beugue..
Mais j'essaierais à nouveau cette après midi et je ferais suite
Merci à plus tard.