Obliger la saisie d'une cellule

Le
Sunburn
Bonjour,
puis-je obliger à l'ouverture du dossier de saisir une cellule ?
Merci

YANN
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17344401
Oui, pour autant que les macros soient activées. Ce n'est toutefois pas une
sécurité absolue, mais celui qui veut tricher devra réfléchir un peu.
Si tu veux que l'utilisateur ne puisse rien voir tu devras avoir une feuille
vierge qui s'affichera à l'oouverture (ici feui1). La macro oblige à remplir
la cellule A1 de Feuil2. Cette feuille est protégée par le mot de passe
"toto".
Dans "Thisworkbook, mets :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In Sheets
If sh.Name <> "Feuil1" Then
sh.Visible = xlVeryHidden
End If
Next
End Sub

Private Sub Workbook_Open()
For Each sh In Sheets
If sh.Name <> "Feuil1" Then
sh.Visible = xlVeryHidden
End If
Next
Var = InputBox("Entrez le contenu de la cellule A1 de la feuille
""Feuil2")
If Var = "" Then
ThisWorkbook.Close False
Else
For Each sh In Sheets
If sh.Name <> "Feuil1" Then
sh.Visible = True
End If
Next
Sheets("Feuil2").Unprotect Password:="toto"
[Feuil2!A1] = Var
Sheets("Feuil2").Protect Password:="toto"
End If
End Sub

--
Cordialement.
Daniel
"Sunburn" news:
Bonjour,
puis-je obliger à l'ouverture du dossier de saisir une cellule ?
Merci

YANN


Jacky
Le #17344591
Bonjour,

puis-je obliger à l'ouverture du dossier de saisir une cellule ?


Ici la valeur de la cellule A1 de la feuille 1. A adapter
'------------
Private Sub Workbook_Open()
Do
reponse = InputBox("Entrez la valeur pour la cellule A1 de la feuille 1",
Application.UserName)
Loop Until reponse = "toto" ' au choix valider cette ligne ou celle
ci-dessous
'Loop Until reponse <> ""
Sheets("feuil1").[a1] = reponse
End Sub
'------------------
--
Salutations
JJ


"Sunburn" news:
Bonjour,
Merci

YANN


lSteph
Le #17344761
Bonjour,

S'il y avait déjà qqchose dedans faut-il obliger de saisir autre
chose?

...

On 26 sep, 09:23, Sunburn
Bonjour,
puis-je obliger à l'ouverture du dossier de saisir une cellule ?
Merci

YANN


Sunburn
Le #17345571
bonjour,
non, je veux juste que cette cellule soit remplie, car elle est nécessaire
pour les autres pages du classeur.
C'est une cellule d'identification, l'utilisateur doit y mettre ses initiales.
Mais pas à chaque fois qu'il ouvre le classeur, juste quand la cellule est
vide (dossier modèle en somme)
Merci.
Yann

"lSteph" a écrit :

Bonjour,

S'il y avait déjà qqchose dedans faut-il obliger de saisir autre
chose?

....

On 26 sep, 09:23, Sunburn > Bonjour,
> puis-je obliger à l'ouverture du dossier de saisir une cellule ?
> Merci
>
> YANN




Sunburn
Le #17345561
Bonjour,
Ok, j'ai utilisé ton code, mais est-il possible que quand on clique sur
"Annuler", cela quitte Excel ?
Merci

"Jacky" a écrit :

Bonjour,

> puis-je obliger à l'ouverture du dossier de saisir une cellule ?
Ici la valeur de la cellule A1 de la feuille 1. A adapter
'------------
Private Sub Workbook_Open()
Do
reponse = InputBox("Entrez la valeur pour la cellule A1 de la feuille 1",
Application.UserName)
Loop Until reponse = "toto" ' au choix valider cette ligne ou celle
ci-dessous
'Loop Until reponse <> ""
Sheets("feuil1").[a1] = reponse
End Sub
'------------------
--
Salutations
JJ


"Sunburn" news:
> Bonjour,
> Merci
>
> YANN






Sunburn
Le #17345701
Ok je te remercie, j'étudie cette solution en cachant les feuilles, bonne idée.
mais comment ne pas mettre de mot de passe pour vérouiller cette page ? Merci
voici mon code adapté :
---
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each Sh In Sheets
If Sh.Name <> "DA" Then
Sh.Visible = xlVeryHidden
End If
Next
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each Sh In Sheets
If Sh.Name <> "DA" Then
Sh.Visible = xlVeryHidden
End If
Next
Var = InputBox("Entrez vos initiales")
If Var = "" Then
ThisWorkbook.Close False
Else
For Each Sh In Sheets
If Sh.Name <> "DA" Then
Sh.Visible = True
End If
Next
Sheets("DA").Unprotect Password:="toto"
[DA!D17] = Var
Sheets("DA").Protect Password:="toto"
End If
End Sub
-------------

"Daniel.C" a écrit :

Oui, pour autant que les macros soient activées. Ce n'est toutefois pas une
sécurité absolue, mais celui qui veut tricher devra réfléchir un peu.
Si tu veux que l'utilisateur ne puisse rien voir tu devras avoir une feuille
vierge qui s'affichera à l'oouverture (ici feui1). La macro oblige à remplir
la cellule A1 de Feuil2. Cette feuille est protégée par le mot de passe
"toto".
Dans "Thisworkbook, mets :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In Sheets
If sh.Name <> "Feuil1" Then
sh.Visible = xlVeryHidden
End If
Next
End Sub

Private Sub Workbook_Open()
For Each sh In Sheets
If sh.Name <> "Feuil1" Then
sh.Visible = xlVeryHidden
End If
Next
Var = InputBox("Entrez le contenu de la cellule A1 de la feuille
""Feuil2")
If Var = "" Then
ThisWorkbook.Close False
Else
For Each sh In Sheets
If sh.Name <> "Feuil1" Then
sh.Visible = True
End If
Next
Sheets("Feuil2").Unprotect Password:="toto"
[Feuil2!A1] = Var
Sheets("Feuil2").Protect Password:="toto"
End If
End Sub

--
Cordialement.
Daniel
"Sunburn" news:
> Bonjour,
> puis-je obliger à l'ouverture du dossier de saisir une cellule ?
> Merci
>
> YANN





Jacky
Le #17346281
Re...
D'après les explications aux autres intervenants, je suis pas sur d'avoir
compris...
Essaie:
'----------
Private Sub Workbook_Open()
reponse = InputBox("Entrez vos initiales", Application.UserName)
If reponse = "" Then
Application.DisplayAlerts = False
Application.Application.Quit
End If
Sheets("feuil1").[a1] = reponse
End Sub
'------------
--
Salutations
JJ


"Sunburn" news:
Bonjour,
Ok, j'ai utilisé ton code, mais est-il possible que quand on clique sur
"Annuler", cela quitte Excel ?
Merci

"Jacky" a écrit :

Bonjour,

> puis-je obliger à l'ouverture du dossier de saisir une cellule ?
Ici la valeur de la cellule A1 de la feuille 1. A adapter
'------------
Private Sub Workbook_Open()
Do
reponse = InputBox("Entrez la valeur pour la cellule A1 de la feuille 1",
Application.UserName)
Loop Until reponse = "toto" ' au choix valider cette ligne ou celle
ci-dessous
'Loop Until reponse <> ""
Sheets("feuil1").[a1] = reponse
End Sub
'------------------
--
Salutations
JJ


"Sunburn" news:
> Bonjour,
> Merci
>
> YANN








Sunburn
Le #17346471
Re,
j'ai trouvé pour ne pas vérouiller, c'était tout simple, il fallait juste
remettre mes neuronnes en route, c'est vendredi, lol.
Mais j'ai penser à des améliorations :
Ma feuille comporte des cellules vérouillées et d'autres non.
Toutes mes feuilles sont protégées par VBA à la création du classeur, par
mot de passe "toto".
il faudrait vérifier pour 2 cellules D15 et D17.
ensuite, si les deux ou l'une des deux est vide, alors mettre la boite de
dialogue : "saisir initiales 1", puis la boite de dialogue "saisir initiales
2".
et lorsque ces cellules sont saisies, il faudrait les vérouiller.

je dois mettre quelque chose au début de la macro du genre :
if D15 and D17 <> ""
then end sub
---
et aussi
---
cells(D15 and D17).select
selection.protect
---
Mais bon, comme j'ai du mal avec le language, je veux bien de l'aide.

Je te remercie.

"Daniel.C" a écrit :

Oui, pour autant que les macros soient activées. Ce n'est toutefois pas une
sécurité absolue, mais celui qui veut tricher devra réfléchir un peu.
Si tu veux que l'utilisateur ne puisse rien voir tu devras avoir une feuille
vierge qui s'affichera à l'oouverture (ici feui1). La macro oblige à remplir
la cellule A1 de Feuil2. Cette feuille est protégée par le mot de passe
"toto".
Dans "Thisworkbook, mets :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In Sheets
If sh.Name <> "Feuil1" Then
sh.Visible = xlVeryHidden
End If
Next
End Sub

Private Sub Workbook_Open()
For Each sh In Sheets
If sh.Name <> "Feuil1" Then
sh.Visible = xlVeryHidden
End If
Next
Var = InputBox("Entrez le contenu de la cellule A1 de la feuille
""Feuil2")
If Var = "" Then
ThisWorkbook.Close False
Else
For Each sh In Sheets
If sh.Name <> "Feuil1" Then
sh.Visible = True
End If
Next
Sheets("Feuil2").Unprotect Password:="toto"
[Feuil2!A1] = Var
Sheets("Feuil2").Protect Password:="toto"
End If
End Sub

--
Cordialement.
Daniel


lSteph
Le #17346461
Bonjour,

si vous ètes en réseau et que les postes démarrent avec un username e t
un mot de passe comme login
tu pourrais l'utiliser dans le workbook_open


if len(Feuil1.[A1])=0 then [a1]=application.environ("username")

--
lSteph


On 26 sep, 13:20, Sunburn
bonjour,
non, je veux juste que cette cellule soit remplie, car elle est nécessa ire
pour les autres pages du classeur.
C'est une cellule d'identification, l'utilisateur doit y mettre ses initi ales.
Mais pas à chaque fois qu'il ouvre le classeur, juste quand la cellule est
vide (dossier modèle en somme)
Merci.
Yann

"lSteph" a écrit :

> Bonjour,

> S'il y avait déjà qqchose dedans faut-il obliger de saisir autre
> chose?

> ....

> On 26 sep, 09:23, Sunburn > > Bonjour,
> > puis-je obliger à l'ouverture du dossier de saisir une cellule ?
> > Merci

> > YANN


Sunburn
Le #17586171
Bonjour,
oui je suis en réseau, et on a un username.
j'ai mis dans mon workbook :
-----
Private Sub Workbook_Open()
If Len(DA.[d17]) = 0 Then [d17] = Application.Environ("username")
end sub
-----
mais il souligne en jaune "If Len(DA.[d17]) = 0 Then"
DA : c'est le nom de ma feuille, et D17 c'est la cellule que je veux remplie
avec les initiales.
merci si vous savez pourquoi ça plante
Yann


"lSteph" a écrit :

Bonjour,

si vous ètes en réseau et que les postes démarrent avec un username et
un mot de passe comme login
tu pourrais l'utiliser dans le workbook_open


if len(Feuil1.[A1])=0 then [a1]=application.environ("username")

--
lSteph


On 26 sep, 13:20, Sunburn > bonjour,
> non, je veux juste que cette cellule soit remplie, car elle est nécessaire
> pour les autres pages du classeur.
> C'est une cellule d'identification, l'utilisateur doit y mettre ses initiales.
> Mais pas à chaque fois qu'il ouvre le classeur, juste quand la cellule est
> vide (dossier modèle en somme)
> Merci.
> Yann
>
> "lSteph" a écrit :
>
> > Bonjour,
>
> > S'il y avait déjà qqchose dedans faut-il obliger de saisir autre
> > chose?
>
> > ....
>
> > On 26 sep, 09:23, Sunburn > > > Bonjour,
> > > puis-je obliger à l'ouverture du dossier de saisir une cellule ?
> > > Merci
>
> > > YANN




Publicité
Poster une réponse
Anonyme