Mot de passe sur bouton Excel

[Lili189]

Bonjour,

j'ai un petit soucis. J'ai crée sur mon fichier excel un bouton affecté à une macro.

Je voudrais protéger ce bouton avec un mot de passe pour que personne n'y ai accès à par moi.

Est-ce possible ?

merci d'avance.

Lili

 

[DoubleZero]

Re : Mot de passe sur bouton Excel

Bonjour à toutes et à tous,

Peut-être ainsi ?

Option Explicit
Private Sub CommandButton1_Click()
    Dim mdp, mot_de_passe
    mdp = "toto"    ' à adapter
    mot_de_passe = InputBox("Tapez votre mot de passe", "Mot de passe ?")
    If mot_de_passe <> mdp Then
        Exit Sub
    Else
        [a1] = "bonjour !"    ' suite du code
    End If
End Sub

A bientôt 🙂

 

[Toubabou]

Re : Mot de passe sur bouton Excel

Bonjour à tous,

Oups j'ai oublié de préciser que je suis un vrai débutant. Pourriez vous me detailler le cheminement pour lier ce code a mon bouton de commande dans mon UserForm. Et surtout comment faire pour que le MP n'apparaisse pas.

Amicaalement,

Jean Marie

 

[Staple1600]

Re : Mot de passe sur bouton Excel

Bonjour à tous

D'un JM à un autre 😉
L'usage est de créer son propre fil de discussion pour poser sa question plutôt que de la poser dans fil dont on n'est pas l'initiateur 😉
A te relire donc dans ton propre fil 😉

 

[Toubabou]

Re : Mot de passe sur bouton Excel

Re DoubleZero,

Excuse moi je dois créer une autre discussion pour ce sujet. Mais ton code fonctionne sauf que le MP est visible.

Merci,


Jean-Marie

 

[DoubleZero]

Re : Mot de passe sur bouton Excel

Re-bonjour, bonjour Staple1600 😀,

Une suggestion en pièce jointe.

En cas de problème, ne pas hésiter à créer une nouvelle discussion, tout en joignant le fichier de travail sans donnée confidentielle.

A bientôt 🙂

 

[Toubabou]

Re : Mot de passe sur bouton Excel

Bonjour à tous,

Je vais créer une nouvelle discussion car j'ai trop de questions.

Merci à bientôt
Toubabou