Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Mot de passe

Mot de passe

17 réponses
Avatar
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
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Peponne31
Salut JLuc,

Je nai pas bien saisie le sens de ta réponse.
Salutations
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







Avatar
Peponne31
Re salut,
Je ne sais pas si tu as reçut le dernier message, au cas ou je te le re envoie

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
Ici je voudrais ajouter du code qui me contrôle la validitée du mot de passe
si le mot de passe est vrai j'ouvre la feuille "JournalVentes" si c'est faux
"Mot de passe erronné" et
je reste sur la feuille "Menu"
ActivateWindow.windowState = xlMaximized
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
ActivateWindow.DisplayHeadings = False
End Sub
au lieu de passer par un module, je passe directement
par le menu de feuille1("Menu")
Voila pour l'explication je pense avoir été assé clair.
Merci encore
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" a écrit dans le message de
news:
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" a écrit dans le
message de


news:
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" a écrit dans le
message de


news:
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





















Avatar
JLuc
*Bonjour Peponne31*,
Je reprends :

'Ton test sur le mot de passe :
If mdp = "toto" Then Sheets("JounalVentes").Activate
'Fin test

'Suite de la procedure
Sheets("JournalVentes").Select

'Tu ne veux pas de la feuille "JournalVentes", mais tu la selectionne
'quand meme !!!

Ce que je te propose, c'est :

If mdp = "toto" Then
Sheets("JournalVentes").Activate
Sheets("JournalVentes").Select
ActivateWindow.windowState = xlMaximized
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Else
Msgbox "Mauvais mot de passe..."
End If

Est on d'accord la dessus ?

Salut JLuc,

Je nai pas bien saisie le sens de ta réponse.
Salutations
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






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

O-O




Avatar
Clément Marcotte
Bonjour,

Je ne voudrais pas être rabat-joie, mais j'ai comme l'impression que ce
serait plus simple d'acheter un logiciel comptable. Par chez-nous, il existe
des programmes "de base" avec gestion des mots de passe multiples pour
l'équivalent d'environ 100 euros, peut-être même moins.

Vous devez bien avoir l'équivalent en Europe...


"Peponne31" a écrit dans le message de
news:
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


Avatar
Jacky
Bonsoir Clément
Vous devez bien avoir l'équivalent en Europe...


On utilise la Ferrari pour les mots de passe...
;-))
JJ

"Clément Marcotte" a écrit dans le message
de news: %
Bonjour,

Je ne voudrais pas être rabat-joie, mais j'ai comme l'impression que ce
serait plus simple d'acheter un logiciel comptable. Par chez-nous, il
existe des programmes "de base" avec gestion des mots de passe multiples
pour l'équivalent d'environ 100 euros, peut-être même moins.

Vous devez bien avoir l'équivalent en Europe...



Avatar
Jacky
Re...
Ici je voudrais ajouter du code qui me contrôle la validitée du mot de
passe
si le mot de passe est vrai j'ouvre la feuille "JournalVentes" si c'est
faux


C'est exactement ce que fait le code que je t'ai donné au départ.

Salutations
JJ

"Peponne31" a écrit dans le message de
news:
Re salut,
Je ne sais pas si tu as reçut le dernier message, au cas ou je te le re
envoie

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
Ici je voudrais ajouter du code qui me contrôle la validitée du mot de
passe
si le mot de passe est vrai j'ouvre la feuille "JournalVentes" si c'est
faux
"Mot de passe erronné" et
je reste sur la feuille "Menu"
ActivateWindow.windowState = xlMaximized
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
ActivateWindow.DisplayHeadings = False
End Sub
au lieu de passer par un module, je passe directement
par le menu de feuille1("Menu")
Voila pour l'explication je pense avoir été assé clair.
Merci encore
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" a écrit dans le message
de
news:
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" a écrit dans le
message de


news:
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" a écrit dans le
message de


news:
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























Avatar
Peponne31
Bonjour Jacky
Je te remerci pour le code que tu mas envoyé mais cela ne fonctionne pas.
Je tiens à vous remercier pour votre soutien, mais je laisee tomber pour le
moment.Merci encore peponne31



Bonsoir Clément
Vous devez bien avoir l'équivalent en Europe...


On utilise la Ferrari pour les mots de passe...
;-))
JJ

"Clément Marcotte" a écrit dans le message
de news: %
Bonjour,

Je ne voudrais pas être rabat-joie, mais j'ai comme l'impression que ce
serait plus simple d'acheter un logiciel comptable. Par chez-nous, il
existe des programmes "de base" avec gestion des mots de passe multiples
pour l'équivalent d'environ 100 euros, peut-être même moins.

Vous devez bien avoir l'équivalent en Europe...








1 2