XL 2013 (RESOLU)Mot de passe Masqué

[chaelie2015]

Bonjour FORUM

Sub AfficherFeuilleListeAgents()
    Dim motDePasse As String
    Dim motDePasseAttendu As String
    
    ' Mot de passe attendu
    motDePasseAttendu = "Envers"
    
    ' Demander à l'utilisateur d'entrer le mot de passe
    motDePasse = Application.InputBox("Veuillez entrer le mot de passe :", Type:=2)
    
    ' Vérifier le mot de passe
    If motDePasse = motDePasseAttendu Then
        ' Afficher la feuille "Liste Agents"
        On Error Resume Next
        ThisWorkbook.Sheets("Liste Agents").Visible = xlSheetVisible ' Assurez-vous que la feuille est visible
        On Error GoTo 0
        
        ThisWorkbook.Sheets("CRT").Visible = xlSheetVeryHidden ' Masquer la feuille actuelle
        
        ThisWorkbook.Sheets("Liste Agents").Activate ' Activer la feuille "Liste Agents"
    Else
        MsgBox "Mot de passe incorrect. L'accès est refusé, sauf pour M. Hadiouche..", vbExclamation, "CRJT"
    End If
End Sub

cette macro sert à contrôler l'accès à certaines feuilles d'un classeur Excel en demandant un mot de passe à l'utilisateur. Si le mot de passe est correct, la feuille "Liste Agents" devient visible et la feuille "CRT" est masquée. Si le mot de passe est incorrect, un message d'erreur s'affiche.
J'aimerais que le mot de passe soit dissimulé par des étoiles lorsque je le saisis dans la boîte de dialogue.
A+

 

[job75]

Bonjour chaelie2015,

https://excel-downloads.com/threads...-place-des-caracteres.20047132/#post-20346366

A+

 

[Compte Supprimé 979]

Bonjour chaelie2015

Pour ce que vous souhaitez, vous devez passer par un USF

A+

 

[Usine à gaz]

Bonjour chaelie2015, Bonjour Gérard, le Forum 🙂

Peut-être avec le code du fichier joint ?
🙂

 

[chaelie2015]

Bonjour à tous,
Je vous remercie pour ces différentes propositions. Cependant, c'est la proposition de job75 qui se rapproche le plus de ma préoccupation.
A+

 

[Compte Supprimé 979]

Re,

Bien dommage 🙁
utiliser une usine à gaz pour un simple masquage de caractère alors que c'est prévu dans les Textbox 🤔

J'espère que vous n'utiliserez le fichier que sur PC et que vous n'aurez jamais de soucis...