Proteger une feuille lors d'un clic sur un bouton

[Blaise]

Bonjour,

J'ai un classeur excel avec plusieurs boutons. Chaque bouton ouvre une feuille différente. Toutes sont accessibles à n'importe qui sauf une qui ne doit être visible que par quelques personnes.

Est il possible de faire apparaître une fenêtre qui demande un mot de passe lorsque l'on clique sur ce bouton afin d'atteindre ladite feuille. Sans mot de passe, il devrait être impossible d'atteindre cette feuille.

Merci d'avance pour votre aide.

 

[Ljoulin]

Oui, c'est possible!
Créé un UserForm avec ta zone de texte. Dans les propriétés de ta zone, dans PasswordChar, mets un caractère ki va coder l'écriture. Met un bouton "OK".
Ensuite, place ce fragment de code pour le bouton:
"
Private Sub CommandButton1_Click()
If TextBox1.Text = "MonMotDePasse" Then GoTo passOK Else MsgBox("Erreur de pass!"),vbOkOnly,"ERREUR"
Exit Sub
passOK:
MsgBox("PASS OK"),vbOkOnly + vbInformation,"Titre"
Me.Hide
Sheets (INDEX).Activate
End Sub
"
Et voilà. Tu peut aussi utiliser InputBox.

 

[Blaise]

Merci Ljoulin !

 

[Blaise]

A nouveau moi Voilà j'ai créé la userform maintenant comment faire pour la faire apparaître dès que l'on clique sur le bouton ?

 

[Blaise]

J'ai eu ton message, Merci ca fonctionne parfaitement bien maintenant. Mais pour etre encore plus sécurisée, y'a-t-il moyen d'empecher les utilisateurs d'accéder à l'éditeur de code vba ?