Tracer l'utilisation d'un fichier

Le
Thierry K
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5002691
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"
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
Le #5002681
Merci beaucoup Jacques
c'est exactement ce qu'il me fallait.

bon après midi
Thierry K

"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"
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


Publicité
Poster une réponse
Anonyme