Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Protection comportant des macros

  • Initiateur de la discussion Matthieu
  • Date de début
M

Matthieu

Guest
Bonjour,

J'ai actuellement un fichier xls comportant 3 macros de tri. Ce document doit être protégé.
Or lorsque je le protège le Message suivant apparait:

Erreur d'exécution 1004
La méthode Sort de la classe Range a échoué

Merci par avance
 
A

arnaud

Guest
salut ,

c'est surement que dans ta macro tu fais quelque chose que tu as tout simplement interdit de faire en protégeant ton classeur ou ta feuille ce qui parai logique......

a toi de déprotéger et reprotéger ton classeur avant de faire tes traitements.

pour le classeur par ex ça donne ( avec les options de protection par défaut :

ActiveWorkbook.Protect "tonmotdepasse"

'ton code

ActiveWorkbook.Unprotect "tonmotdepasse"
 
M

Matthieu

Guest
Merci beaucoup pour la rapidité de ta réponse !!!

L'autre petit pb, c'est que je suis zéro en macro... :

ActiveWorkbook.Protect "tonmotdepasse"

'ton code

ActiveWorkbook.Unprotect "tonmotdepasse"


je le colle en amont de la macro tri ?

A la place de "tonmotdepasse", est ce que je mets le mien.

j'ai un peu honte, mais tu me dépannerai bien.

Merci par avance
 
A

arnaud

Guest
re ,

l'exemple que je te donne protège le classeur et non la feuille et avec les option de protection par défaut.( je te le rappelle au cas ou )
Si tu met d'autre option ou ne protège qu'une feuille, utilise l'enregistreur de macro pour récupérer le code celon la protection et les options que tu souhaite mettre.

sinon le code que je te donne il faut le mettre DANS ta macro de tri.
avec comme première ligne de ta macro de tri

ActiveWorkbook.Unprotect "tonmotdepasse"

et en dernière ligne

ActiveWorkbook.Protect "tonmotdepasse"


ps: c vrai j'avais inversé ds mon premire message ^^
et oui tonmotdepasse correspond a ton mot de passe
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…