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

Microsoft 365 Affichage du texte de remplissage Inputbox

gaelle31

XLDnaute Nouveau
Bonjour,

J'ai créé une Inputbox qui donne accès à un onglet de mon fichier Excel. Pour accéder à cet onglet, il faut rentrer un mot de passe dans la Inputbox : s'il est correct, alors on accède à la feuille souhaitée, sinon un message (MsgBox) s'affiche disant que le mot de passe est erroné et l'utilisateur n'accède pas à la feuille cachée.
Si l'utilisateur clique sur annuler, alors rien ne s'affiche et la Inputbox se ferme.

Sub AccesAdministateur()

MDP = Application.InputBox("Entrez le mot de passe: ", "IDENTIFICATION", vbOKAnnuler)

If MDP = vbAnnuler Then
Exit Sub

ElseIf MDP = "kiki" Then
MsgBox "N'oubliez pas de sauvegarder vos modifications !", vbInformation, "ATTENTION"
Call Module2.colAfficher
Sheets("ACCES ADMIN").Visible = True
Worksheets("ACCES ADMIN").Select
Range("A1").Select


ElseIf MDP <> "kiki" Then
MsgBox ("mot de passe invalide")
Call Module2.colMasquer
End If

End Sub

En revanche, dès que ma Inputbox s'affiche sur Excel, un zéro apparait automatiquement (cf. capture ci après) à l'endroit où je dois renseigner mon mot de passe.
Comment puis-je l'enlever s'il-vous-plait ?



Merci d'avance !
 

Discussions similaires

Réponses
5
Affichages
712
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…