enregistrement des utilisateurs

Le
Benoit
Bonsoir,

est-il possible d'enregister dans un classeur Excel sur une feuille précir
l'historique de tous les utilisateurs qui ont ouvert ce classeur ?

merci pour la réponse
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5231571
Bonsoir,

http://cjoint.com/?djtSzrkwBp

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

JB
http://boisgontierjacques.free.fr

On 9 mar, 19:22, "Benoit"
Bonsoir,

est-il possible d'enregister dans un classeur Excel sur une feuille préc ir
l'historique de tous les utilisateurs qui ont ouvert ce classeur ?

merci pour la réponse


Philippe.R
Le #5231561
Bonsoir,

Dans le module ThisWorkbook

Private Sub Workbook_Open()
Application.ScreenUpdating = False
ou = ActiveSheet.Name
Public qUi As String
qUi = Environ("username")
Sheets("Historique").Activate
zz = Range("a65536").End(xlUp).Row + 1
Cells(zz, 1) = qUi
Cells(zz, 2) = Now
Sheets(ou).Activate
Application.ScreenUpdating = True
End Sub

avec une feuille supposée nommée Historique

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Benoit" news:%
Bonsoir,

est-il possible d'enregister dans un classeur Excel sur une feuille précir
l'historique de tous les utilisateurs qui ont ouvert ce classeur ?

merci pour la réponse



Michel Angelosanto
Le #5231471
on peut aussi utiliser
Application.UserName

Michel Angelosanto, Bordeaux
http://angelosa.free.fr/
Philippe.R
Le #5231441
Bonsoir,
On peut effectivement, mais on n'obtiens pas nécessairement le même résultat
:
environ("username") renvoie le nom sous lequel la session est ouverte
Application.UserName renvoie le nom pour lequel l'application est enregistré
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Michel Angelosanto" news:%
on peut aussi utiliser
Application.UserName

Michel Angelosanto, Bordeaux
http://angelosa.free.fr/


Publicité
Poster une réponse
Anonyme