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]

Re

[Pour info]
Même message d'erreur avec le fichier #21
Mais je sais pourquoi
Il n'y a pas de feuille "Accueil"

Et dans ceux des post #4 et #16 il n'y a pas de feuille "Acceuil"
Comme dit VBA : erreur d'indice

 

[Staple1600]

Re

Vous voulez me faire bosser un samedi soir, les aminches
Pour infos, j'ai testé le fichier du post#21 avec Excel2003
Vous savez donc ce que cela implique, hein ?

Bon, comme rien de me tente à la télévision, je vais aller en post#4

 

[Staple1600]

Re

Pour le post#4
Je sais le pourquoi du comment
Ah orthographe quand tu nous tiens!

Dans le code VBA, on pouvait lire
Sheets("Acceuil").Visible = True
et le nom de l'onglet est:
Accueil

EDITION: En relisant ton message, Patrice, c'est ce tu voulais dire, non?
J'ai donc ouvert le fichier du post#4 trop tard...

 

[Patrice33740]

Re

EDITION: En relisant ton message, Patrice, c'est ce tu voulais dire, non?
J'ai donc ouvert le fichier du post#4 trop tard...

Dommage, chercher, trouver et comprendre ses erreurs est le meilleur des apprentissages ....

 

[Staple1600]

Re

=>Patrice
Oui, mais point le demandeur je ne suis.
Donc pas mes erreurs
Surtout que comme je l'ai dis, plus bas, si j'étais moi, je laisse mon projet VBA accessible.
Sinon, je suis d'accord.
D'aiileurs on trouve souvent cette "citation" dans mes posts sur XLD
Comme disait Yoda: "Le meilleur des maitres, l'échec être"

 

[Patrice33740]

@Staple1600 , évidemment ce ne sont pas tes erreurs ....

Seul "Dommage" nous est adressé : Dommage d'avoir publié la solution sans laisser le demandeur chercher, trouver et comprendre.
Yoda sage très grand être

 

[Orson83]

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

Oui, même problème avec le fichier d'origine.
Précision, je suis suis sur Windows 7 - 32bits et mon Excel 2010 est sur "Activer toutes les macros & Accès approuvé au modèle VBA.
Captures jointes.

 

[Orson83]

@Staple1600 , évidemment ce ne sont pas tes erreurs ....

Seul "Dommage" nous est adressé : Dommage d'avoir publié la solution sans laisser le demandeur chercher, trouver et comprendre.
Yoda sage très grand être

Quelle solution ? AUCUNE. Merci de ne pas t'attribuer les lauriers alors que tu dénigres ma demande depuis le début. Comme déjà dit plus haut, si ça ne t'intéresse pas, passe ton chemin. Maintenant STOP ou je signale ton comportement dédaigneux et moqueur au modérateur.
Inutile de répondre à ce message car tu n'apportes rien de constructif.

 

[sylvanu]

Bonjour tout le monde,
Je n'avais pas compris votre message au post #4. Sorry.
J'avais interprété que le fichier du post #2 marchait mais qu'après l'avoir modifié la PJ du post #4 ne marchait plus.
Alors que c'est depuis l'origine que l'erreur 9 est présente. Donc c'est indépendant du nom des feuilles, de vos macros ajoutées etc,etc.

Qu'entendez vous par : "Si je renomme le fichier" ? est ce à dire qu'il marche, mais qu'une fois renommé il ne marche plus ?

En PJ une version "simplifiée" avec uniquement à l'ouverture :

Private Sub Workbook_Open()
    Dim R As String
    R = ""
    Sheets("A").Visible = True
    While R <> "1234"
        R = InputBox("Entrez le mot de passe", "Protection")
        For Each F In Worksheets
            If F.Name <> "A" Then Sheets(F.Name).Visible = True
        Next
        Sheets("A").Visible = False
    Wend
End Sub

Attention, mot de passe 1234. Est ce que cela marche ?

NB: Je suis sous Win10 64 bits, XL2007. Mais je ne pense pas que le problème vienne de là.

 

[Orson83]

Bonjour tout le monde,
Je n'avais pas compris votre message au post #4. Sorry.
J'avais interprété que le fichier du post #2 marchait mais qu'après l'avoir modifié la PJ du post #4 ne marchait plus.
Alors que c'est depuis l'origine que l'erreur 9 est présente. Donc c'est indépendant du nom des feuilles, de vos macros ajoutées etc,etc.

Qu'entendez vous par : "Si je renomme le fichier" ? est ce à dire qu'il marche, mais qu'une fois renommé il ne marche plus ?

En PJ une version "simplifiée" avec uniquement à l'ouverture :

Private Sub Workbook_Open()
    Dim R As String
    R = ""
    Sheets("A").Visible = True
    While R <> "1234"
        R = InputBox("Entrez le mot de passe", "Protection")
        For Each F In Worksheets
            If F.Name <> "A" Then Sheets(F.Name).Visible = True
        Next
        Sheets("A").Visible = False
    Wend
End Sub

Attention, mot de passe 1234. Est ce que cela marche ?

NB: Je suis sous Win10 64 bits, XL2007. Mais je ne pense pas que le problème vienne de là.

Bonjour sylvanu, le forum,
Cette version ne plante plus, Super !
Je disais effectivement, que l'erreur se produisait à la première ouverture et si le fichier était renommé, ce qui n'est plus le cas
Je remarque néanmoins 2 autres "petits" soucis.
- Je ne peux plus annuler ou fermer la msgbox sauf ALT CTRL SUPPR ou le bon mot de passe.
- Une fois le bon mot de passe saisi, toutes les feuilles s'ouvrent. L'ouverture sur la feuille 1 (ou accueil si renommée) ou pourquoi pas les feuilles présentes lors du dernier enregistrement.
Un grand merci encore pour votre aide.
François

 

[Patrice33740]

Bonjour,

Quelle solution ? AUCUNE. Merci de ne pas t'attribuer les lauriers alors que tu dénigres ma demande depuis le début. Comme déjà dit plus haut, si ça ne t'intéresse pas, passe ton chemin. Maintenant STOP ou je signale ton comportement dédaigneux et moqueur au modérateur.

Il n'y a rien de dédaigneux ou de moqueur dans mes réponses.
Je t'ai suggérée la solution au post #16 et elle est précisée au post #31 ci-dessous :

Et dans ceux des post #4 et #16 il n'y a pas de feuille "Acceuil"
Comme dit VBA : erreur d'indice

Staple t'a donné la même solution au post #33 pour le fichier du post #21

Mais tu n'as pas fais l'effort de corriger toi-même ton fichier.
Ici c'est un forum d'entraide, on est pas là pour faire le travail à ta place !
Tu attends qu'on te donne un fichier corrigé alors qu'il suffisait de vérifier ton code et de remplacer "Acceuil" par 'Accueil".
La preuve, ton premier fichier corrigé fonctionne parfaitement :

 

[sylvanu]

Re bonjour,

Cette version ne plante plus, Super !

Evidemment j'ai supprimé la partie qui posait problème sur votre PC.
Problème que je n'ai vraiment pas compris.
( en fait cette partie était là pour protéger dans un cas très particulier : ouverture du fichier avec bon mot de passe, enregistrement, kill du process, réouverture du fichier sans macro activées, alors les feuilles sont visibles. )

Ensuite ce sont de novelles demandes. En PJ ( mdp : 1234 ):
1- On a 3 tentatives pour entrer le bon mot de passe, au 4ème le fichier se ferme.
2- Je mémorise l'état des feuilles à la fermeture dans la page "A". A tester.

Mais à force de prendre des sécurités sur des sécurités .... vous allez finir par être bloquées par celles ci.

 

[sylvanu]

Bonjour Patrice,
Il y a en fait deux problèmes.
Le second est celui que vous évoqué.
Le premier est que l'erreur 9 se produit sur le PC de Tchotchodu avec le fichier du post #2 alors que l'on a seulement Feuil1 à Feuil11. Et ça je ne me l'explique pas.
"Comme si" le fait de mettre toutes les feuilles en xlSheetVeryHidden puis ensuite en Visible ne permettait plus de faire un Sheets("Feuil1").Select.

Oui, même problème avec le fichier d'origine.

D'où l'idée de supprimer cette partie à l'ouverture qui en fait ne servait que dans un cas vraiment tordu.

 

[Patrice33740]

Bonjour Patrice,
Il y a en fait deux problèmes.
Le premier est que l'erreur 9 se produit sur le PC de Tchotchodu avec le fichier du post #2 alors que l'on a seulement Feuil1 à Feuil11. Et ça je ne me l'explique pas.
"Comme si" le fait de mettre toutes les feuilles en xlSheetVeryHidden puis ensuite en Visible ne permettait plus de faire un Sheets("Feuil1").Select.

D'où l'idée de supprimer cette partie à l'ouverture qui en fait ne servait que dans un cas vraiment tordu.

C'est pas le fichier du post #2 qui ne fonctionne pas, c'est une fois modifié qu'il y a une erreur (post #4).

D'autre part, il n'est pas possible de masquer toutes les feuilles d'un classeur, il doit toujours y avoir au moins une feuille visible, sinon une erreur se produit lors du masquage de la feuille dernière visible.

Par contre, j'ai relu tous les post et je ne vois pas où Tchotchodu signale cette erreur 9 dans le fichier du post #2 avec seulement les Feuil1 à Feuil11 ???

 

[sylvanu]

Re,

Oui, même problème avec le fichier d'origine.

Post #37. D'où mon problème de compréhension.
Il y a toujours une feuille de visible, bien évidemment. Sinon ça planterais chez moi.