Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Cacher la saisie d'un mot de passe dans la boite de dialogue.

  • Initiateur de la discussion Initiateur de la discussion rsilence
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

rsilence

XLDnaute Nouveau
Bonjour,

J'ai écrit cette instruction mais lorsque l'opérateur saisi son mot de passe, il s'écrit en claire dans la boite de dialogue.

Comment le cacher?


'protège la feuille "simulateur" et le classeur.


réponse = InputBox("Votre mot de passe?", "MOT DE PASSE", "XXXXXX")

Sheets("simulateur").Protect Password:=(réponse), DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Password:=(réponse), Structure:=True, Windows:=False

Sheets("simulateur").Select
Range("P2") = réponse
 
Re : Cacher la saisie d'un mot de passe dans la boite de dialogue.

MErci,

J'ai essayé cette procédure mais j'ai un souci dans le suivi de celle-ci:

Dans la procédure j'insere la ligne qui appelle la boite du mot de passe mais quand celui-ci est répondu, le système ne revient pas pour faire la suite du programme.

J'ai écrit les instructions suivantes:


'Sub Administrateurs()

mot_de_passe.Show


Sheets("simulateur").Select
If MotPass = Range("P2").Value Then

'déactive le classeur et la feuille "simulateur"

ActiveWorkbook.Unprotect Password:=(MotPass)
Sheets("simulateur").Unprotect Password:=(MotPass)

end sub()

Private Sub BoutonValider_Click()


If StrConv(TxtMotDePasse, vbUpperCase) = StrConv(Sheets("simulateur").Range("P2"), vbUpperCase) Then

Exit Sub
End If

MsgBox " le mot de passe est incorrect"
TxtMotDePasse.Value = ""
TxtMotDePasse.SetFocus
End Sub
 
Re : Cacher la saisie d'un mot de passe dans la boite de dialogue.

Merci pour votre aide.

J'ai du mal à me concentrer sur ce sujet.
J'assite à beaucoup de réunions en ce bébut d'année.

J'en profite pour vous souhaiter mes meilleurs voeux ainsi qu'à votre famille.

cordialement.
 

Pièces jointes

Re : Cacher la saisie d'un mot de passe dans la boite de dialogue.

Merci beaucoup,

ton aide m'a été précieuse.
Avec ce que tu m'as envoyé, j'ai compris ce qui n'allait pas.


Merci et au plaisir de te retrouver sur ce forum.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…