Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuill e.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Ra nge("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscendi ng,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlT opToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuill e.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Ra nge("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscendi ng,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlT opToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuill e.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Ra nge("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscendi ng,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlT opToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuill e.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Ra nge("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscendi ng,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlT opToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuill e.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Ra nge("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscendi ng,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlT opToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuill e.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Ra nge("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscendi ng,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlT opToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
A l'occasion de ton message, je me suis livré au petit exercice suivant
qui illustre une possibilité amusante de supprimer la protection d'une
ou plusieurs feuilles sans en connaitre les mots de passe. J'aimerais
bien que d'autres contributeurs tentent l'expérience pour voir s'ils
obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une feuille
ou toutes les feuilles.Enregistrer ce classeur et appelons le toto1.xls
par exemple.
Creer un autre classeur et écrire dans un module standard de cet autre
classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y avait
des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de Header
qui déclenche à tous les coups la déprotection de la feuille qu'il y ait
ou non des données sur les feuilles.Bien sur , cette proc ne crée aucun
problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout hasard,
je suis sous Excel 2000 avec XP.
A+Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris
soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
A l'occasion de ton message, je me suis livré au petit exercice suivant
qui illustre une possibilité amusante de supprimer la protection d'une
ou plusieurs feuilles sans en connaitre les mots de passe. J'aimerais
bien que d'autres contributeurs tentent l'expérience pour voir s'ils
obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une feuille
ou toutes les feuilles.Enregistrer ce classeur et appelons le toto1.xls
par exemple.
Creer un autre classeur et écrire dans un module standard de cet autre
classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y avait
des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de Header
qui déclenche à tous les coups la déprotection de la feuille qu'il y ait
ou non des données sur les feuilles.Bien sur , cette proc ne crée aucun
problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout hasard,
je suis sous Excel 2000 avec XP.
A+
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris
soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
A l'occasion de ton message, je me suis livré au petit exercice suivant
qui illustre une possibilité amusante de supprimer la protection d'une
ou plusieurs feuilles sans en connaitre les mots de passe. J'aimerais
bien que d'autres contributeurs tentent l'expérience pour voir s'ils
obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une feuille
ou toutes les feuilles.Enregistrer ce classeur et appelons le toto1.xls
par exemple.
Creer un autre classeur et écrire dans un module standard de cet autre
classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y avait
des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de Header
qui déclenche à tous les coups la déprotection de la feuille qu'il y ait
ou non des données sur les feuilles.Bien sur , cette proc ne crée aucun
problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout hasard,
je suis sous Excel 2000 avec XP.
A+Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris
soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent l'expérience
pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons le
toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet autre
classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette proc
ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout hasard,
je suis sous Excel 2000 avec XP.
A+Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris
soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent l'expérience
pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons le
toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet autre
classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette proc
ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout hasard,
je suis sous Excel 2000 avec XP.
A+
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris
soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent l'expérience
pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons le
toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet autre
classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette proc
ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout hasard,
je suis sous Excel 2000 avec XP.
A+Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris
soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour
après réalisation de la demande
erreur d'exécution 1004
mot de passe invalide
excel version 2003
salutations
RGIBonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent l'expérience
pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons le
toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet autre
classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette proc
ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout hasard,
je suis sous Excel 2000 avec XP.
A+Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris
soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour
après réalisation de la demande
erreur d'exécution 1004
mot de passe invalide
excel version 2003
salutations
RGI
Bonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent l'expérience
pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons le
toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet autre
classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette proc
ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout hasard,
je suis sous Excel 2000 avec XP.
A+
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris
soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour
après réalisation de la demande
erreur d'exécution 1004
mot de passe invalide
excel version 2003
salutations
RGIBonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent l'expérience
pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons le
toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet autre
classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette proc
ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout hasard,
je suis sous Excel 2000 avec XP.
A+Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris
soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Merci pour le test. Et avec la deuxième possibilité ? Peut-être que ca
ne marche que pour Excel 2000.En tout cas , ca marche pour le mien et
celui que j'ai au bureau.
A+Bonjour
après réalisation de la demande
erreur d'exécution 1004
mot de passe invalide
excel version 2003
salutations
RGIBonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent
l'expérience pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons
le toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet
autre classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette
proc ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout
hasard, je suis sous Excel 2000 avec XP.
A+Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai
pris soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' :
La méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Merci pour le test. Et avec la deuxième possibilité ? Peut-être que ca
ne marche que pour Excel 2000.En tout cas , ca marche pour le mien et
celui que j'ai au bureau.
A+
Bonjour
après réalisation de la demande
erreur d'exécution 1004
mot de passe invalide
excel version 2003
salutations
RGI
Bonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent
l'expérience pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons
le toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet
autre classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette
proc ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout
hasard, je suis sous Excel 2000 avec XP.
A+
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai
pris soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' :
La méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Merci pour le test. Et avec la deuxième possibilité ? Peut-être que ca
ne marche que pour Excel 2000.En tout cas , ca marche pour le mien et
celui que j'ai au bureau.
A+Bonjour
après réalisation de la demande
erreur d'exécution 1004
mot de passe invalide
excel version 2003
salutations
RGIBonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent
l'expérience pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons
le toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet
autre classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette
proc ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout
hasard, je suis sous Excel 2000 avec XP.
A+Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai
pris soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' :
La méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
idem
erreur 1004
RGIMerci pour le test. Et avec la deuxième possibilité ? Peut-être que ca
ne marche que pour Excel 2000.En tout cas , ca marche pour le mien et
celui que j'ai au bureau.
A+Bonjour
après réalisation de la demande
erreur d'exécution 1004
mot de passe invalide
excel version 2003
salutations
RGIBonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent
l'expérience pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons
le toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet
autre classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette
proc ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout
hasard, je suis sous Excel 2000 avec XP.
A+Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai
pris soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' :
La méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
idem
erreur 1004
RGI
Merci pour le test. Et avec la deuxième possibilité ? Peut-être que ca
ne marche que pour Excel 2000.En tout cas , ca marche pour le mien et
celui que j'ai au bureau.
A+
Bonjour
après réalisation de la demande
erreur d'exécution 1004
mot de passe invalide
excel version 2003
salutations
RGI
Bonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent
l'expérience pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons
le toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet
autre classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette
proc ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout
hasard, je suis sous Excel 2000 avec XP.
A+
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai
pris soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' :
La méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
idem
erreur 1004
RGIMerci pour le test. Et avec la deuxième possibilité ? Peut-être que ca
ne marche que pour Excel 2000.En tout cas , ca marche pour le mien et
celui que j'ai au bureau.
A+Bonjour
après réalisation de la demande
erreur d'exécution 1004
mot de passe invalide
excel version 2003
salutations
RGIBonjour,
A l'occasion de ton message, je me suis livré au petit exercice
suivant qui illustre une possibilité amusante de supprimer la
protection d'une ou plusieurs feuilles sans en connaitre les mots de
passe. J'aimerais bien que d'autres contributeurs tentent
l'expérience pour voir s'ils obtiennent la même chose.
Créer un classeur puis mettre une protection à la main sur une
feuille ou toutes les feuilles.Enregistrer ce classeur et appelons
le toto1.xls par exemple.
Creer un autre classeur et écrire dans un module standard de cet
autre classeur la proc suivante (qui représente le cas général)
sub otemdp
Application.ScreenUpdating = False
With Workbooks("toto1.xls")
For Each sh In .Worksheets
With sh
.Protect password:="", userinterfaceonly:=True
.Range("A1:A2").Sort Key1:=.Range("A2"), Header:=xlYes
End With
Next
End With
Application.ScreenUpdating = True
end sub
Exécuter les instructions précédentes.
Quand on exécute cette procédure, l'ensemble des feuilles où il y
avait des mots de passes sont déprotégées. Amusant, non !!
Toute l'astuce se situe dans l'utilisation successive de
Userinterfaceonly passée à True puis de la méthode Sort associée au
paramètre Header avec la valeur xlYes qui est la seule valeur de
Header qui déclenche à tous les coups la déprotection de la feuille
qu'il y ait ou non des données sur les feuilles.Bien sur , cette
proc ne crée aucun problème si certaines feuilles ne sont pas protégées
Si vous constatez la même chose , merci de le signaler. A tout
hasard, je suis sous Excel 2000 avec XP.
A+Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma
feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai
pris soin de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"),
Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' :
La méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
Désactiver la protection:
ActiveSheet.Unprotect Password;=""
Tri
ActiveSheet.Protect Password;=""
JB
On 23 fév, 09:22, Crystalle
wrote:Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
Désactiver la protection:
ActiveSheet.Unprotect Password;=""
Tri
ActiveSheet.Protect Password;=""
JB
On 23 fév, 09:22, Crystalle <Crysta...@discussions.microsoft.com>
wrote:
Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.
Bonjour,
Désactiver la protection:
ActiveSheet.Unprotect Password;=""
Tri
ActiveSheet.Protect Password;=""
JB
On 23 fév, 09:22, Crystalle
wrote:Bonjour,
J'ai mis une protection par mot de passe sur le classeur et sur ma feuille.
Je voudrai faire un tri sur les colonnes A:G par une macro. J'ai pris soin
de déverrouiller ces colonnes auparavant.
Voilà la formule :
Columns("A:G").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("G2"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Lorsque je lance la macro, j'obtiens l'erreur d'exécution '1004' : La
méthode Sort de la classe Range a échoué.
Savez-vous quel est le problème ? Merci de votre aide.