VBA et Activation filtres automatiques Excel

Résolu/Fermé
Signaler
-
 fred545 -
Bonjour,

J'utilise ce code afin de mettre en valeur une ligne dans une tableau excel.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("feuil1").Unprotect Password = "MdP"
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 27
Worksheets("feuil1").Protect Password = "MdP"
End With
End Sub

Le tableau est protégé, c'est la, la source du problème :

Je n'arrive pas a utiliser les filitres automatiques des lors que la feuille est protéger!


Quelqu'un a t'il une idée, une solution?

Merci pour votre aide, Stéphane

3 réponses

Bonsoir,
Worksheets("feuil1").Protect Password = "MdP"

ajoutez ceci à la place de la ligne de commande, ci dessus, de façon à autoriser l'utilisation du filtre personnalisé :
ActiveSheet.Protect Password:="MdP", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
A+
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

parfait excellent bravo
Merci !
AllowFiltering:=True m'a sauvé !
Messages postés
17713
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 décembre 2021
4 861
Salut,

insére au début de ta macro la déprotection, et en fin n'oublies pas la reprotection, sinon les modif de ta page sont impossible et filtre automatique impossible à utiliser.
Par contre si tu déverrouille une colonne de cellule, la fonction tri est accèssible si dans les conditions de protection de la feuille de calcul tu as coché tri

A+
Merci pour ta reponse Mike

Malheureusement, cela ne m'apporte pas de solution.

Le code décrit ci-avant verrouille la page à chaque deplacement de cellule sans me demander les options de verrouillage.

J'imaginais que celle-ci peuvent être configurer via une commande VBA incluse dans le code?!?

Est ce possible?


Stéphane
Messages postés
17713
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 décembre 2021
4 861 > Transalp31
Mets sur le forum avec ce lien un exemple sans données confidentielles pour ne pas se prendre la tête et se faire une idée précise de tes attentes

https://www.cjoint.com/

A+
Bonjour tout le monde,

ActiveSheet.Protect Password:="MdP", AllowFiltering:=True suffit pour l'utilisation des filtres automatiques.

Bonne journée,

MounsS