Feuavolonte
XLDnaute Nouveau
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 ?
Amicalement !!!
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 ?
Code:
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 !!!