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
JB
Bonjour,
Enregistre les dates de connexions dans une feuille ESPION (masquée)
Sub auto_open() Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now End Sub
Sub auto_close() Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Environ("username") Sheets("espion").[A65000].End(xlUp).Offset(0, 3) = Environ("computername") Sheets("espion").Visible = xlVeryHidden End Sub
Sub affiche_espion() mp = InputBox("Mot de passe?") If mp = "jacques" Then Sheets("espion").Visible = True End If End Sub
http://cjoint.com/?kBn3EJL6xK
JB http://boisgontierjacques.free.fr
On 27 oct, 13:19, "Thierry K" wrote:
Bonjour à toutes et à tous
je souhaiterai tracer l'utilisation d'un fichier Excel et cela dans une feuille cachée nommée "suivi" du même fichier Excel
à savoir: colonne A: date et heure d'ouverture du fichier, Colonne B: Adresse IP de l'ordi qui ouvre le fichier Colonne C: Utilisateur (user)
une ligne par ouverture
est ce possible? comment?
Office Pro 2003 Win XP Pro SP2
Merci d'avance pour vos conseils
pour répondre, enlever w x y z
Thierry K
Bonjour,
Enregistre les dates de connexions dans une feuille ESPION (masquée)
Sub auto_open()
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now
End Sub
Sub auto_close()
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("espion").[A65000].End(xlUp).Offset(0, 2) =
Environ("username")
Sheets("espion").[A65000].End(xlUp).Offset(0, 3) =
Environ("computername")
Sheets("espion").Visible = xlVeryHidden
End Sub
Sub affiche_espion()
mp = InputBox("Mot de passe?")
If mp = "jacques" Then
Sheets("espion").Visible = True
End If
End Sub
http://cjoint.com/?kBn3EJL6xK
JB
http://boisgontierjacques.free.fr
On 27 oct, 13:19, "Thierry K" <thierryw.ko...@ysnzcf.fr> wrote:
Bonjour à toutes et à tous
je souhaiterai tracer l'utilisation d'un fichier Excel
et cela dans une feuille cachée nommée "suivi" du même fichier Excel
à savoir:
colonne A: date et heure d'ouverture du fichier,
Colonne B: Adresse IP de l'ordi qui ouvre le fichier
Colonne C: Utilisateur (user)
Enregistre les dates de connexions dans une feuille ESPION (masquée)
Sub auto_open() Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now End Sub
Sub auto_close() Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Environ("username") Sheets("espion").[A65000].End(xlUp).Offset(0, 3) = Environ("computername") Sheets("espion").Visible = xlVeryHidden End Sub
Sub affiche_espion() mp = InputBox("Mot de passe?") If mp = "jacques" Then Sheets("espion").Visible = True End If End Sub
http://cjoint.com/?kBn3EJL6xK
JB http://boisgontierjacques.free.fr
On 27 oct, 13:19, "Thierry K" wrote:
Bonjour à toutes et à tous
je souhaiterai tracer l'utilisation d'un fichier Excel et cela dans une feuille cachée nommée "suivi" du même fichier Excel
à savoir: colonne A: date et heure d'ouverture du fichier, Colonne B: Adresse IP de l'ordi qui ouvre le fichier Colonne C: Utilisateur (user)
une ligne par ouverture
est ce possible? comment?
Office Pro 2003 Win XP Pro SP2
Merci d'avance pour vos conseils
pour répondre, enlever w x y z
Thierry K
Thierry K
Merci beaucoup Jacques c'est exactement ce qu'il me fallait.
bon après midi Thierry K
"JB" a écrit dans le message de news:
Bonjour,
Enregistre les dates de connexions dans une feuille ESPION (masquée)
Sub auto_open() Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now End Sub
Sub auto_close() Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now Sheets("espion").[A65000].End(xlUp).Offset(0, 2) Environ("username") Sheets("espion").[A65000].End(xlUp).Offset(0, 3) Environ("computername") Sheets("espion").Visible = xlVeryHidden End Sub
Sub affiche_espion() mp = InputBox("Mot de passe?") If mp = "jacques" Then Sheets("espion").Visible = True End If End Sub
http://cjoint.com/?kBn3EJL6xK
JB http://boisgontierjacques.free.fr
On 27 oct, 13:19, "Thierry K" wrote:
Bonjour à toutes et à tous
je souhaiterai tracer l'utilisation d'un fichier Excel et cela dans une feuille cachée nommée "suivi" du même fichier Excel
à savoir: colonne A: date et heure d'ouverture du fichier, Colonne B: Adresse IP de l'ordi qui ouvre le fichier Colonne C: Utilisateur (user)
une ligne par ouverture
est ce possible? comment?
Office Pro 2003 Win XP Pro SP2
Merci d'avance pour vos conseils
pour répondre, enlever w x y z
Thierry K
Merci beaucoup Jacques
c'est exactement ce qu'il me fallait.
bon après midi
Thierry K
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1193486139.817764.95470@z9g2000hsf.googlegroups.com...
Bonjour,
Enregistre les dates de connexions dans une feuille ESPION (masquée)
Sub auto_open()
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now
End Sub
Sub auto_close()
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("espion").[A65000].End(xlUp).Offset(0, 2) Environ("username")
Sheets("espion").[A65000].End(xlUp).Offset(0, 3) Environ("computername")
Sheets("espion").Visible = xlVeryHidden
End Sub
Sub affiche_espion()
mp = InputBox("Mot de passe?")
If mp = "jacques" Then
Sheets("espion").Visible = True
End If
End Sub
http://cjoint.com/?kBn3EJL6xK
JB
http://boisgontierjacques.free.fr
On 27 oct, 13:19, "Thierry K" <thierryw.ko...@ysnzcf.fr> wrote:
Bonjour à toutes et à tous
je souhaiterai tracer l'utilisation d'un fichier Excel
et cela dans une feuille cachée nommée "suivi" du même fichier Excel
à savoir:
colonne A: date et heure d'ouverture du fichier,
Colonne B: Adresse IP de l'ordi qui ouvre le fichier
Colonne C: Utilisateur (user)
Merci beaucoup Jacques c'est exactement ce qu'il me fallait.
bon après midi Thierry K
"JB" a écrit dans le message de news:
Bonjour,
Enregistre les dates de connexions dans une feuille ESPION (masquée)
Sub auto_open() Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now End Sub
Sub auto_close() Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now Sheets("espion").[A65000].End(xlUp).Offset(0, 2) Environ("username") Sheets("espion").[A65000].End(xlUp).Offset(0, 3) Environ("computername") Sheets("espion").Visible = xlVeryHidden End Sub
Sub affiche_espion() mp = InputBox("Mot de passe?") If mp = "jacques" Then Sheets("espion").Visible = True End If End Sub
http://cjoint.com/?kBn3EJL6xK
JB http://boisgontierjacques.free.fr
On 27 oct, 13:19, "Thierry K" wrote:
Bonjour à toutes et à tous
je souhaiterai tracer l'utilisation d'un fichier Excel et cela dans une feuille cachée nommée "suivi" du même fichier Excel
à savoir: colonne A: date et heure d'ouverture du fichier, Colonne B: Adresse IP de l'ordi qui ouvre le fichier Colonne C: Utilisateur (user)