[MACRO ] Filtres automatiques excel

re :

ActiveSheet.Unprotect "mdp"

Range("A1:AJ1").Select
Selection.AutoFilter ' Désactive les filtres
Selection.AutoFilter ' Active les filtres
Range("A1").Select

ActiveSheet.Protect "mdp"

astuce pour ne pas coder en dur le mdp :

sur une feuille masqué vérouillé, inscrire
en blanc sur fond blanc le [ mdp ]

Dim mdp As String

mdp = Sheets("feuille_masque_verouille").Range("A1").Value
ActiveSheet.Unprotect mdp
' suite du code
...

Lupin

Merci Lupin, pour m'avoir répondu si vite,
en cherchant un peu j'ai pu résoudre mon problème de filtre automatique verrouillé, voici ce que ca donne :

Private Sub Workbook_Open()

Dim mdp As String

ActiveSheet.Unprotect "mdp"

Range("A2:I2").Select
Selection.AutoFilter
Selection.AutoFilter
Range("A2").Select
Feuil1.EnableAutoFilter = True

ActiveSheet.Protect "mdp", UserInterfaceOnly:=True

End Sub

up

Bonjour,

exemple :

Private Sub Workbook_Open()

    Range("A1:K1").Select
    Selection.AutoFilter    ' Désactive les filtres
    Selection.AutoFilter    ' Active les filtres
    Range("A1").Select

End Sub
'

Lupin

Merci beaucoup Lupin,
mais j'ai encore un ptit souci, car ca marche très bien sur une feuille excel non protégé mais ma feuille sera protégée et dans ce cas ca ne marche pas...

Est ce possible de faire marcher cette macro alors que les cellules ayant le filtre automatique sont protégées ?

d'avance merci

merci beaucoup

mais j'ai encore un ptit souci, tu vas dire que je suis chiant lol

pour l'astuce de la feuille masqué (pour le mot de pass) : impossible d'ôter la protection de la feuille une fois la macro active( par le menu outil, protection, ôter la protection de la feuille, bizarre, car tout marche bien si je le met directement dans la macro sinon il me met que le mot de pass n'est pas valide.
Je peux toujours proteger la macro pour eviter que l'on voit le mot de pass.

Par contre lorsqu'il reprotège la feuille le filtre automatique est verrouillé par la protection, comment puis je faire pour qu'il protège la feuille en autorisant les utilisateurs de cette feuille à utiliser le filtre automatique ?

encore merci

Bonjour ! Je sais que ce post date, mais je suis tombé dessus en cherchant la solution au même problème, et j'ai trouvé une solution "plus élégante":

Sub RemoveFilter()
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
End Sub

Si il y a un filtre dans la feuille, alors supprime le.

En espérant que ça puisse servir à quelqu'un, un jour.