XL 2010 Macro pour mot de passe à l'ouverture d'Excel

[Orson83]

Bonsoir le forum,
Je rencontre un problème pour protéger l'ouverture de mon fichier Excel. En effet j'aimerai qu'à l'ouverture de mon fichier, Excel me demande un mot de passe avant de montrer les onglets. J'ai essayé avec les options présentes dans Excel mais le problème c'est qu'elles permettent soit la modification du mot de passe, soit carrément la suppression.
Je me demandais s'il était possible de faire cela avec une macro qui ouvrirait une message box pour saisir un mot de passe qui serait déjà renseigné dans le code et qui serait unique. J'ai fouillé Internet dans tous les sens mais je n'ai pas trouvé de macro exploitable.
Merci pour votre aide.
PS : ce mot de passe serait différent de celui qui protège déjà mon classeur et mes feuilles.

 

[Patrice33740]

Au lieu de perdre ton temps à essayer le protéger ton fichier, tu devrais apprendre à déboguer ton code !
Tu trouverais immédiatement pourquoi ça plante !
On Error ne résoud pas les problèmes, ça les cache sous le tapis ...
VBA Excel - Déboguer un programme VBA.pdf
Le débogage sous VB6 et VBA

Une piste : quand l'indice n'appartient pas à la sélection il faut vérifier l'indice, par exemple le nom utilisé

 

[sylvanu]

J'ai essayé de l'implémenté mais ça ne fonctionne pas.

Je n'avais pas compris ce qu'était votre page d'accueil.
En PJ il y a la page d'accueil et la page "A" qui sert de "masque" à l'ouverture.
NB: Toutes mes PJ sont testées.
Donc s'il y a un pb, regardez du coté de vos modifs.
En particulier être bien sur que toute action sur une feuille doit être faite quand celle ci est déprotégée.

 

[Staple1600]

Re

Je ne doute pas de la qualité du code de Sylvanu.
Donc sa proposition doit fonctionner, non?

Et le coup de pouce de ma part n'était pas une formule ou un code VBA mais un conseil et un témoignage.
(qui me semble-t-il ne sont pas interdits sur le forum )

 

[Orson83]

Je n'avais pas compris ce qu'était votre page d'accueil.
En PJ il y a la page d'accueil et la page "A" qui sert de "masque" à l'ouverture.
NB: Toutes mes PJ sont testées.
Donc s'il y a un pb, regardez du coté de vos modifs.
En particulier être bien sur que toute action sur une feuille doit être faite quand celle ci est déprotégée.

sylvanu, Staple1600, le forum,
Merci, cette version est parfaite mais j'ai toujours cette erreur au démarrage ou quand le fichier est renommé.
Je joins la capture d'écran et le fichier renommé.
Egalement, on ne peut pas fermer Excel si on ne rentre pas le bon mot de passe ou s'il est erroné.

 

[Orson83]

sylvanu, Staple1600, le forum,
Merci, cette version est parfaite mais j'ai toujours cette erreur au démarrage ou quand le fichier est renommé.
Je joins la capture d'écran et le fichier renommé.
Egalement, on ne peut pas fermer Excel si on ne rentre pas le bon mot de passe ou s'il est erroné.

Oups, rappel mots de passe :
Mot de passe à l'ouverture d'Excel : TESTOUV
Mot de passe classeur : TESTCLAS
Mot de passe VBA : TESTVBA

 

[sylvanu]

mais j'ai toujours cette erreur au démarrage

Juste une demande : vous avez testé le fichier du post #17, sans y toucher ? Est ce que ça marche ?

J'ai l'impression que vous avez un souci quelque part avec le mot "Accueil".
Le fichier du post #17 marche, je viens de (re)vérifier. Vous "bricolez", il revient on a l'erreur 9. Je ne sais pas de où ça vient je n'ai rien trouvé comme références qui pourrait expliquer ça.
Dans cette PJ j'ai appelé cette feuille Header. Gardez ce nom et regardez si ça marche.
Evidement elle fut testée.

 

[Patrice33740]

Rassures-toi, sylvanu, tous tes fichiers fonctionnent parfaitement.

Ce sont les modifications apportées qui créent l'erreur.
Au post #16 j'ai expliqué d'où vient l'erreur, au post #19 c'est une nouvelle macro mais c'est la même erreur que dans la première macro : une erreur d'index

 

[Orson83]

Juste une demande : vous avez testé le fichier du post #17, sans y toucher ? Est ce que ça marche ?

J'ai l'impression que vous avez un souci quelque part avec le mot "Accueil".
Le fichier du post #17 marche, je viens de (re)vérifier. Vous "bricolez", il revient on a l'erreur 9. Je ne sais pas de où ça vient je n'ai rien trouvé comme références qui pourrait expliquer ça.
Dans cette PJ j'ai appelé cette feuille Header. Gardez ce nom et regardez si ça marche.
Evidement elle fut testée.

Désolé, toujours la même erreur y compris avec le fichier du post #17.
Peut-être que mon Excel 2010 est mal paramétré ?

 

[Orson83]

Rassures-toi, sylvanu, tous tes fichiers fonctionnent parfaitement.

Ce sont les modifications apportées qui créent l'erreur.
Au post #16 j'ai expliqué d'où vient l'erreur, au post #19 c'est une nouvelle macro mais c'est la même erreur que dans la première macro : une erreur d'index

Je n'ai apporté aucune modification aux fichiers de sylvanu. Je les ai ouverts tel quel. Vous avez peut-être une solution concrète ?

 

[sylvanu]

Testez celle ci, j'ai simplement supprimer les lignes de sélection de page entête.

 

[Orson83]

Testez celle ci, j'ai simplement supprimer les lignes de sélection de page entête.

Toujours la même erreur au démarrage.
Dommage, pour le reste c'est parfait.

 

[sylvanu]

Alors vous avez surement un souci chez vous.
Reprenons : Vous sembliez satisfait de la première PJ. Elle marche toujours ?
Attention, mot de passe 1234

 

[Patrice33740]

As-tu essayé de déboguer le fichier ?
Ça pointe directement la ligne en l'erreur donc facile à détecter ....

 

[Patrice33740]

Je n'ai apporté aucune modification aux fichiers de sylvanu. Je les ai ouverts tel quel. Vous avez peut-être une solution concrète ?

Et tu as une erreur à l'ouverture ?

 

[Staple1600]

Re

[Pour info]
Même message d'erreur avec le fichier #21
Mais je sais pourquoi
Il n'y a pas de feuille "Accueil"
En remplacant par Header (ou par le nom de feuille idoine selon le classeur)
Plus d'erreur.
Mais il faudra faire le changement pour toutes les occurences du mot Accueil dans le projet VBA.