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 60511 internautes nous ont dit merci ce mois-ci

parfait excellent bravo
Merci !
AllowFiltering:=True m'a sauvé !
Messages postés
17248
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
16 octobre 2020
4 293
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
17248
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
16 octobre 2020
4 293 > 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