XL 2016 recuperer la valeur d'une variable

[Don pépé]

bien le bonjour

Jexplique mon souci. J'ai fait un ruban quand je clique sur un des bouton je voudrais afficher un userform pour demander un mot de passe (jusque la pas de souci) mon probleme arrive quand je veux recuperer le mot de passe.

mon userform:

Option Explicit
Dim Mdp As String
Private Sub Valider_Click()
UserForm1.Hide
    Mdp = UserForm1.TextBox1.Value
    MsgBox Mdp
    Unload Me
End Sub

le msgbox affiche bien la variable

dans mon module:

Option Explicit
Public oRibbon As IRibbonUI
Public Mdp As String
Dim Voir_Masque As Boolean

Sub RibbonOnLoad(Ribbon As IRibbonUI)
    Set oRibbon = Ribbon
End Sub

Sub Ribbon_OnAction_Press(control As IRibbonControl, pressed As Boolean)
UserForm1.Show
Mdp = UserForm1.TextBox1.Value
MsgBox Mdp
If Mdp = "motdepasse" Then
    Voir_Masque = pressed
    oRibbon.Invalidate
    Exit Sub
Else
    MsgBox Prompt:="Vous n'êtes pas autorisé à  accéder à cette partie du logiciel.", _
    Buttons:=48, Title:="Erreur"
End If
End Sub

le msgbox n'affiche pas la variable
je n'arrive pas a transporter la variable de l'userform dans le module

merci pour votre aide

 

[Don pépé]

probleme résolut. j'ai trouver mon erreur. j'ai declarer 2 fois la meme variable donc conflit, j'ai donc supprimer la déclaration de la variable dans l'userform. 😉