demande de mot de pass à l'ouverture d'une macro

[Alex550445]

Bonjour,

je voudrais bloquer l'ouverture de ma macro par un mot de pass.
j'ai trouvé ca :

Option Explicit
Dim motdepassevrai As String
Dim motdepasseboite As String

Sub MDP()
motdepassevrai = "oui"
motdepasseboite = InputBox("Tapez le mot de passe")
If motdepasseboite <> motdepassevrai Then
Exit Sub
End If
End Sub

Mais comment faire pour que le mot de pass taper ne s'affiche pas à l'écran, j'ai lu qu'avec une inputbox on ne pouvait pas, ya t'il une autre possibilité ?

d'avance merci

 

[Staple1600]

Re : demande de mot de pass à l'ouverture d'une macro

Bonjour



Avec un userform contenant une Textbox

Avec * pour la propriété PasswordChar

(Accessible dans le fenêtre Propriétés de VBE)

 

[Alex550445]

Re : demande de mot de pass à l'ouverture d'une macro

merci mais concretement comment je fais, je suis un peu largué là !!

 

[Staple1600]

Re : demande de mot de pass à l'ouverture d'une macro

Re



Tu insères un userform dans ton classeur
ALT+F11 --> Insérer UserForm
Tu y ajoutes un TextBox

Quand tu sélectionnes ce textbox , tu regardes en bas à droite
de l'écran la fenêtre [Propriétés]
Dans l'onglet [Alphabétique]
Et la tu cherches PasswordChar
et tu saisi *

Pour finir dans le code de l'userform
mettre le code VBA adpaté du tien

(Le temps de déjeuner et je posterai un exemple)

 

[Staple1600]

Re : demande de mot de pass à l'ouverture d'une macro

Re



message édité:

version plus aboutie plus haut dans le fil.

 

[Alex550445]

Re : demande de mot de pass à l'ouverture d'une macro

merci je regarde ca de suite

 

[Alex550445]

Re : demande de mot de pass à l'ouverture d'une macro

si jamais je veux lancer la macro sans ajouter de bouton sur ma feuille mais avec des touches attribuées, ex ctrl a : c'est possible d'utiliser le meme principe que la textbox ? encore merci

 

[Staple1600]

Re : demande de mot de pass à l'ouverture d'une macro

Re


Il faudrait peaufiner le code pour empêcher de fermer l'userform
en cliquant sur la croix
(tu trouveras des exemples de code sur le forum.)

Pour lancer l'userform à l'ouverture
Mettre

UserForm1.Show

Dans WorkBook_Open()

 

[Alex550445]

Re : demande de mot de pass à l'ouverture d'une macro

oki merci beaucoup

 

[Alex550445]

Re : demande de mot de pass à l'ouverture d'une macro

Re


Il faudrait peaufiner le code pour empêcher de fermer l'userform
en cliquant sur la croix
(tu trouveras des exemples de code sur le forum.)

juste une ptite question pourquoi peaufiner le code pour eviter de fermer l'userform en cliquant sur la croix ?

 

[Staple1600]

Re : demande de mot de pass à l'ouverture d'une macro

Re



Pour obliger à fermer l'userform que si le mot de passe est valide

Sinon celui-ci n'a plus d'utilité puisque en fermant par la croix
on accède au classeur.

 

[Alex550445]

Re : demande de mot de pass à l'ouverture d'une macro

encore merci

 

[Alex550445]

Re : demande de mot de pass à l'ouverture d'une macro

J'ai réussi a faire ma macro, j'ai enlevé la croix mais je voudrai pouvoir quitter la textbox avec un bouton 'Quitter' :

Private Sub Quitter_Click()
'permet de fermer l'userform
Unload UserForm1
End Sub

mon problème c'est que si je ferme ma textbox ma macro se lance !! comment faire pour quitter ma textbox sans lancer ma macro qui en découle ?
Si jamais je ne met pas de bouton quitter, impossible de fermer mon fichier sans mettre le bon mot de pass !!

Mon autre soucis, c'est que mon mot de pass est gardé en memoire à la prochaine ouverture de ma textbox comment faire pour vider le champ ?

D'avance merci

 

[Staple1600]

Re : demande de mot de pass à l'ouverture d'une macro

Bonsoir


Le plus simple serait que tu postes ici le code de ton userform

 

[Alex550445]

Re : demande de mot de pass à l'ouverture d'une macro

Private Sub Quitter_Click()
'permet de fermer l'userform
Unload UserForm1
End Sub




Private Sub Valider_Click()
Dim mot_de_passe As String
mot_de_passe = "123"
If TextBox1.Text <> mot_de_passe Then
MsgBox "Mauvais mot de passe"
Else
MsgBox "Mot de passe OK"
Me.Hide
End If
End Sub

J'ai mis : UserForm1.Show au début de ma macro

merci