Renseignements de session windows
Bonsoir , j'ai trouvé un code pouvant enregistrer les noms de l'ordinateur et utilisateur ayant ouvert un classeur excel.
Pourrait on enregistrer aussi le mot de passe de l'utilisateur ?
w.Cells(Rw, 1).Offset(0, 1) = Now
w.Cells(Rw, 1).Offset(0, 2) = Environ("username")
w.Cells(Rw, 1).Offset(0, 3) = Environ("computername")
[color=#FF0000]w.Cells(Rw, 1).Offset(0, 4) = Environ("mot de passe")[/color]Merci pour votre aide
Bonjour , je vous met le code complet :
Private Sub Workbook_Open()
On Error Resume Next
Dim Rw&, w As Worksheet, s%
Set w = Worksheets("evenement")
Rw = w.Cells(Rows.Count, 1).End(xlUp).Row
If Rw < 90 Then Rw = 90
w.Cells(Rw, 1).Offset(1, 0) = Now
For s = 2 To Worksheets.Count ' on masque les feuilles
Worksheets(s).Visible = True
Next s
w.Visible = xlVeryHidden
end subPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
On Error Resume Next
Dim Rw&, w As Worksheet, s%
Set w = Worksheets("evenement")
Rw = w.Cells(Rows.Count, 1).End(xlUp).Row
If Rw < 90 Then Rw = 90
w.Cells(Rw, 1).Offset(0, 1) = Now
w.Cells(Rw, 1).Offset(0, 2) = Environ("username")
w.Cells(Rw, 1).Offset(0, 3) = Environ("computername")
w.Cells(Rw, 1).Offset(0, 4) = Environ("password")
w.Visible = xlVeryHidden
'For s = 2 To Worksheets.Count ' on masque les feuilles
Worksheets(s).Visible = xlVeryHidden
Application.ScreenUpdating = True
End SubJe voudrais aussi savoir en offset 5 si le classeur à été copié et en offset 6 s'il à été renommé.
J'aimerais bien trouver l'utilisateur qui me trafique mon classeur .
Merci à vous pour vos conseils
Bonjour,
Si tu cherches "juste" à savoir, qui te modifie ton classeur, la variable d'environnement username te suffit non ?
Je ne sais pas si le même genre de variable pour le mot de passe existe (je ne pense pas, le mot de passe doit être crypté dans un fichier quelconque ou dans la base de registre) et même si c'était le cas, ce n'est pas quelque chose que les membres te donneront (enfin moi je ne le ferais pas pour ma part, si j'avais la réponse), ou du moins pas sur le forum directement sur une page visible de tous sur le net, car cela pourrait être utilisé à mauvais escient.
Après si tu as réussis à récupérer l'username, à l'ouverture du fichier, tu peux détecter cet username et refermer automatiquement le classeur, tu verras bien qui viens te demander si tu sais pourquoi le fichier "bug".
Cordialement,