Mot de passe

Bonjour,

Je suis toujours bloqué sur mon mot de passe
qui vérrouille la feuille "JournalVentes"
Je veux juste demander un mot de passe pour
L'ouvrir, pas pour cacher l'onglet.
Voici le code que j'essaye de mètre au point.

Sub mdp()
zz = InputBox("Entrez votre mot de passe")
If zz = "zaza" Then GoTo Line1 Else GoTo Line2

Line1: Sheets("JournalVentes").Select

Line2: MsgBox ("Mot de passe faux")

Sheets("Menu").Select
End
Explications, je veux l'ouvrir par le mot de passe, s'il est faux message
d'erreur,et je reste sur la page menu.
Merci encore de votre soutien, j'en ai bien besoin.
Peponne31
Bonjour,

quelque chose du genre ?

Sub mdp()
zz = InputBox("Entrez le mot de passe")

If zz = "zaza" Then
Sheets("JournalVentes").Select
Else
MsgBox "Mot de passe faux !"
End If
End Sub
Bon week-end

Rai

Bojour Rai,

Pour le mot de passe en ouverture cela fonctionne,
mais pour quitter JournalVentes il me redemande le mot de passe
et malgré le bon mot il me bloque sur la page.
Deplus si je lui donne un mauvais mot de passe, il me dit mot de passe faux
mais il ouvre tout de même la page.Comment puis-je y remédier ??
MErci encore
Peponne31

Bonjour,

Je suis toujours bloqué sur mon mot de passe
qui vérrouille la feuille "JournalVentes"
Je veux juste demander un mot de passe pour
L'ouvrir, pas pour cacher l'onglet.
Voici le code que j'essaye de mètre au point.

Sub mdp()
zz = InputBox("Entrez votre mot de passe")
If zz = "zaza" Then GoTo Line1 Else GoTo Line2

Line1: Sheets("JournalVentes").Select

Line2: MsgBox ("Mot de passe faux")

Sheets("Menu").Select
End
Explications, je veux l'ouvrir par le mot de passe, s'il est faux message
d'erreur,et je reste sur la page menu.
Merci encore de votre soutien, j'en ai bien besoin.
Peponne31
Bonjour,

quelque chose du genre ?

Sub mdp()
zz = InputBox("Entrez le mot de passe")

If zz = "zaza" Then
Sheets("JournalVentes").Select
Else
MsgBox "Mot de passe faux !"
End If
End Sub
Bon week-end

Rai

Bonjour,
Essaie ceci:
'---------
Sub jj()
mdp = InputBox("Entrez le mot de passe", "mot de passe")
If mdp = "" Then Exit Sub
If mdp = "toto" Then
Sheets("JournalVentes").Visible = True
Sheets("JournalVentes").Activate
Else
Sheets("JournalVentes").Visible = False
MsgBox "Mot de passe érroné"
End If
End Sub
'----------
Gare à la Ferrari ;o))
Salutations
JJ

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news:95C81BDA-FB40-405C-AB3E-A361D581E2E8@microsoft.com...

Bonjour,

Je suis toujours bloqué sur mon mot de passe
qui vérrouille la feuille "JournalVentes"
Je veux juste demander un mot de passe pour
L'ouvrir, pas pour cacher l'onglet.
Voici le code que j'essaye de mètre au point.

Sub mdp()
zz = InputBox("Entrez votre mot de passe")
If zz = "zaza" Then GoTo Line1 Else GoTo Line2

Line1: Sheets("JournalVentes").Select

Line2: MsgBox ("Mot de passe faux")

Sheets("Menu").Select
End
Explications, je veux l'ouvrir par le mot de passe, s'il est faux message
d'erreur,et je reste sur la page menu.
Merci encore de votre soutien, j'en ai bien besoin.
Peponne31

Bonjour Jacky,

Merci pour ton aide, j'en suis toujours au même point,
à savoir que le mot de passe fonctionne, il m'ouvre la page,
mais dans la page jai un commandButton qui me permet
de fermer la page JournalDevis et de retourner au menu
et la ça coince, il ne ferme + rien je reste bloqué sur la page.
En + si j'écris un mot de passe érroné,
il me renvoi un message d'erreur en jaune " Sheets("JournalVentes").Select"
je pense que cela provient du verrouillage de la feuille en cas de mauvais
mot de passe.
Merci encore pour ce désagrément.
Peponne31

Bonjour,
Essaie ceci:
'---------
Sub jj()
mdp = InputBox("Entrez le mot de passe", "mot de passe")
If mdp = "" Then Exit Sub
If mdp = "toto" Then
Sheets("JournalVentes").Visible = True
Sheets("JournalVentes").Activate
Else
Sheets("JournalVentes").Visible = False
MsgBox "Mot de passe érroné"
End If
End Sub
'----------
Gare à la Ferrari ;o))
Salutations
JJ

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news:95C81BDA-FB40-405C-AB3E-A361D581E2E8@microsoft.com...

Bonjour,

Je suis toujours bloqué sur mon mot de passe
qui vérrouille la feuille "JournalVentes"
Je veux juste demander un mot de passe pour
L'ouvrir, pas pour cacher l'onglet.
Voici le code que j'essaye de mètre au point.

Sub mdp()
zz = InputBox("Entrez votre mot de passe")
If zz = "zaza" Then GoTo Line1 Else GoTo Line2

Line1: Sheets("JournalVentes").Select

Line2: MsgBox ("Mot de passe faux")

Sheets("Menu").Select
End
Explications, je veux l'ouvrir par le mot de passe, s'il est faux message
d'erreur,et je reste sur la page menu.
Merci encore de votre soutien, j'en ai bien besoin.
Peponne31

Re...

JournalDevis ????
La feuille qui s'affiche est JournalVentes, non ???
Edit ton code ou mets ton fichier en ligne sur
http://cjoint.com
Salutations
JJ

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news:1862C50B-1629-4400-92F7-49B898B810D3@microsoft.com...

Bonjour Jacky,

Merci pour ton aide, j'en suis toujours au même point,
à savoir que le mot de passe fonctionne, il m'ouvre la page,
mais dans la page jai un commandButton qui me permet
de fermer la page JournalDevis et de retourner au menu
et la ça coince, il ne ferme + rien je reste bloqué sur la page.
En + si j'écris un mot de passe érroné,
il me renvoi un message d'erreur en jaune "
Sheets("JournalVentes").Select"

je pense que cela provient du verrouillage de la feuille en cas de mauvais
mot de passe.
Merci encore pour ce désagrément.
Peponne31

Bonjour,
Essaie ceci:
'---------
Sub jj()
mdp = InputBox("Entrez le mot de passe", "mot de passe")
If mdp = "" Then Exit Sub
If mdp = "toto" Then
Sheets("JournalVentes").Visible = True
Sheets("JournalVentes").Activate
Else
Sheets("JournalVentes").Visible = False
MsgBox "Mot de passe érroné"
End If
End Sub
'----------
Gare à la Ferrari ;o))
Salutations
JJ

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
message de

news:95C81BDA-FB40-405C-AB3E-A361D581E2E8@microsoft.com...

Bonjour,

Je suis toujours bloqué sur mon mot de passe
qui vérrouille la feuille "JournalVentes"
Je veux juste demander un mot de passe pour
L'ouvrir, pas pour cacher l'onglet.
Voici le code que j'essaye de mètre au point.

Sub mdp()
zz = InputBox("Entrez votre mot de passe")
If zz = "zaza" Then GoTo Line1 Else GoTo Line2

Line1: Sheets("JournalVentes").Select

Line2: MsgBox ("Mot de passe faux")

Sheets("Menu").Select
End
Explications, je veux l'ouvrir par le mot de passe, s'il est faux
message

d'erreur,et je reste sur la page menu.
Merci encore de votre soutien, j'en ai bien besoin.
Peponne31

Re
Oups autant pour moi, c'est bien JournalVentes.
Le code étant trop gros, je te redonne le même code

Sub jj()
mdp = InputBox("Entrez le mot de passe", "mot de passe")
If mdp = "" Then Exit Sub
If mdp = "toto" Then
'Sheets("JournalVentes").Visible = True
Sheets("JournalVentes").Activate
Else
MsgBox "Mot de passe érroné"
End If
Sheets("Menu").Select
End Sub
Merci encore

peponne31

Re...

JournalDevis ????
La feuille qui s'affiche est JournalVentes, non ???
Edit ton code ou mets ton fichier en ligne sur
http://cjoint.com
Salutations
JJ

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news:1862C50B-1629-4400-92F7-49B898B810D3@microsoft.com...

Bonjour Jacky,

Merci pour ton aide, j'en suis toujours au même point,
à savoir que le mot de passe fonctionne, il m'ouvre la page,
mais dans la page jai un commandButton qui me permet
de fermer la page JournalDevis et de retourner au menu
et la ça coince, il ne ferme + rien je reste bloqué sur la page.
En + si j'écris un mot de passe érroné,
il me renvoi un message d'erreur en jaune "
Sheets("JournalVentes").Select"

je pense que cela provient du verrouillage de la feuille en cas de mauvais
mot de passe.
Merci encore pour ce désagrément.
Peponne31

Bonjour,
Essaie ceci:
'---------
Sub jj()
mdp = InputBox("Entrez le mot de passe", "mot de passe")
If mdp = "" Then Exit Sub
If mdp = "toto" Then
Sheets("JournalVentes").Visible = True
Sheets("JournalVentes").Activate
Else
Sheets("JournalVentes").Visible = False
MsgBox "Mot de passe érroné"
End If
End Sub
'----------
Gare à la Ferrari ;o))
Salutations
JJ

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
message de

news:95C81BDA-FB40-405C-AB3E-A361D581E2E8@microsoft.com...

Bonjour,

Je suis toujours bloqué sur mon mot de passe
qui vérrouille la feuille "JournalVentes"
Je veux juste demander un mot de passe pour
L'ouvrir, pas pour cacher l'onglet.
Voici le code que j'essaye de mètre au point.

Sub mdp()
zz = InputBox("Entrez votre mot de passe")
If zz = "zaza" Then GoTo Line1 Else GoTo Line2

Line1: Sheets("JournalVentes").Select

Line2: MsgBox ("Mot de passe faux")

Sheets("Menu").Select
End
Explications, je veux l'ouvrir par le mot de passe, s'il est faux
message

d'erreur,et je reste sur la page menu.
Merci encore de votre soutien, j'en ai bien besoin.
Peponne31

Re...
Mise à part l'annulation par l'apostrophe devant la commande True de la
feuille en question, il n'y a aucune changement dans ce code, et il
fonctionne.....
Il y a quelque chose qui m'échappe.
Tu dis que la feuille s'affiche,... bon s'était le but..., mais ensuite tu
dis avoir un autre code lié à un bouton qui masque la feuille à nouveau,
c'est dans ce code que se trouve l'erreur et non dans celui ci-dessous.
Edite celui qui est lié au commandButton...
JJ

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news:EADCA016-28AE-4457-A90D-3B78B23A520A@microsoft.com...

Re
Oups autant pour moi, c'est bien JournalVentes.
Le code étant trop gros, je te redonne le même code

Sub jj()
mdp = InputBox("Entrez le mot de passe", "mot de passe")
If mdp = "" Then Exit Sub
If mdp = "toto" Then
'Sheets("JournalVentes").Visible = True
Sheets("JournalVentes").Activate
Else
MsgBox "Mot de passe érroné"
End If
Sheets("Menu").Select
End Sub
Merci encore

peponne31

Re...

JournalDevis ????
La feuille qui s'affiche est JournalVentes, non ???
Edit ton code ou mets ton fichier en ligne sur
http://cjoint.com
Salutations
JJ

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
message de

news:1862C50B-1629-4400-92F7-49B898B810D3@microsoft.com...

Bonjour Jacky,

Merci pour ton aide, j'en suis toujours au même point,
à savoir que le mot de passe fonctionne, il m'ouvre la page,
mais dans la page jai un commandButton qui me permet
de fermer la page JournalDevis et de retourner au menu
et la ça coince, il ne ferme + rien je reste bloqué sur la page.
En + si j'écris un mot de passe érroné,
il me renvoi un message d'erreur en jaune "
Sheets("JournalVentes").Select"

je pense que cela provient du verrouillage de la feuille en cas de
mauvais

mot de passe.
Merci encore pour ce désagrément.
Peponne31

Bonjour,
Essaie ceci:
'---------
Sub jj()
mdp = InputBox("Entrez le mot de passe", "mot de passe")
If mdp = "" Then Exit Sub
If mdp = "toto" Then
Sheets("JournalVentes").Visible = True
Sheets("JournalVentes").Activate
Else
Sheets("JournalVentes").Visible = False
MsgBox "Mot de passe érroné"
End If
End Sub
'----------
Gare à la Ferrari ;o))
Salutations
JJ

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
message de

news:95C81BDA-FB40-405C-AB3E-A361D581E2E8@microsoft.com...

Bonjour,

Je suis toujours bloqué sur mon mot de passe
qui vérrouille la feuille "JournalVentes"
Je veux juste demander un mot de passe pour
L'ouvrir, pas pour cacher l'onglet.
Voici le code que j'essaye de mètre au point.

Sub mdp()
zz = InputBox("Entrez votre mot de passe")
If zz = "zaza" Then GoTo Line1 Else GoTo Line2

Line1: Sheets("JournalVentes").Select

Line2: MsgBox ("Mot de passe faux")

Sheets("Menu").Select
End
Explications, je veux l'ouvrir par le mot de passe, s'il est faux
message

d'erreur,et je reste sur la page menu.
Merci encore de votre soutien, j'en ai bien besoin.
Peponne31

re,
Voici un code qui fonctionne un peux mieux, sans passer
par un Module.
Il est écrit directement dans la feuille Menu.

Private Sub JournalVentes_Click
Dim mdp
mdp = InputBox("Mot de passe", "Journal des factures")
If mdp = "" Then Exit Sub
If mdp = "toto" Then Sheets("JournalVentes").Activate
Sheets("JournalVentes").Select
ActivateWindow.windowState = xlMaximized
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
ActivateWindow.DisplayHeadings = False
End Sub
ceci fonctionne sauf pourun mot de passe érronné.
Merci encore
Peponne31

Bonjour,

Je suis toujours bloqué sur mon mot de passe
qui vérrouille la feuille "JournalVentes"
Je veux juste demander un mot de passe pour
L'ouvrir, pas pour cacher l'onglet.
Voici le code que j'essaye de mètre au point.

Sub mdp()
zz = InputBox("Entrez votre mot de passe")
If zz = "zaza" Then GoTo Line1 Else GoTo Line2

Line1: Sheets("JournalVentes").Select

Line2: MsgBox ("Mot de passe faux")

Sheets("Menu").Select
End
Explications, je veux l'ouvrir par le mot de passe, s'il est faux message
d'erreur,et je reste sur la page menu.
Merci encore de votre soutien, j'en ai bien besoin.
Peponne31

*Bonjour Peponne31*,
C'est normale, Si le mot de passe n'est pas bon, tu demande quand meme
de selectionner la feuille "JournalVentes". Modifie ton test comme ci
dessous, ca devrait aller ;-)

re,
Voici un code qui fonctionne un peux mieux, sans passer
par un Module.
Il est écrit directement dans la feuille Menu.

Private Sub JournalVentes_Click
Dim mdp
mdp = InputBox("Mot de passe", "Journal des factures")
If mdp = "" Then Exit Sub
If mdp = "toto" Then

Sheets("JournalVentes").Activate
Sheets("JournalVentes").Select
ActivateWindow.windowState = xlMaximized
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End If

ActivateWindow.DisplayHeadings = False
End Sub
ceci fonctionne sauf pourun mot de passe érronné.
Merci encore
Peponne31

Bonjour,

Je suis toujours bloqué sur mon mot de passe
qui vérrouille la feuille "JournalVentes"
Je veux juste demander un mot de passe pour
L'ouvrir, pas pour cacher l'onglet.
Voici le code que j'essaye de mètre au point.

Sub mdp()
zz = InputBox("Entrez votre mot de passe")
If zz = "zaza" Then GoTo Line1 Else GoTo Line2

Line1: Sheets("JournalVentes").Select

Line2: MsgBox ("Mot de passe faux")

Sheets("Menu").Select
End
Explications, je veux l'ouvrir par le mot de passe, s'il est faux message
d'erreur,et je reste sur la page menu.
Merci encore de votre soutien, j'en ai bien besoin.
Peponne31

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

re
Je pense mal expliquer ce que je veux.
Voyons, par rapport à ce code,

Private Sub JournalVentes_Click
Dim mdp
mdp = InputBox("Mot de passe", "Journal des factures")
If mdp = "" Then Exit Sub
If mdp = "toto" Then Sheets("JournalVentes").Activate
Sheets("JournalVentes").Select

ActivateWindow.windowState = xlMaximized
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
ActivateWindow.DisplayHeadings = False
End Sub

je voudrais à partir de la ligne 7 (celle qui est vide) pouvoir contrôler la
saisie
du mot de passe, donc si le mot de passe est différent de "toto" afficher
"Mot de passe erronné" et rester sur la feuille ("menu") je pense que je me
suis bien expliquer ce coup ci.
Merci encore
Peponne31

re,
Voici un code qui fonctionne un peux mieux, sans passer
par un Module.
Il est écrit directement dans la feuille Menu.

Private Sub JournalVentes_Click
Dim mdp
mdp = InputBox("Mot de passe", "Journal des factures")
If mdp = "" Then Exit Sub
If mdp = "toto" Then Sheets("JournalVentes").Activate
Sheets("JournalVentes").Select
ActivateWindow.windowState = xlMaximized
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
ActivateWindow.DisplayHeadings = False
End Sub
ceci fonctionne sauf pourun mot de passe érronné.
Merci encore
Peponne31

Bonjour,

Je suis toujours bloqué sur mon mot de passe
qui vérrouille la feuille "JournalVentes"
Je veux juste demander un mot de passe pour
L'ouvrir, pas pour cacher l'onglet.
Voici le code que j'essaye de mètre au point.

Sub mdp()
zz = InputBox("Entrez votre mot de passe")
If zz = "zaza" Then GoTo Line1 Else GoTo Line2

Line1: Sheets("JournalVentes").Select

Line2: MsgBox ("Mot de passe faux")

Sheets("Menu").Select
End
Explications, je veux l'ouvrir par le mot de passe, s'il est faux message
d'erreur,et je reste sur la page menu.
Merci encore de votre soutien, j'en ai bien besoin.
Peponne31