Concours de pétanque

Bonjour JCB,

Merci pour l'explication, c'est maintenant plus clair pour moi!
Cordialement.
Dodo

Un exemple sur une de tes macros
Sub Macro12()
'
' Macro12 Macro
'
'ActiveSheet.Unprotect"marius" tu as mis un' en début de ligne qu'il faut supprimer
' Application.ScreenUpdating=False tu as mis un' en début de ligne qu'il faut supprimer
ActiveWindow.SmallScroll ToRight:=13
Range("O1").Select
Application.ScreenUpdating = True
'ActiveSheet.Protect"marius" tu as mis un' en début de ligne qu'il faut supprimer

End Sub

--Idem pour toutes tes macros

Cordialement

Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise

Bonjour JCB,

Merci pour ta réponse rapide.Le fichier fonctionne mais je n'ai pas trouvé, ni compris ce que tu as modifié!
Peux tu,stp, me préciser?
Cordialement.
Dodo.

Bonjour
A tester
https://www.cjoint.com/c/JCdm5MXXqRf
Cordialement

Via,

J'ai oublié le MdP: marius.
Cordialement.
Dodo

Bonjour Via,
J'ai de nouveau un pb avec la protection des fichiers.En pièce jointe un fichier dont les macros fonctionnent très bien, dès lors que je le protège,bug!!
J'ai vérifié mes macros, je ne trouve rien d'anormal.
Peux tu m'aider de nouveau sur ce pb?
Cordialement
Dodo
https://mon-partage.fr/f/gyZryWq0/

Bonsoir Via,

Trop fort!!
Merci et bon Weekend
Cordialement.
Dodo.

Bonjour Dodo

Comme ceci ?
https://mon-partage.fr/f/u33SvO9A/

Cdlmnt
Via

Bonsoir Via,

Désolé mais j'ai encore un pb avec un fichier que je te joins avec quelques explications si tu as encore de la ressource à m'accorder!

https://mon-partage.fr/f/K5tWVqNf/

Cordialement
Dodo.

Bonsoir Via,

Exact et c'est parfait comme tu me dis!
Merci encore et encore.......
Bonne soirée;
Dodo.

Bonsoir Dodo

1) tu as bien mis un mdp pour VBA mais tu as omis de cocher juste au-dessus Verrouiller le projet pour affichage

2) Après cela pas possible d'accéder au VBA mais le nom des macros restent visibles dans la fenêtre Macro de l'onglet Développeur et peuvent etre lancées de là (pas forcement gênant) mais si tu veux qu'elles n'apparaissent pas il faut les déclarer private dans ton code VBA :
Private Sub Macro1() etc

Cdlmt
Via

Bonsoir Via,

C'est encore moi le pétanqueur!

J'ai fait un fichier avec mot de passe "marius" pour essai afin de ne pas toucher aux macros(par principe).Il fonctionne bien mais les macros ne sont pas protégées et je ne comprends pas pourquoi!
je le joins ( si tu peux me dire la raison?)
https://mon-partage.fr/f/p5wlESnS/
Merci pour le nécessaire.
A bientôt.
Dodo.

Bien ☺

Bonne suite et bonne pétanque

Cdlmnt
Via

Re,

Nickel,ce coup ci, c'est le top!J'ai également mis le même MdP pour l'ouverture des macros afin de ne pas identifier le MdP et modifier les macros, les cellules à ne pas toucher sont verrouillées.
Il n'y a plus qu'en s'en servir en grandeur nature!
Merci beaucoup et bon WE à toi.
Cordialement.
Dodo

Re

Je pense savoir d'où ça vient, les feuilles conservent l'ancien mdp !
Si tu changes le mdp dans les macros, tu ôtes la protection dans toutes les feuilles puis tu enregistre le fichier modifié
A l’ouverture les feuille seront reprotégées avec le nouveau mdp par la macro de This Workbook

Bonsoir Via,

Tout fonctionne très bien (une fois les cellules déverrouillées)!Sauf que lorsque je change le mot de passe dans les macros et This Workbok ainsi que pour ôter la protection des feuilles en n'en mettant qu'un seul identique( donc toutes les feuilles + macros) j'ai un message d'erreur!
Je pense rien avoir oublié.
En attendant , merci.
cordialement.
Dodo

Bonjour Dodo

Le mot de passe en variable mdp ne semble pas fonctionner partout, je n'arrive pas à savoir pourquoi !
J'ai donc mis en début de chaque macro un ActiveSheet.Unprotect "admin" et en fin un ActiveSheet.Protect "admin"
Si tu changes le mot de passe il faudra le changer dans toutes ces lignes de macro et dans celle d'ouverture dans This Workbok
Au lieu d'avoir 6 macros identiques pour le classement (une par feuille) je n'en ai gardé qu'une seule valable pour toutes (avec ActiveSheet au lieu du nom de la feuille dans la macro), c’est la macro6
Je pense que la macro qui met des 13 dans certaines cellules était pou tester et que tu ne vas pas la garder, donc au final tu n'auras que 2 macros dans le modules à modifier + celle de This Worbook

Par contre dans tes feuilles Journées toutes les cellules sont verrouillées et avec la protection on ne peut pas écrire les résultats. Il faut que tu déverrouilles les plages où seront entrées des données

https://mon-partage.fr/f/CqHy09pl/

Cdlmnt
Via

Bonjour Via,

Quand j'ouvre le fichier, seule la journée 6 fonctionne, les autres me donnent un message d'erreur.
J'ai changé le mot de passe ( j'ai mis dodo pour essai), même en l'enregistrant "admn" revient après fermeture et réouverture du fichier!
Désolé,il y a certainement quelque chose que je ne fais pas comme il convient!
Cordialement.
Dodo

https://mon-partage.fr/f/NsiR8fkV/

Dans This Workbook macro à l'ouverture du classeur qui protège toutes les feuilles avec un mot de passe
Ce mot de passe (admin pour l’instant) est indiqué dans la 1ere ligne :
mdp="admin"
c'est dans cette ligne et seulement dan celle c que tu dois changer le mot de passe pour le remplacer par le tien
la variable mdp est déclarée public en début du module 10 - Ne ps effacer cette ligne car c'est e qui permet d’utiliser cette variable dans toutes tes macros (Activesheet.Unprotec mdp)

Ainsi pour modifier le mot de passe il n'y a besoin de le faire qu'une seule fois dans la 1e ligne la macro de This Workbook

(dans les feuilles Journées j'ai déverrouillé les plages de cellules d'entrée des résultats)

Cdlmnt
Via

Re,

Je l'ai déjà fait mais mes macros ne marchent plus!j'ai donc inclus dans chaque macro Active....mais le résultat est le même!
Tu peux regarder dans mon fichier.J'ai besoin des macros pour faire des exemples à titre d'info notamment.
Cordialement.
Dodo.