Discussion :

[byloute]

Bonjour,

J'utilise le code ci-dessous pour tracer les accès à un fichier excel.
L'objectif est de savoir qui est sur le fichier lorsqu'il est utilisé.

maintenant je souhaitrais aller plus loin, en référençant ceci:
-Modification
-Enregistrement
-Sachant qu'une pop-up invite l'utilisateur à choisir d'ouvrir en lecture seule ou non, tracer si l'utilisateur est en lecture seule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
 Open ThisWorkbook.Path & "\log_PTF_Assurances.txt" For Append As #1
 Print #1, Application.UserName, Now
 Close #1
 End Sub

Auriez-vous quelques pistes pour enrichir mon fichier de log ?
Merci à tous

[laurent_ott]

Bonjour.
A mon avis il faut des fichiers différents:

Pour la modification d'une cellules, voici un code qui peut aider (il enregistre sur une feuille, donc, à remplacer par ton fichier)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim AncienneValeur As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Evénement déclenché à chaque changement de cellule sélectionnée.
' L'argument Target représente la cellule active.
AncienneValeur = Target.Value ' Mémorise la valeur de la cellule avant modification
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
' Evénement déclenché quand la valeur de la cellule change.
' L'argument Target représente la cellule active.
Sheets("Feuil5").Rows(2).Insert ' Insertion d'une nouvelle ligne en ligne 2
Sheets("Feuil5").Cells(2, 1) = Target.Address ' Coordonnées de la cellule
Sheets("Feuil5").Cells(2, 2) = AncienneValeur ' Ancienne valeur
Sheets("Feuil5").Cells(2, 3) = Now ' jour et heure de modification
Sheets("Feuil5").Cells(2, 4) = Application.UserName ' Utilisateur
Sheets("Feuil5").Cells(2, 5) = Target.Value ' Nouvelle valeur
Sheets("Feuil5").Rows(20000).Delete ' Suppression de la ligne 20 000
End Sub

Pour l'enregistrement, il y a l'événement Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Pour la lecture seule ou non je ne sais pas.
Bonne continuation.