Accès fichier

[René du varf]

Bonjour le forum

Je travaille sur un fichier 'xls' il se trouve sur le réseau

Je ne partage pas ce classeur mais tout le monde peut y acceder

Comment savoir à partir de mon classeur si quelqu'un à tenter d'acceder à mon classeur


Merci

 

[ThomasR]

Bonjour René du varf, le forum,


tu peux utiliser un fichier log pour enregistrer l'entrée et la sortie de ton classeur.

Private Sub Workbook_Open()
      Dim LogFile As String
      On Error Resume Next
      LogFile = ThisWorkbook.Path & '\\old\\activite.log'
      ChDir ThisWorkbook.Path & '\\old\\'
      Donnees = Now()
      Open LogFile For Append Shared As #1
      Print #1, 'Ouverture d'Excel a ' & Donnees & ' par ' & Environ('Username')
      Close #1
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
      Dim LogFile As String
      LogFile = ThisWorkbook.Path & '\\old\\activite.log'
      ChDir ThisWorkbook.Path & '\\old\\'
      Donnees = Now()
      On Error Resume Next
    
      Open LogFile For Append Shared As #1
      Print #1, 'Fermeture d'Excel a ' & Donnees & ' par ' & Environ('Username')
      Print #1, '-----------------------------------------------------------------'
      Close #1


End Sub

@+

 

[René du var]

Bonsoir et merci pour ton idée

la procédure plante sur cette ligne :


ChDir ThisWorkbook.Path & '\\old\\'


René du var