Executer une macro avec mot de passe

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

Cliquez pour agrandir...

Tout fonctionne
en tous cas chez moi
A++
Lio

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

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

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+