Tracer l'utilisation d'un fichier

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)

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)

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