Mot de passe

[Provence Vintage]

Salut le forum,

J'ai le code suivant:

Sub MOTDEPASSE()
Debut: 'retour mot de passe incorrect
A$ = InputBox("Mot de passe", "fonctions avancées")
If UCase(A$) = "" Then
Sheets("ADMINISTRATEUR").Activate: Range("D2").Select
Application.Run "'Logiciel Fournisseurs v8.xlsm'!ouvriradministrateur"
ElseIf A$ > "" Then
MsgBox "Mot de passe incorrect !": GoTo Debut 'retour Debut
Else: Exit Sub 'si "" quitte
End If
End Sub

Qui peux me déboguer le code, j'ai le message suivant:
Erreur de compilation
"Le caractère de déclaration de type ne correspond pas aux types de données déclarées"??????
Merci😕

 

[kllmoon]

Re : Mot de passe

c'est pourquoi ce truc? si on fait cancel, c'est comme si on entrait le bon mp... J'ai un petit code que j'ai écris pour protéger des feuilles au bureau, si c'est ce que tu cherches, envoie moi un mp et je te le refile demain.

 

[tora]

Re : Mot de passe

Salut le forum,

J'ai le code suivant:

Sub MOTDEPASSE()
Debut: 'retour mot de passe incorrect
A$ = InputBox("Mot de passe", "fonctions avancées")
If UCase(A$) = "" Then
Sheets("ADMINISTRATEUR").Activate: Range("D2").Select
Application.Run "'Logiciel Fournisseurs v8.xlsm'!ouvriradministrateur"
ElseIf A$ > "" Then
MsgBox "Mot de passe incorrect !": GoTo Debut 'retour Debut
Else: Exit Sub 'si "" quitte
End If
End Sub

Qui peux me déboguer le code, j'ai le message suivant:
Erreur de compilation
"Le caractère de déclaration de type ne correspond pas aux types de données déclarées"??????
Merci😕

pas sur d'avoir ta solution mais peut-etre :

Sub Verif_MDP()
Dim MDP As String, Reponse As String, Compteur As Byte: Compteur = 0
MDP = "ton mot de passe"
Do
Compteur = Compteur + 1
Reponse = InputBox("Tapez le mot de passe pour continuer", "Controle")
If Compteur > 9 Then Exit Sub
Loop While UCase(Reponse) <> UCase(MDP)
Application.Run "ma macro"
End Sub

donc 10 essais pour entrer le bon MDP sinon fin procedure

 

[JNP]

Re : Mot de passe

Bonjour le forum 🙂,
J'ai l'impression que le problème vient de

Application.Run "'Logiciel Fournisseurs v8.xlsm'!ouvriradministrateur"

Tu lui demandes d'aller chercher une macro dans un autre classeur. Celui-ci est-il bien ouvert ? Ne faudrait-il pas passer par le path complet ?
Bonne journée 😎