j'ai un petit souci et j'ai besoin de vos lumières.
Je souhaite protéger une feuille tout en laissant la possibilité de faire
des tris...
et là vous allez me dire => facile, dans Protection tu coches la petite case
=> autoriser le tri et c'est bon...
eh bah non... je le fais et il ne m'autorise pas le tri (alors que pour le
filtre automatique je n'ai pas de problème)
Aurais-je oublier de faire quelque chose ?
voici ce que ça donne dans ma macro VBA:
ActiveSheet.Protect Password:="TOTO", DrawingObjects:=False, Contents:=True,
Scenarios:= _
False, AllowSorting:=True
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
bonjour,
Private Sub Workbook_Open() vérife si filtre , et en met un en oeuvre s'il n'y en a pas With Worksheets("nom de feuille") If Not .AutoFilterMode Then .Range("A1").AutoFilter End If .EnableAutoFilter = True .Protect Password:="password", _ Contents:=True, UserInterfaceOnly:=True End With End Sub
à adapter si tu veux laisser la main à l'utilisateur pour qu'il filtre sur la colonne qu'il souhaite.Enlever alors le .range("A1").autofilter
Bonjour,
j'ai un petit souci et j'ai besoin de vos lumières.
Je souhaite protéger une feuille tout en laissant la possibilité de faire des tris...
et là vous allez me dire => facile, dans Protection tu coches la petite case => autoriser le tri et c'est bon...
eh bah non... je le fais et il ne m'autorise pas le tri (alors que pour le filtre automatique je n'ai pas de problème)
Aurais-je oublier de faire quelque chose ?
voici ce que ça donne dans ma macro VBA: ActiveSheet.Protect Password:="TOTO", DrawingObjects:úlse, Contents:=True, Scenarios:= _ False, AllowSorting:=True
et pourtant il ne AllowSort pas du tout :-).
Merci beaucoup de votre aide.
Sébastien.
bonjour,
Private Sub Workbook_Open()
vérife si filtre , et en met un en oeuvre s'il n'y en a pas
With Worksheets("nom de feuille")
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub
à adapter si tu veux laisser la main à l'utilisateur pour qu'il filtre sur
la colonne qu'il souhaite.Enlever alors le .range("A1").autofilter
Bonjour,
j'ai un petit souci et j'ai besoin de vos lumières.
Je souhaite protéger une feuille tout en laissant la possibilité de faire
des tris...
et là vous allez me dire => facile, dans Protection tu coches la petite case
=> autoriser le tri et c'est bon...
eh bah non... je le fais et il ne m'autorise pas le tri (alors que pour le
filtre automatique je n'ai pas de problème)
Aurais-je oublier de faire quelque chose ?
voici ce que ça donne dans ma macro VBA:
ActiveSheet.Protect Password:="TOTO", DrawingObjects:úlse, Contents:=True,
Scenarios:= _
False, AllowSorting:=True
Private Sub Workbook_Open() vérife si filtre , et en met un en oeuvre s'il n'y en a pas With Worksheets("nom de feuille") If Not .AutoFilterMode Then .Range("A1").AutoFilter End If .EnableAutoFilter = True .Protect Password:="password", _ Contents:=True, UserInterfaceOnly:=True End With End Sub
à adapter si tu veux laisser la main à l'utilisateur pour qu'il filtre sur la colonne qu'il souhaite.Enlever alors le .range("A1").autofilter
Bonjour,
j'ai un petit souci et j'ai besoin de vos lumières.
Je souhaite protéger une feuille tout en laissant la possibilité de faire des tris...
et là vous allez me dire => facile, dans Protection tu coches la petite case => autoriser le tri et c'est bon...
eh bah non... je le fais et il ne m'autorise pas le tri (alors que pour le filtre automatique je n'ai pas de problème)
Aurais-je oublier de faire quelque chose ?
voici ce que ça donne dans ma macro VBA: ActiveSheet.Protect Password:="TOTO", DrawingObjects:úlse, Contents:=True, Scenarios:= _ False, AllowSorting:=True
et pourtant il ne AllowSort pas du tout :-).
Merci beaucoup de votre aide.
Sébastien.
isabelle
bonjour Sebastien,
il faut que les cellules a trier soient déverrouillées
isabelle
Bonjour,
j'ai un petit souci et j'ai besoin de vos lumières.
et là vous allez me dire => facile, dans Protection tu coches la petite case => autoriser le tri et c'est bon...
eh bah non... je le fais et il ne m'autorise pas le tri (alors que pour le filtre automatique je n'ai pas de problème)
Aurais-je oublier de faire quelque chose ?
voici ce que ça donne dans ma macro VBA: ActiveSheet.Protect Password:="TOTO", DrawingObjects:úlse, Contents:=True, Scenarios:= _ False, AllowSorting:=True
et là vous allez me dire => facile, dans Protection tu coches la petite case
=> autoriser le tri et c'est bon...
eh bah non... je le fais et il ne m'autorise pas le tri (alors que pour le
filtre automatique je n'ai pas de problème)
Aurais-je oublier de faire quelque chose ?
voici ce que ça donne dans ma macro VBA:
ActiveSheet.Protect Password:="TOTO", DrawingObjects:úlse, Contents:=True,
Scenarios:= _
False, AllowSorting:=True
et là vous allez me dire => facile, dans Protection tu coches la petite case => autoriser le tri et c'est bon...
eh bah non... je le fais et il ne m'autorise pas le tri (alors que pour le filtre automatique je n'ai pas de problème)
Aurais-je oublier de faire quelque chose ?
voici ce que ça donne dans ma macro VBA: ActiveSheet.Protect Password:="TOTO", DrawingObjects:úlse, Contents:=True, Scenarios:= _ False, AllowSorting:=True
et là vous allez me dire => facile, dans Protection tu coches la petite case => autoriser le tri et c'est bon...
eh bah non... je le fais et il ne m'autorise pas le tri (alors que pour le filtre automatique je n'ai pas de problème)
Aurais-je oublier de faire quelque chose ?
voici ce que ça donne dans ma macro VBA: ActiveSheet.Protect Password:="TOTO", DrawingObjects:úlse, Contents:=True, Scenarios:= _ False, AllowSorting:=True
et là vous allez me dire => facile, dans Protection tu coches la petite case
=> autoriser le tri et c'est bon...
eh bah non... je le fais et il ne m'autorise pas le tri (alors que pour le
filtre automatique je n'ai pas de problème)
Aurais-je oublier de faire quelque chose ?
voici ce que ça donne dans ma macro VBA:
ActiveSheet.Protect Password:="TOTO", DrawingObjects:úlse, Contents:=True,
Scenarios:= _
False, AllowSorting:=True
et là vous allez me dire => facile, dans Protection tu coches la petite case => autoriser le tri et c'est bon...
eh bah non... je le fais et il ne m'autorise pas le tri (alors que pour le filtre automatique je n'ai pas de problème)
Aurais-je oublier de faire quelque chose ?
voici ce que ça donne dans ma macro VBA: ActiveSheet.Protect Password:="TOTO", DrawingObjects:úlse, Contents:=True, Scenarios:= _ False, AllowSorting:=True
