bouton ok dans mot de passe qui ne fonctionne pas

[BLACKHAYES]

re bonjor le forum,

j ai créé un usf pour un mdp, mais quand je clique sur ok alors que la txtbx est vide, ou quand le mot de passe saisi n'est pas correct, l'usf sans va mais je ne recuperer pas mon usf de depart

 

[BLACKHAYES]

Re : bouton ok dans mot de passe qui ne fonctionne pas

alors j'ai juste remplacé dans le code, ouvrir une feuil plutot qu'un usf et ca ne marche pas, le bouton ok est inactif

je transmet mon code modifié

Private Sub CommandButton1_Click()
Dim MDP As String
MDP = " Le mot de passe "
If Me.TextBox1 <> MDP Or Me.TextBox1 = "" Then
Sheets("Acceuil").Select 0 ..............................................ligne modifié
Else
'Ton code si mdp est bon
End If
End Sub

 

[BLACKHAYES]

Re : bouton ok dans mot de passe qui ne fonctionne pas

ok, ca y est j'ai trouve le bug, j'etais en "application.vivible = false" que j'ai passé en "true"
rajouté "Unload me"
"Userform1.hide"

en fin de Sub

ais-je bien fait, en tout cas cela fonctionne

merci pour le coup de main

 

[BLACKHAYES]

Re : bouton ok dans mot de passe qui ne fonctionne pas

et bien non cela ne fonctionne pas tres bien car maintenant quand je tape n'importe quel mot ou lettre ca ouvre quand meme la feuil

mon code :

Private Sub CommandButton1_Click()
Dim MDP As String
MDP = " Philippe "
If Me.TextBox1 <> MDP Or Me.TextBox1 = "" Then
Sheets("Acceuil").Select 0
Application.Visible = True
UserForm12.Hide
Unload Me


Else
'Ton code si mdp est bon
End If
End Sub

 

[BLACKHAYES]

Re : bouton ok dans mot de passe qui ne fonctionne pas

je pense que cela doit venir du fait que je demande l'application visible,

n'y a t il pas moyen de deverouiller l'appli avec le mot de passe seulement et de la remettre invisible a la fermeture de la feuille?,

 

[BLACKHAYES]

Re : bouton ok dans mot de passe qui ne fonctionne pas

re
peut être
comme ceci :

Private Sub CommandButton1_Click()
    Dim MDP As String
    MDP = " Le mot de passe "
    'si MDP faux ou textbox vide retour sur la feuille et fin
    If Me.TextBox1 <> MDP Or Me.TextBox1 = "" Then Exit Sub
Else
    Application.Visible = True
    Sheets("Acceuil").Activate
    UserForm12.Hide
    Unload Me
End If
End Sub

maintenant il me met en erreur

message d'erreur "Else if"

 

[BLACKHAYES]

Re : bouton ok dans mot de passe qui ne fonctionne pas

non touours rien maintenant c'est le bouton qui ne marche oK plus

 

[BLACKHAYES]

Re : bouton ok dans mot de passe qui ne fonctionne pas

la ca fonctionne meme sans rentrer de mot de passe juste en cliquant sur ok

 

[BLACKHAYES]

Re : bouton ok dans mot de passe qui ne fonctionne pas

re

(déconnecté faute de débit )

est il possible d'avoir une copie du fichier ( selon les règles habituelles de la charte) merci

bonjour le forum,

il est trop lourd envoyer et en plus il est saisi de données confidentielles

 

[BLACKHAYES]

Re : bouton ok dans mot de passe qui ne fonctionne pas

re-bonjour

en fait, il me faut un code qui rend visible la feuil que si le "mot de passe" est "vrai" et reviens sur mon usf si "faux"

 

[Staple1600]

Re : bouton ok dans mot de passe qui ne fonctionne pas

Bonjour le fil

Encore une fois, il suffit de créer un fichier exemple.

On ne travaille pas sur les fichiers originaux sur xld.

 

[BLACKHAYES]

Re : bouton ok dans mot de passe qui ne fonctionne pas

voici mon fichier test

quand on clic sur ok sans mot passe ca affiche quand meme la feuil