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 !