Excusez si je reviens à la charge....

Le
Clochard
Bon matin.

Sur le fil de "13Hubert". Objet : Une cellule vide => un message

JB a suggéré ceci qui fonctionne très bien d'ailleurs

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ensuite j'ai demandé s'il était possible d'y ajouter un mot ou un chiffre
quelconque qui servirait de mot de passe et qui, lorsqu'on ferme le
fichier s'efface automatiquement pour ne pas revenir à la prochaine
ouverture


Pan Got m’a suggéré d’ajouter ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Trim(Cells(3, 5).Value) = "" Then
On Error Resume Next
Cells(3, 5).Value = InputBox("valeur de la cellule 'C5' ?", "titre de la
boite")
Exit Sub
End If
End Sub


Mais j'arrive pas à la faire fonctionner
Mon fichier "Message" et la celllule en question A2

Croyez-vous pouvoir me dire ce que je dois changer ou faire Merci

--
Clochard
Aimerais bien savoir.
Merci!
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #4515231
Bonjour,

Mot de passe, attention à la Ferrari, elle risque de sortir du garage.;-)
Si c'est pour un "petit peu" protéger un classeur
Perso, j'utiliserai un truc du genre... par exemple.
Creation d'un userform+ textbox+bouton
A l'ouverture du fichier ceci:
'--------
Private Sub Workbook_Open()
UserForm1.Show
End Sub
'----------
Code du bouton ceci:
'-----------
Private Sub CommandButton1_Click()
If TextBox1.Text <> "toto" Then Application.Quit
Unload UserForm1
'suite du code
'appelle de macro
'masquer des feuilles
'etc
End Sub
'-----------
Voir ici
Mot de passe .....toto
http://cjoint.com/?flpsaMRXSp

--
Salutations
JJ


"Clochard"
Bon matin....

Sur le fil de "13Hubert".... Objet : Une cellule vide => un message

JB a suggéré ceci qui fonctionne très bien d'ailleurs...

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ensuite j'ai demandé s'il était possible d'y ajouter un mot ou un chiffre
quelconque qui servirait de mot de passe... et qui, lorsqu'on ferme le
fichier s'efface automatiquement pour ne pas revenir à la prochaine
ouverture...


Pan Got m'a suggéré d'ajouter ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Trim(Cells(3, 5).Value) = "" Then
On Error Resume Next
Cells(3, 5).Value = InputBox("valeur de la cellule 'C5' ?", "titre de
la
boite")
Exit Sub
End If
End Sub


Mais j'arrive pas à la faire fonctionner...
Mon fichier "Message" et la celllule en question A2

Croyez-vous pouvoir me dire ce que je dois changer ou faire... Merci...

--
Clochard
Aimerais bien savoir....
Merci!


Clochard
Le #4515161
Salut et merci de me répondre...

Ce que je cherche c'est lorsque j'ouvre le fichier avec

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ça m'oblige à entrer quelque chose dans la cellule afin d'avoir accès au
fichier...

Donc... est-ce possible avec la même macro... ajouter que nous devons
inscrire quelque chose de précis... tel "Toto" par exemple...

--
Clochard
Aimerais bien savoir....
Merci!



Bonjour,

Mot de passe, attention à la Ferrari, elle risque de sortir du garage.;-)
Si c'est pour un "petit peu" protéger un classeur
Perso, j'utiliserai un truc du genre... par exemple.
Creation d'un userform+ textbox+bouton
A l'ouverture du fichier ceci:
'--------
Private Sub Workbook_Open()
UserForm1.Show
End Sub
'----------
Code du bouton ceci:
'-----------
Private Sub CommandButton1_Click()
If TextBox1.Text <> "toto" Then Application.Quit
Unload UserForm1
'suite du code
'appelle de macro
'masquer des feuilles
'etc
End Sub
'-----------
Voir ici
Mot de passe .....toto
http://cjoint.com/?flpsaMRXSp

--
Salutations
JJ


"Clochard"
Bon matin....

Sur le fil de "13Hubert".... Objet : Une cellule vide => un message

JB a suggéré ceci qui fonctionne très bien d'ailleurs...

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ensuite j'ai demandé s'il était possible d'y ajouter un mot ou un chiffre
quelconque qui servirait de mot de passe... et qui, lorsqu'on ferme le
fichier s'efface automatiquement pour ne pas revenir à la prochaine
ouverture...


Pan Got m'a suggéré d'ajouter ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Trim(Cells(3, 5).Value) = "" Then
On Error Resume Next
Cells(3, 5).Value = InputBox("valeur de la cellule 'C5' ?", "titre de
la
boite")
Exit Sub
End If
End Sub


Mais j'arrive pas à la faire fonctionner...
Mon fichier "Message" et la celllule en question A2

Croyez-vous pouvoir me dire ce que je dois changer ou faire... Merci...

--
Clochard
Aimerais bien savoir....
Merci!









Jacky
Le #4515121
Re...
Ces codes ne sont valable qu'individuellement pour chaque feuille, si le
classeur est fermé sur une autre feuille qui ne comporte pas ces codes, cela
ne fonctionnera pas.
Mais bon...
'--------------
Private Sub Worksheet_Activate()
If [B10] <> "toto" Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [B10] <> "toto" Then [B10].Select
End Sub
'-------------
--
Salutations
JJ


"Clochard"
Salut et merci de me répondre...

Ce que je cherche c'est lorsque j'ouvre le fichier avec

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ça m'oblige à entrer quelque chose dans la cellule afin d'avoir accès au
fichier...

Donc... est-ce possible avec la même macro... ajouter que nous devons
inscrire quelque chose de précis... tel "Toto" par exemple...

--
Clochard
Aimerais bien savoir....
Merci!



Bonjour,

Mot de passe, attention à la Ferrari, elle risque de sortir du garage.;-)
Si c'est pour un "petit peu" protéger un classeur
Perso, j'utiliserai un truc du genre... par exemple.
Creation d'un userform+ textbox+bouton
A l'ouverture du fichier ceci:
'--------
Private Sub Workbook_Open()
UserForm1.Show
End Sub
'----------
Code du bouton ceci:
'-----------
Private Sub CommandButton1_Click()
If TextBox1.Text <> "toto" Then Application.Quit
Unload UserForm1
'suite du code
'appelle de macro
'masquer des feuilles
'etc
End Sub
'-----------
Voir ici
Mot de passe .....toto
http://cjoint.com/?flpsaMRXSp

--
Salutations
JJ


"Clochard"
Bon matin....

Sur le fil de "13Hubert".... Objet : Une cellule vide => un message

JB a suggéré ceci qui fonctionne très bien d'ailleurs...

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ensuite j'ai demandé s'il était possible d'y ajouter un mot ou un
chiffre
quelconque qui servirait de mot de passe... et qui, lorsqu'on ferme le
fichier s'efface automatiquement pour ne pas revenir à la prochaine
ouverture...


Pan Got m'a suggéré d'ajouter ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Trim(Cells(3, 5).Value) = "" Then
On Error Resume Next
Cells(3, 5).Value = InputBox("valeur de la cellule 'C5' ?", "titre
de
la
boite")
Exit Sub
End If
End Sub


Mais j'arrive pas à la faire fonctionner...
Mon fichier "Message" et la celllule en question A2

Croyez-vous pouvoir me dire ce que je dois changer ou faire... Merci...

--
Clochard
Aimerais bien savoir....
Merci!











Clochard
Le #4515101
Merci beaucoup Jacky

C'est exactement ce dont j'avais besoin...

Une dernière chose S.V.P.
....
Est-ce possible de vider la cellule qui contient "Toto" en quittant
--
Clochard
Aimerais bien savoir....
Merci!



Re...
Ces codes ne sont valable qu'individuellement pour chaque feuille, si le
classeur est fermé sur une autre feuille qui ne comporte pas ces codes, cela
ne fonctionnera pas.
Mais bon...
'--------------
Private Sub Worksheet_Activate()
If [B10] <> "toto" Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [B10] <> "toto" Then [B10].Select
End Sub
'-------------
--
Salutations
JJ


"Clochard"
Salut et merci de me répondre...

Ce que je cherche c'est lorsque j'ouvre le fichier avec

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ça m'oblige à entrer quelque chose dans la cellule afin d'avoir accès au
fichier...

Donc... est-ce possible avec la même macro... ajouter que nous devons
inscrire quelque chose de précis... tel "Toto" par exemple...

--
Clochard
Aimerais bien savoir....
Merci!



Bonjour,

Mot de passe, attention à la Ferrari, elle risque de sortir du garage.;-)
Si c'est pour un "petit peu" protéger un classeur
Perso, j'utiliserai un truc du genre... par exemple.
Creation d'un userform+ textbox+bouton
A l'ouverture du fichier ceci:
'--------
Private Sub Workbook_Open()
UserForm1.Show
End Sub
'----------
Code du bouton ceci:
'-----------
Private Sub CommandButton1_Click()
If TextBox1.Text <> "toto" Then Application.Quit
Unload UserForm1
'suite du code
'appelle de macro
'masquer des feuilles
'etc
End Sub
'-----------
Voir ici
Mot de passe .....toto
http://cjoint.com/?flpsaMRXSp

--
Salutations
JJ


"Clochard"
Bon matin....

Sur le fil de "13Hubert".... Objet : Une cellule vide => un message

JB a suggéré ceci qui fonctionne très bien d'ailleurs...

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ensuite j'ai demandé s'il était possible d'y ajouter un mot ou un
chiffre
quelconque qui servirait de mot de passe... et qui, lorsqu'on ferme le
fichier s'efface automatiquement pour ne pas revenir à la prochaine
ouverture...


Pan Got m'a suggéré d'ajouter ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Trim(Cells(3, 5).Value) = "" Then
On Error Resume Next
Cells(3, 5).Value = InputBox("valeur de la cellule 'C5' ?", "titre
de
la
boite")
Exit Sub
End If
End Sub


Mais j'arrive pas à la faire fonctionner...
Mon fichier "Message" et la celllule en question A2

Croyez-vous pouvoir me dire ce que je dois changer ou faire... Merci...

--
Clochard
Aimerais bien savoir....
Merci!
















Jacky
Le #4515091
Re...
Dans le ThisWorkbook du classeur en question:
'---------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Feuil1.[b10] = ""
End Sub
'-------------
"Feuil1" étant le CodeName vba de la feuille qui comporte le code.

OU
En nommant la cellule par exemple mdp
'-------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
[mdp] = ""
End Sub
'-------------
--
Salutations
JJ


"Clochard"
Merci beaucoup Jacky

C'est exactement ce dont j'avais besoin...

Une dernière chose S.V.P.
....
Est-ce possible de vider la cellule qui contient "Toto" en quittant
--
Clochard
Aimerais bien savoir....
Merci!



Re...
Ces codes ne sont valable qu'individuellement pour chaque feuille, si le
classeur est fermé sur une autre feuille qui ne comporte pas ces codes,
cela
ne fonctionnera pas.
Mais bon...
'--------------
Private Sub Worksheet_Activate()
If [B10] <> "toto" Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [B10] <> "toto" Then [B10].Select
End Sub
'-------------
--
Salutations
JJ


"Clochard"
Salut et merci de me répondre...

Ce que je cherche c'est lorsque j'ouvre le fichier avec

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ça m'oblige à entrer quelque chose dans la cellule afin d'avoir accès
au
fichier...

Donc... est-ce possible avec la même macro... ajouter que nous devons
inscrire quelque chose de précis... tel "Toto" par exemple...

--
Clochard
Aimerais bien savoir....
Merci!



Bonjour,

Mot de passe, attention à la Ferrari, elle risque de sortir du
garage.;-)
Si c'est pour un "petit peu" protéger un classeur
Perso, j'utiliserai un truc du genre... par exemple.
Creation d'un userform+ textbox+bouton
A l'ouverture du fichier ceci:
'--------
Private Sub Workbook_Open()
UserForm1.Show
End Sub
'----------
Code du bouton ceci:
'-----------
Private Sub CommandButton1_Click()
If TextBox1.Text <> "toto" Then Application.Quit
Unload UserForm1
'suite du code
'appelle de macro
'masquer des feuilles
'etc
End Sub
'-----------
Voir ici
Mot de passe .....toto
http://cjoint.com/?flpsaMRXSp

--
Salutations
JJ


"Clochard"
Bon matin....

Sur le fil de "13Hubert".... Objet : Une cellule vide => un message

JB a suggéré ceci qui fonctionne très bien d'ailleurs...

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ensuite j'ai demandé s'il était possible d'y ajouter un mot ou un
chiffre
quelconque qui servirait de mot de passe... et qui, lorsqu'on ferme
le
fichier s'efface automatiquement pour ne pas revenir à la prochaine
ouverture...


Pan Got m'a suggéré d'ajouter ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Trim(Cells(3, 5).Value) = "" Then
On Error Resume Next
Cells(3, 5).Value = InputBox("valeur de la cellule 'C5' ?",
"titre
de
la
boite")
Exit Sub
End If
End Sub


Mais j'arrive pas à la faire fonctionner...
Mon fichier "Message" et la celllule en question A2

Croyez-vous pouvoir me dire ce que je dois changer ou faire...
Merci...

--
Clochard
Aimerais bien savoir....
Merci!


















Clochard
Le #4514811
Un GRAND merci à toi Jacky....


--
Clochard
Content de savoir....
Merci!



Re...
Dans le ThisWorkbook du classeur en question:
'---------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Feuil1.[b10] = ""
End Sub
'-------------
"Feuil1" étant le CodeName vba de la feuille qui comporte le code.

OU
En nommant la cellule par exemple mdp
'-------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
[mdp] = ""
End Sub
'-------------
--
Salutations
JJ


"Clochard"
Merci beaucoup Jacky

C'est exactement ce dont j'avais besoin...

Une dernière chose S.V.P.
....
Est-ce possible de vider la cellule qui contient "Toto" en quittant
--
Clochard
Aimerais bien savoir....
Merci!



Re...
Ces codes ne sont valable qu'individuellement pour chaque feuille, si le
classeur est fermé sur une autre feuille qui ne comporte pas ces codes,
cela
ne fonctionnera pas.
Mais bon...
'--------------
Private Sub Worksheet_Activate()
If [B10] <> "toto" Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [B10] <> "toto" Then [B10].Select
End Sub
'-------------
--
Salutations
JJ


"Clochard"
Salut et merci de me répondre...

Ce que je cherche c'est lorsque j'ouvre le fichier avec

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ça m'oblige à entrer quelque chose dans la cellule afin d'avoir accès
au
fichier...

Donc... est-ce possible avec la même macro... ajouter que nous devons
inscrire quelque chose de précis... tel "Toto" par exemple...

--
Clochard
Aimerais bien savoir....
Merci!



Bonjour,

Mot de passe, attention à la Ferrari, elle risque de sortir du
garage.;-)
Si c'est pour un "petit peu" protéger un classeur
Perso, j'utiliserai un truc du genre... par exemple.
Creation d'un userform+ textbox+bouton
A l'ouverture du fichier ceci:
'--------
Private Sub Workbook_Open()
UserForm1.Show
End Sub
'----------
Code du bouton ceci:
'-----------
Private Sub CommandButton1_Click()
If TextBox1.Text <> "toto" Then Application.Quit
Unload UserForm1
'suite du code
'appelle de macro
'masquer des feuilles
'etc
End Sub
'-----------
Voir ici
Mot de passe .....toto
http://cjoint.com/?flpsaMRXSp

--
Salutations
JJ


"Clochard"
Bon matin....

Sur le fil de "13Hubert".... Objet : Une cellule vide => un message

JB a suggéré ceci qui fonctionne très bien d'ailleurs...

Private Sub Worksheet_Activate()
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([B10]) Then [B10].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then Target.Validation.Delete
End Sub

Ensuite j'ai demandé s'il était possible d'y ajouter un mot ou un
chiffre
quelconque qui servirait de mot de passe... et qui, lorsqu'on ferme
le
fichier s'efface automatiquement pour ne pas revenir à la prochaine
ouverture...


Pan Got m'a suggéré d'ajouter ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Trim(Cells(3, 5).Value) = "" Then
On Error Resume Next
Cells(3, 5).Value = InputBox("valeur de la cellule 'C5' ?",
"titre
de
la
boite")
Exit Sub
End If
End Sub


Mais j'arrive pas à la faire fonctionner...
Mon fichier "Message" et la celllule en question A2

Croyez-vous pouvoir me dire ce que je dois changer ou faire...
Merci...

--
Clochard
Aimerais bien savoir....
Merci!























Publicité
Poster une réponse
Anonyme