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
 
- 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

Retour