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 ?

1658734665882.png


Merci d'avance !
 

Discussions similaires

Réponses
5
Affichages
367
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 711
Messages
2 081 783
Membres
101 817
dernier inscrit
carvajal