"espionner" l'ouverture d'un fichier

Option Explicit
Private Const ThePath As String = "T:\partage\Suivi.txt"
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

Private Sub Workbook_Open()

Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String

ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

Spy = ThisWorkbook.Name & " sur " & ThisWorkbook.Path & " Ouvert le : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Log Connection : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.UserName

Open ThePath For Append As #1
Print #1, Spy
Close

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

Spy = ThisWorkbook.Name & " sur " & ThisWorkbook.Path & " Fermé le : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Log Connection : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.UserName

Open ThePath For Append As #1
Print #1, Spy
Close

End Sub

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