Mot de passe macro

[Feuavolonte]

Bonjous à tous !!

Merci d'avance pour vos réponses !!!

Voilà mon souci j'ai inséré un mot de passe dans une macro, mais le hic c'est qu'en fermant ma fenêtre avec la croix sans insérer le mot de passe ma macro se lance tout de même....
Vous voyez un souci ?

Private Sub CommandButton12_Click()
Dim sPass As String
sPass = InputBox("Veuillez saisir le mot de passe")
If sPass = "1234" Then
End If
Dim a As Byte
Dim x As Long
If machh.ListIndex = -1 Then Exit Sub
a = MsgBox(mess(4), vbYesNo, mess(5))
If a = 7 Then Exit Sub
Feuil2.Rows(xmachh(nomach)).Delete
For x = finf1 To 2 Step -1
If Feuil1.Cells(x, 1) = nomach Then Feuil1.Rows(x).Delete
Next
For x = finf4 To 2 Step -1
If Feuil4.Cells(x, 2) = nomach Then Feuil4.Rows(x).Delete
Next
unclic
trav.Clear
End Sub

Amicalement !!!😉

 

[VDAVID]

Re : Mot de passe macro

Bonjour Feuavolonte,

Peut-être comme ceci:

Private Sub CommandButton12_Click()
Dim sPass As String
sPass = InputBox("Veuillez saisir le mot de passe")
If sPass = "1234" Then
'End If
Dim a As Byte
Dim x As Long
If machh.ListIndex = -1 Then Exit Sub
a = MsgBox(mess(4), vbYesNo, mess(5))
If a = 7 Then Exit Sub
Feuil2.Rows(xmachh(nomach)).Delete
For x = finf1 To 2 Step -1
If Feuil1.Cells(x, 1) = nomach Then Feuil1.Rows(x).Delete
Next
For x = finf4 To 2 Step -1
If Feuil4.Cells(x, 2) = nomach Then Feuil4.Rows(x).Delete
Next
unclic
trav.Clear
End if
End Sub

Si tu mets :
If sPass = "1234" Then
End If

Il n'y a aucun code pris en compte dans ta condition !

Bonne journée!

 

[Feuavolonte]

Re : Mot de passe macro

Bonjour David !

Merci beaucoup pour ta réponse ça fonctionne correctement ! et je viens d'apprendre autres choses ! je suis très content !!

Merci !