VBA et Activation filtres automatiques Excel

Résolu
Transalp31 -  
 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
A voir également:

3 réponses

Réponse 1 / 3
minoslha
 
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
mugen808
 
parfait excellent bravo
0
Tholsadum
 
Merci !
AllowFiltering:=True m'a sauvé !
0
fred545
 
malin...
0
Réponse 2 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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+
0
Transalp31
 
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
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135 > 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+
0
Réponse 3 / 3
MounsS
 
Bonjour tout le monde,

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

Bonne journée,

MounsS
0