Executer une macro avec mot de passe

[pierre1340]

Bonsoir,

Je vous joins un fichier sur lequel il y a un bouton pour lancer une macro(vers la cellule T5), mais j'aimerais qu'elle s'execute avec un mot de passe, j'ai trouvé ceci sur le forum https://www.excel-downloads.com/thr...acro-seulement-si-on-a-le-mot-de-passe.75163/ , mais si je mets cela dans la feuille1 où dans module1 cela ne fontionne pas.
Merci de votre aide

je ne peut pas joindre le fichier (trop gros)

 

[TheLio]

Re : Executer une macro avec mot de passe

Hello,
Qu'est ce qui ne fonctionne pas?
Dans le code en feuil1:

Private Sub Lancer_Click()
Dim reponse As String

reponse = InputBox("Veuillez donner le mot de passe pour lacer la macro :")
If reponse = "MDP" Then
MsgBox "Execution de la macro"
'code de la macro
Else
MsgBox "mot de passe incorrecte"
End If
End Sub

Tout fonctionne
en tous cas chez moi
A++
Lio

 

[pierre1340]

Re : Executer une macro avec mot de passe

Bonjour TheLio, le forum

Je joins un fichier plus light, et le problème reste le même
Merci

 

[joss56]

Re : Executer une macro avec mot de passe

Salut le forum, Pierre

Rien ne se passe parce qu'il faut "appeler" la macro si le mot de passe est correct:
remplace 'code de la macro (commentaire) par call Effacer

A+

Jocelyn

 

[pierre1340]

Re : Executer une macro avec mot de passe

Salut joss56,

J'ai effacer l'ancienne macro j'ai mis ceci a la place:
Sub Effacer()
Dim reponse As String

reponse = InputBox("Veuillez donner le mot de passe pour lacer la macro :")
If reponse = "MDP" Then
MsgBox "Execution de la macro"
Call Range("A2:Q398").Select
Selection.ClearContents
Range("A2").Select
ActiveWorkbook.Save
Else
MsgBox "mot de passe incorrecte"
End If
End Sub
je ne sais pas si c'est la bonne procédure mais ça marche.

A+