chaelie2015
XLDnaute Accro
Bonjour FORUM
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+
VB:
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 SubJ'aimerais que le mot de passe soit dissimulé par des étoiles lorsque je le saisis dans la boîte de dialogue.
A+