macro et protection feuille Résolu/Fermé

Question

Bonjour, 

Problème de macro simple tri

Deux macros sont crée, une de  tri et l'autre pour remise a zéro du document.
Les cellules concernées sont déverrouillées les deux fonctionnent.

Quand je protège le document => la macro tri ne fonctionne plus ? 

Visual basic => « la methode sort de la classe Range à échoué »
débogage => 	
   Range("B10:O45").Select
    Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("B10").Select
End Sub

Perso je nage...
Merci de m'éclairer.




Configuration: Windows XP / Firefox 26.0

Jcarl · Answer

ci joint le fichier que je tente de faire https://www.cjoint.com/c/CLmo4Vookxv

PHILOU10120 · Answer

Bonjour Jcarl
Voilà la macro pour ôter la protection et la remettre

sub trie()

'déprotéger la feuille en début de macro, avec ces lignes de commande

Sheets("votre feuille").Select
ActiveSheet.Unprotect Password:="votre mot de passe"
Range("B10:O45").Select 
Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlGuess, _ 
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
DataOption1:=xlSortNormal 
Range("B10").Select 
'remettre la protection à la fin de la macro
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Vaucluse · Answer

Bonjour tous

vous avez raison Philou, toutefois:

Activesheet.Unprotect "mot de passe"

suffit, le reste se fait par défaut 

Et pour rester logique, il faut rajouter le mot de passe à la fin

Activesheet.protect "mot de passe"

s"il y en a un bien sur

Petite question: chez moi la protection propose l'option autoriser le tri si on coche dans la, liste, mais cela ne fonctionne pas une fois la feuille protégée. Chez vous ça se passe comment?

crdlmnt
 
Errare humanum est, perseverare diabolicum

Mike-31 · Answer

Bonjour le fil,

C'est joli de mettre à notre disposition un fichier mais ou est le mot de passe pour accéder à la feuille ?

Jcarl · Answer

merci beaucoup PHILOU10120 cela a parfaitement fonctionné mais je n'ai toujours pas compris...

merci

Mike-31 · Answer

Re,

sans toucher aux protections, coller ce code dans un module et l'activer
le tri se fera par la suite sous protection sans problème


Sub tri()
Worksheets("Feuil3").Unprotect Password:="tout"
Worksheets("Feuil3").Protect Password:="tout", UserInterfaceOnly:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True, AllowSorting:=True
End Sub 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Jcarl · Answer

re bonjour est-il possible dans ma feuille de calcul de faire une macro qui renverrais le fichier (rempli) a mon adresse mail

Mike-31 · Answer

Re,

Oui bien sur, mais quel serait le critère déclenchant, un bouton, une saisie dans une cellule ?

Mike-31 · Answer

Re,

peux tu remettre ton fichier en ligne, ton lien n'est plus actif.

je te placerai la macro qui permet le tri sous protection
et l'envoi l'envoi de la feuille par mail

Mike-31 · Answer

Re,

Merci pour l'invitation, mais Liège est un peu loin, je suis région Toulousaine.
Je te regarde le fichier et te le retourne

Mike-31 · Answer

Re,

récupère ton fichier que j'ai modifié à ma manière et qui travaille sous protection avec le mot de passe "tout"
va dans le module2 et recherche en début de code ces 3 lignes que tu dois renseigner entre guillemets
la première ligne adresse destinataire
deuxième ligne éventuellement adresse expéditeur 
et troisième saisir le SMTP du fournisseur d'accès

Const Dest As Variant = "jc.bortoletto@gmail.com" '- adresse mail du destinataire
Const Exped As Variant = "www.xxxxxxx@free.fr" '----- adresse mail de l'expéditeur
Const C_Ent As Variant = "SMTP.free.fr" '---------------- adresse du SMTP" 

pour un envoi anonyme mettre l'adresse destinataire 
Const BCC As Variant = "" '-------------------------- adresse mail destinataire pour envoi BCC ou BCI ou CCI

pour tester utilise mes trois boutons, et si tu préfère recevoir le fichier en PDF il suffit de me le dire

 https://www.cjoint.com/c/CLnlzh7GjGt
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Jcarl · Answer

Là, je suis bouche beee, et forcement nul en regard de ta macro.

Apparemment je n'arrive pas faire fonctionner le bouton envoi.

-Le destinataire c'est moi OK
-l'adresse de l'expéditeur pose problème, en fait j'ai cinq entraîneurs qui tardent toujours a me renvoyer les présences et donc je pensais facilité en automatisant le doc qu'ils doivent me renvoyer, mais bien sûr ils on chacun des adresses différentes.
-SMTP est en rapport avec leur adresse ?

Mike-31 · Answer

Re,

à partir de leur adresse on peut automatiser le SMTP,

pour modifier le code il me faut simplement la liste des fournisseurs d'accès comme FREE, ORANGE etc 

as tu correctement saisi dans les constantes entre guillemets ton adresse et toujours entre guillemet ton SMTP. Si oui il ne doit pas y avoir de problème

quel est ton fournisseur d'accès internet

Jcarl · Answer

moi c'est Gmail => spmt.gmail.com

Mike-31 · Answer

Re,

pour ne pas faire d'erreur, remplace le code du module 2 par celui ci, j'ai rajouté une constante pour le numéro de port qui normalement pour Gmail est le 465
renseigne dans le code la constante que j'ai mis en gras avec l'adresse du destinataire et teste

  
   Const Dest As Variant = "wwwwwww.ww@free.fr" '- adresse mail du destinataire
   
 https://www.cjoint.com/c/CLnwREIOIjo 
 
pour le SMTP Hotmail il faudra contrôler, je crois qu'il n'en existe qu'un SMTP.live.com par contre il existe plusieurs port 25 ou 587 et 995 si tu peux te renseigner auprès des différents expéditeurs  


A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Jcarl · Answer

c'est pas possible je repart a zero 

https://www.cjoint.com/c/CLnxfxx3FXx


Avec le doc tel qu'il est, cela fonctionne à moitié.
Quand je clique sur le bouton envoie, la messagerie  s'ouvre et attend que je tape l'adresse alors que mon adresse devrait simplement être inscrite par défaut c'est tout. 
Je ne comprends plus rien ...

Mike-31 · Answer

Re,

regarde si le fichier te va

https://www.cjoint.com/c/CLoouCVgNJ5

Mike-31 · Answer

Re,

Et bien voila qui marche, j'ai reçu sur une adresse de secours le fichier,

dans le module 1 mettre ton adresse mail et c'est tout bon

ActiveWorkbook.SendMail Recipients:="jc.bortoletto@gmail.com"

Jcarl · Answer

Merci beaucoup cela va j'espère incité les entraîneurs a être plus sérieux pour les présences ils « disent » que cela prend trop de temps.
J'espère qu'ils ne seront pas effrayés par le message d'avertissement pour envoi automatique, mais je suppose qu'il n'y a pas d'autre solution.
Moi j'estime que c'est déjà parfait

Merci encore
Jean-Charles

Pour le cercle gymnique : Enfants du Peuple de Saint-Nicolas (Liège, Belgique)

Macro et protection feuille

19 réponses

Discussions similaires