[Excel]Protection classeur

ça n'inspire pas vraiment on dirait ^^

Toujours personne ?

Bonjour,
Tu l'a protéger avec ou sans mot de passe ?
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Bonjour,
merci de vos réponses, j'ai ré-uploadé mon fichier hier, et depuis ça a l'air de bien vouloir remarcher, en tout cas pour ce qui concerne la protection.

En revanche, une personne qui a téléchargé le fichier me dit que les macros ne s'exécutent pas. Si vous voulez jeter un oeil, voilà le fichier en question :

http://taragnina.free.fr/projets_excel/calen.xls

Bonjour,

Le bouton "Remettre à zéro" fonctionne mais le bouton "classement" ne fonctionne pas.
Par contre le bouton Classer fonctionne.

Il ne faut pas non plus oublier que, selon, la version, les options de sécurité sont plus ou moins présentes et peuvent empêcher les macros de s'activer.... C'est en particulier le cas avec la version 2007. La version 2010 est bien améliorée de ce côté.

m@rina

Merci de votre réponse.

Le bouton "Classement" active la macro "Vers classement" qui permet de passer à l'autre onglet, puis d'activer la macro "Classer".

Le problème se situerait donc lors du changement d'onglet, ça peut se corriger ce défaut ?

C'est curieux car lorsqu'on clique sr Classement, on change effectivement de feuille. Par contre on a systématiquement le message "Impossible d'exécuter a macro. Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées".
Donc, il faut sans doute vérifier cette macro.

Cela étant dit, pas besoin de macro pour changer de feuille. Il suffit de mettre un bouton avec un lien hypertexte vers l'autre' feuille.

m@rina

- "Sur le forum bureautique, on pose des questions concernant la bureautique..."
- "Ah bon ???"

Bonjour, Bonjour Marina,
Chez moi, avec le 2007 tout fonctionne normalement, probable que ça dépend du niveau de sécurité.
Mais si tu veux que l'ont t'aide éventuellement sur le code faudrait enlever le mot de passe du code.
A+

bonjour

J'ai aussi testé ce classeur qui pour moi fonctionne correctement sous 2007 comme sous 2003 : pour 2010, j'attends une opportunité.

Sans les macros, il fonctionnerait aussi sous calc d'openoffice.org

Pour Foreverson :

Tu as mis des protections pour ne pas pouvoir changer le nom des onglets :

- comme l'a dit m@rina, les protections en format xls sont assez illusoires.
- pour éviter qu'un autre nom d'onglet perturbe ta macro tu peux éviter d'utiliser les noms de feuille surtout avec seulement 2 onglets.
- par contre, le lien hypertexte ne fonctionne plus si l'on change le nom de l'onglet.
- tu n'as pas besoin de macro pour effectuer un classement de tes équipes, c'est assez simple de l'obtenir par formule (si tu veux un exemple tu le dis).

Nouveaux essais !

J'ai testé avec 2003, 2007 et 2010 : j'ai le même problème.

J'ai retéléchargé le fichier : tout fonctionne.
J'ai téléchargé le fichier une troisième fois en choisissant l'option Enregistrer et j'ai donné un nom qui contient un espace... Résultat : j'ai bien l'erreur que j'ai indiquée.

J'ai refait d'autres essais juste en modifiant le nom... et c'est toujours le même pb constaté : s'il y a un espace dans le nom, j'ai ce message d'erreur... sinon je ne l'ai pas !
De + en + bizarre...
Vous pouvez tester ?

m@rina

Bonsoir à tous,

Lorsqu'on appuie sur la bouton classement, voilà le code censé se mettre en route :

Sheets("Classement").Select 
Application.Run ThisWorkbook.Name & "!classement"

Protéger le classeur permet de ne pas toucher au nom des onglets, et donc évite -en théorie- de faire planter cette macro.

@gbinforme : Trier sans macro, je ne sais pas faire, donc j'ai choisi cette voie. Si tu veux me donner un petit lien vers un fichier exemple qui fait ça avec des formules, c'est volontiers :)

Si vous avez besoin d'autres précisions, n'hésitez pas.

bonjour Foreverson,

Tu peux remplacer ta macro par ceci et si le nom des onglets est changé elle continue de fonctionner :

Dim f As Integer
For f = 1 To Sheets.Count
    If Sheets(f).Name <> ActiveSheet.Name Then
        Sheets(f).Activate
        Call classement
    End If
Next f

un petit lien vers un fichier exemple qui fait ça avec des formules, c'est volontiers

Voici un exemple sur le prochain championnat français avec les calendriers et les libellés du site de la fédération :

http://www.cijoint.fr/cjlink.php?file=cj201007/cijXVgGrwv.xls

Ok, j'ai fait la modif, vous pouvez le re-télécharger pour voir si ça marche : http://taragnina.free.fr/projets_excel/calen.xls

@gbinforme : costaud ton fichier !