Pour info, j'ai trouvé ce qui fonctionne dans le cas de mon fichier.
Le code est:
Dim Mdp As String
Dim Pw As String
Pw = "blabla"
recom:
Mdp = InputBox("Veuillez introduire votre mot de passe", "Mot de passe" )
If Mdp = Pw Then
UserForm1.Show 0
Else
If MsgBox("Mot de passe non valide, voulez-vous réessayer ?", vbExclamation + vbRetryCancel, "Mot de passe invalide" ) = vbRetry Then GoTo recom
End If
J'ai lié ce code au bouton de commande permettant l'affichage du userform.
Une bonne journée à vous,