Protection d'execution d'un commandButton

[agir2]

Bonjour !

Je voudrais une demande de mot de passe au clic d'un commandButton,
évitant ainsi les clic accidentel !

J'ai inclus mon classeur en pièce jointe

MERCI !
🙄

 

[Hulk]

Re : Protection d'execution d'un commandButton

Hello,

Le plus simple, un truc du style...

Private Sub CommandButton1_Click()
    
        x = InputBox("Veuillez entrer le mot de passe !", "Mot de passe")
        If x = "xxxxxx" Then
            Range("B6:B10").Select
            Selection.ClearContents
        Else
            MsgBox "Mot de passe incorrect !"
            Exit Sub
        End If

End Sub

Bien sur, il est améliorable !

Cdt, Hulk.

 

[agir2]

Re : Protection d'execution d'un commandButton

Merci beaucoup!

C'est ce que je cherche