(RESOLU)AFFICHER ET MASQUER PAR mot de passe

[chaelie2015]

Forum Bonjour

Sub Bouton1_QuandClic()
    If Range("AQ1").EntireColumn.Hidden = True Then ' La colonne est deja cachée
        Range("AQ1, AW1, AY1").EntireColumn.Hidden = False ' je les montre
    Else
        Range("AQ1, AW1, AY1").EntireColumn.Hidden = True ' je les cache
    End If
End Sub

je souhaite ajouter a ce code un Pass Word avant d'afficher les colonnes ?
SALUTATION

 

[chaelie2015]

Re : AFFICHER ET MASQUER PAR mot de passe

Re
j'ai pu trouvé une partie de solution de mon souci

Sub Bouton1_QuandClic()
    If Range("AQ1").EntireColumn.Hidden = True Then ' La colonne est deja cachée
       Dim mot_de_passe As String
        mot_de_passe = InputBox("Donnez le mot de passe")
        If mot_de_passe = "toto" Then
          Range("AQ1, AW1, AY1").EntireColumn.Hidden = False ' je les montre
          Range("4:6,21:24,37:40,53:56,71:74,85:88,103:106,119:122,137:140,153:156").EntireRow.Hidden = False ' je les montre
    Else: Exit Sub
        End If
        
        
        
        
        'Range("AQ1, AW1, AY1").EntireColumn.Hidden = False ' je les montre
        'Range("4:6,21:24,37:40,53:56,71:74,85:88,103:106,119:122,137:140,153:156").EntireRow.Hidden = False ' je les montre
    Else
        Range("AQ1, AW1, AY1").EntireColumn.Hidden = True ' je les cache
        Range("4:6,21:24,37:40,53:56,71:74,85:88,103:106,119:122,137:140,153:156").EntireRow.Hidden = True
    End If
End Sub

mais maintenant je souhaite masquer les caractères saisies du mot de passe par des étoiles ou autre ?
salutations

 

[Lolote83]

Re : AFFICHER ET MASQUER PAR mot de passe

Salut CHAELIE2015,
Effectivement, sur un INPUTBOX, on ne peut pas inscrire (ou je ne sais pas le faire) des * à la place des caractères saisis comme pour les mots de passe. Par contre via un formulaire, c'est possible.
Voir fichier joint ou deux boutons sont présents.
- Un correspondant à ton code
- Un correspondant à l'identique de ton code mais avec appel à un formulaire.
En espérant avoir correctement répondu à ta demande
@+ Lolote83

 

[chaelie2015]

Re : AFFICHER ET MASQUER PAR mot de passe

Bonjour Lolte83
merci pour la réponse, mais j'ai un message d'erreur "Erreur de compilation: attendu sub ou Function ?
peut être version d'excel ?
salutations

 

[Lolote83]

Re : AFFICHER ET MASQUER PAR mot de passe

Re salut,
Essaye avec cette version
@+ Lolote83

 

[chaelie2015]

Re : AFFICHER ET MASQUER PAR mot de passe

Re
super, merci pour la proposition de USF.
Pblm Résolu
salutations

 

[Si...]

Re : AFFICHER ET MASQUER PAR mot de passe

salut

Re
super, merci pour la proposition de USF.
Pblm Résolu

Si une proposition sans UsF t'intéresse ...