mot de passe dans userform sous excel...

Question

Bonjour!

 Alors, j'aimerai &#224;
l'ouverture de mon classeur que l'utilisateur puisse choisir sa
fonction et entrer son mot de passe. Je pr&#233;f&#233;rerai faire &#231;a avec une
bo&#238;te de dialogue car j'ai des soucis avec un userform pour ensuite
activer une macro (si &#231;a oci vs savez, vs pouvez me renseigner!). Donc
le programme irait chercher dans le tableur sous une feuille les
diff&#233;rentes fonctions et les mots de passe qui sont d&#233;finis. Je vais
bien entendu prot&#233;ger le classeur avec un mot de passe et emp&#234;cher
l'utilisateur d'acc&#232;der au code source vba, &#231;a devrait suffire... 

 Voil&#224; mon niveau en vba :

 Sub motdepasse()

 If choix manutentionnaire1 And MDP manu Then _

 Application.Run "manu1.xls!Affichemanu1"

 'else msg erreur

 End Sub


et je renouvelle l'op&#233;ration &#224; chaque utilisateur... Je sais que les
fonctions n'&#233;volueront pas et &#231;a ne me d&#233;range pas que les mots de
passe soient fix&#233;s. Cependant avec ces lignes de code, je suis oblig&#233;
de lancer l'ensemble des classeurs, et les autres utilisateurs ne
devraient pas y avoir acc&#232;s... Me suivez-vous? Je peux utiliser la
fonction Load? Mais je pr&#233;f&#233;rerai que le programme aille chercher &#224;
l'emplacement indiqu&#233; le classeur et l'ouvre uniquement si le mot de
passe est valide...

 J'esp&#232;re avoir &#233;t&#233; assez clair, je vous remercie &#233;j&#224; de m'avoir lu et attends vos r&#233;ponses avec impatience!

rosenfel · Answer

Bonjour,
ce genre de protection sera de toute façon très illusoire car n'importe qui un peu déterminé saura ouvrir ton classeur de password "protégé".
De quel niveau de protection as tu réellement besoin?
Par ailleurs, recherche sur le forum, il y a déja un grand nombre de topics la dessus bien documentés et une foule de codes sources!
F.

d_julien · Answer

Bonjour rosenfel,

Et bien, ce n'est pas une v&#233;ritable protection qu'il me faut... C'est
juste pour une d&#233;monstration! Disons que j'ai trouv&#233; beaucoup
d'&#233;l&#233;ments depuis, mais j'aurai pr&#233;f&#233;r&#233; lancer mon programme depuis une
userform. J'ai cr&#233;&#233; une macro mais je n'arrive pas &#224; l'int&#233;grer au code
du bouton ok de mon userform. Il s'agit de la ligne de code suivante : 

Workbooks.Open Filename:="D:\ESCEM\excel\manu1.xls"

Si tu vois quel changement il faut apporter, je te remercie d'avance!

rosenfel · Answer

Le code associé devrait être:

Private Sub CommandButton1_Click()

Workbooks.Open "D:\ESCEM\excel\manu1.xls"

Unload Me

End Sub

Mot de passe dans userform sous excel...

3 réponses

Discussions similaires