Bonjour le forum,
Je viens vers vous pour une modif de macro.

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
18
19
20
21
22
Private Sub Workbook_Open()
' Traceur d 'ouverture de Fichier Utilisateur + Date + Heure ds Fichier Log.xls Externe
' Acitvation des macros OBLIGATOIRE
' © Piwa6291 23/11/2006
 
Dim Wb As Workbook
Dim a As Long
' Ouvrir le fichier Histo (attention chemin)
Application.ScreenUpdating = False 'Masquer l'affichage
Set Wb = Workbooks.Open(Filename:="\\TB\test\Services\Divers\LOG\CE")
 
a = Wb.Sheets("Trace").Range("A65536").End(xlUp).Row + 1
 
Wb.Sheets("Trace").Range("A" & a).Value = Application.UserName
Wb.Sheets("Trace").Range("B" & a).Value = VBA.Date
Wb.Sheets("Trace").Range("C" & a).Value = Now - Int(Now)
 
'Fermer en sauvegardant les modifications
Wb.Close True
Application.ScreenUpdating = True 'Retablir l'affichage
 
End Sub
Ma question est :
Que faut il modifier pour avoir uniquement le User, la date et l'heure des personnes qui se connectent en "entrant le mot de passe" ou qui enregistrent, en excluant les personnes qui se connectent en lecture seule ?
Merci pour l'aide.
Cordialement