Microsoft 365 Affichage du texte de remplissage Inputbox

[gaelle31]

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 !

 

[Dranreb]

Bonjour.
Enlevez la variable inconnue et non initialisée vbOKAnnuler en 3ième position, laquelle correspond au paramètre Default

 

[gaelle31]

Super, merci beaucoup !