Tri colonne avec filtre

[gibtoul]

bonjour

Je souhaite faire un tri sur des colonnes avec la fonction filtre automatique activé
Cela fonctionne.
Par contre je suis obligé de protegé mon fichier (mdp "toto) avec la macro suivante :

Private Sub Workbook_Open()

Feuil1.EnableAutoFilter = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True, Password:="toto"

End Sub

Avec cette protection la possibilité de faire le tri reste inactive.

Est-il possible de contourner cette restriction du à la protection ?

Je vous joins le fichier pour exemple

merci pour votre aide

a+

 

[Pierrot93]

Re : Tri colonne avec filtre

Bonjour,

pas ouvert ton fichier, mais modifie peut être la protection ainsi :

Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True, Password:="toto", AllowSorting:=True
End Sub

bonne journée
@+

 

[gibtoul]

Re : Tri colonne avec filtre

Bonsoir Pierrot

Je te remercie pour ta reponse. Mais j'ai un message d'erreur excel me demandant de deproteger ma feuille ?

a bientot

 

[Pierrot93]

Re : Tri colonne avec filtre

Re,

modifie comme suit :

Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True, Password:="toto" _
    , AllowSorting:=True, AllowFiltering:=True
End Sub

 

[gibtoul]

Re : Tri colonne avec filtre

Bonjour Pierrot
J'ai toujours une erreur excel.
J'ai crée une petite macro pour resoudre mon probleme

merci encore pour ton aide

bon week end

a+

 

[Pierrot93]

Re : Tri colonne avec filtre

Bonjour,

A noter qu'il faut tout de même que les cellules en question soient dévérouillées, voir onglet protection dans le format des cellules..

bonne soirée
@+i