Savoir qui et quand ?

  • Initiateur de la discussion Initiateur de la discussion aldasiar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

aldasiar

Guest
Bonjour,

J'aimerais savoir s'il existe une formule ou un truc que je peux renseigner dans un fichier excel pour savoir qui ouvre le fichier et quand il est ouvert.
En gros connaitre la fréquentation d'un fichier sans que les utilisateurs le sachent.

Merci de vos réponses et félicitations pour la qualité de ce site oueb 🙂

Thx
 
Re : Savoir qui et quand ?

Bonjour,


Code:
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


Dans un fichier Txt:

Code:
Enregistre les dates de connexions dans un fichier Espion.txt

Public heureConnection
Sub auto_open()
  heureConnection = Now
End Sub

Sub auto_close()
  repertoire = ThisWorkbook.Path
  Open repertoire & "\Espion.txt" For Append As #1
  Print #1, heureConnection & ";" & Now & ";" & Environ("username")
  Close #1
End Sub

JB
Formation Excel VBA JB
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
885
Retour