bouton ok dans mot de passe qui ne fonctionne pas

BLACKHAYES

XLDnaute Impliqué

• 14 Juillet 2011

• #2

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

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 14 Juillet 2011

• #3

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

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 14 Juillet 2011

• #4

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

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 14 Juillet 2011

• #5

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?,

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 14 Juillet 2011

• #6

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

carcharodon-carcharias à dit:

re
peut être
comme ceci :

VB:

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

Cliquez pour agrandir...

maintenant il me met en erreur

message d'erreur "Else if"

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 14 Juillet 2011

• #7

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

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

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 14 Juillet 2011

• #8

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

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 15 Juillet 2011

• #9

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

carcharodon-carcharias à dit:

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

Cliquez pour agrandir...

bonjour le forum,

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

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 15 Juillet 2011

• #10

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"

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Juillet 2011

• #11

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.

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 15 Juillet 2011

• #12

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

 

Pièces jointes

• Fichier test.xls

  37 KB · Affichages: 51
• Fichier test.xls

  37 KB · Affichages: 51
• Fichier test.xls

  37 KB · Affichages: 49

Vote positif 0 Vote négatif