Modifier une macro espion

Version imprimable

Voir 40 message(s) de cette discussion en une page

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

Code:

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

26/06/2008, 14h20
edelweisseric

Bonjour à tous

Le log "avec MdP" se fait par l'intermédiaire d'USF, ou autre je suppose. Mets ce code dans le module, juste après l'acceptation du MdP. Cela devrait fonctionner, je n'ai pas testé.

Eric
26/06/2008, 15h53
Bernard67

Re,
Je n'ai pas de USF, car je l'ai protege par : outils, Options, securite, Mot de passe pour la modif.

Est il possible que l'enregistrement ne se fasse que pour ceux qui enregistrent ?
26/06/2008, 16h04
edelweisseric

Re

De quelle manière les personnes mettent le mot de passe ?

Eric
26/06/2008, 16h36
Bernard67

A l'ouverture, j'ai la demande "activer ou desactiver les macros", puis "en lecture seule ou indiquer le mot de passe" sur un USF.
Ce USF est defini par outils, Options, securite, Mot de passe pour la modif.
Il n y a pas de code dans le classeur, c'est defini par excel (Le classeur se trouve sur un serveur, pour un acces a tout le monde)
Merci pour te pencher sur mon probleme
26/06/2008, 16h46
fring
Bonjour tlm,

Dans l'événement BeforeSave de ThisWorkbook
Code:

1 2 3 4 5 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim Verif As String Verif = Environ("UserName") & Chr(10) & Now MsgBox Verif End Sub
ici les infos contenues dans la variable Verif sont affichées dans une MsgBox mais tu en fais ce que tu veux

Merci Edelweisseric et Fring.
Cela fonctionne impeccablement bien.

Voici la macro pour d'autres utilisateurs, au cas ou !!!!!!!

'

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 Traceur d 'ouverture de Fichier Utilisateur + Date + Heure ds Fichier Log.xls Externe
' Acitvation des macros OBLIGATOIRE
' © Piwa6291 23/11/2006
 
'Les 3 lignes ci-dessous enregistrent le USER si il y a enregistrement a la fermeture
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Verif As String
Verif = Environ("UserName") & Chr(10) & Now
'MsgBox Verif (= si on veut afficher le USER a la fermeture)
'End Sub
 
 
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:="\\TT\TCD\ TD\Divers\TEST\Log")
 
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

Merci encore et bonne fin d'AM

Attention...!

Teste ceci :
Code:

1 2 MsgBox Application.UserName MsgBox Environ("username")

Re

Essaie ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Workbook_Open()
Dim Wb As Workbook
Dim a As Long
Dim Fs As Object, F As Object
 
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(ActiveWorkbook.FullName)
a = F.Attributes
If F.Attributes = 32 Then
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)
Wb.Close True
Application.ScreenUpdating = True
End If
 
End Sub

Je n'ai pas pu tester

Eric

26/06/2008, 17h48
edelweisseric

Re

Résolu comment ?

Merci de nous le dire

Eric
26/06/2008, 17h53
Bernard67

La macro que j'ai copiée 3 messages plus haut fonctionne tres bien telle quelle.
Elle enregistre sur le LOG uniquement lorsqu'il y a modification dans le classeur, le LOG se trouve sur le meme serveur que le classeur.
26/06/2008, 18h01
edelweisseric

Re

Ta question était :

Citation:

Envoyé par Bernard67

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

je ne pense pas qu'avec la macro que tu as déposée, cela fonctionne si les personnes :
"....qui se connectent en "entrant le mot de passe"..." et uniquement se connectent et sortent sans sauvegarder.

Eric
26/06/2008, 18h16
Bernard67

Merci Eric,
Tu as raison, je n'avais pas teste cette solution, de rentrer le MDP et de fermer sans enregistrer. Sur ma 1ere macro c'est exact cela n'enregistre rien.
Je viens de tester toute les possibilites avec ta macro et elle repond effectivement a tous les cas que j'avais demande.
Cette fois j'ai fait tous les tests possibles, et c'est parfait.
Merci encore a toi et fring pour l'aide.
Bonne soirée.
Cordialement

Bonjour le forum,
Je pensais avoir testé toutes les possibilité, mais non !!.
La macro de Fring et Edelweisseric enregistre les USER DATE et Heure des modifications.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub Workbook_Open() Dim Wb As Workbook Dim a As Long Dim Fs As Object, F As Object Set Fs = CreateObject("Scripting.FileSystemObject") Set F = Fs.GetFile(ActiveWorkbook.FullName) a = F.Attributes If F.Attributes = 32 Then Application.ScreenUpdating = False 'Masquer l'affichage Set Wb = Workbooks.Open(Filename:="\\TB\test\Service\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) Wb.Close True Application.ScreenUpdating = True End If End Sub
Ce code enregistre les modifs faite dans le TCD (deplacement de champ..etc.) meme si celles ci ne sont pas enregistrées.
Je souhaiterais si c'est possible, d'enregistrer le USER, DATE et HEURE uniquement si il y a modification et enregistrement du TCD.
Merci pour l'aide
Cordialement

Suggestion de code à insérer:

(Je ne suis pas ceratin de la syntaxe pour Workbook_close :oops:)

Code:

1
2
Public Save_log as boolean
Public Wb As Workbook

Code:

1
2
3
4
Private Sub Workbook_Open()
Save_log = False
 
End Sub

Code:

1
2
3
Private Sub Workbook_close()
Wb.Close Save_log
end sub

Code:

1
2
3
4
5
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
Save_log = true
End Sub

07/07/2008, 16h05
Bernard67

Je te remercie Godzestla,

Malgre tout il y a toujours un cas qui cloche, c'est a dire qu'il me complete le user alors qu'il ne devrait pas.
Le plus simple se serait que l'enregistrement se fasse uniquement si le mot de passe est rentre lors de l'ouverture du classeur lorsqu'il demande "Tapez le mot de passe autorisant l'acces en ecriture ou en lecture"
Je precise que j'ai mis le mot de passe par : outil, Option, securite puis mot de passe pour la modification.
Merci encore pour l'aide
07/07/2008, 16h39
Godzestla

Citation:

Malgre tout il y a toujours un cas qui cloche, c'est a dire qu'il me complete le user alors qu'il ne devrait pas.

Peux-tu me remontrer ou et comment cela est codé ?

Dans ce cas, le user est indiqué si en lecture seule, on manipule les champs du TCD, alors qu'il ne peut pas etre enregistré. Si on rentre le mot de passe et on enregistre avec la disquette de la barre d'outils avant la fermeture, le user n'est pas enregistre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Save_log as boolean
Public Wb As Workbook
 
Dim a As Long
Dim Fs As Object, F As Object
 
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(ActiveWorkbook.FullName)
a = F.Attributes
If F.Attributes = 32 Then
Application.ScreenUpdating = False 'Masquer l'affichage
Set Wb = Workbooks.Open(Filename:="\\TB\test\Service\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)
Wb.Close True
Application.ScreenUpdating = True
End If
 
End Sub

07/07/2008, 17h58
Godzestla
je ne comprends pas du tout tes explications.

Si j'en reviens à ceci :

Citation:

Suggestion de code à insérer:

(Je ne suis pas ceratin de la syntaxe pour Workbook_close )

Code :
Public Save_log as boolean
Public Wb As Workbook
Code :
Private Sub Workbook_Open()
Save_log = False

End Sub
Code :
Private Sub Workbook_close()
Wb.Close Save_log
end sub

Code :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Save_log = true
End Sub

Déjà je ne trouve pas cette ligne dans ton code :
Code:

1 2 Wb.Close Save_log
donc tu sauves toujours.

Avec ma proposition si tu as sauvé, le code le sait et va donc automatiquement sauver le log.

J'en déduis que si on n'a que le droit en lecture, on ne peut pas sauver et donc le log ne sera jamais sauvé.

Juste ou pas.

Sinon il faut gérer différement Workbook_BeforeSave pour savoir si on a le droit ou pas de sauver.

(La suite pour moi demain ..... si ce n'est pas résolu). ;)
08/07/2008, 08h50
Bernard67

Bonjour Godzestla, le forum

J'ai mis le code dans "thisworkbook" du TCD

Citation:

J'en déduis que si on n'a que le droit en lecture, on ne peut pas sauver et donc le log ne sera jamais sauvé.

Le user est enregistré, meme dans le cas ou on ouvre le TCD en lecture seule et ensuite on l'enregistre sous un autre nom. (Ce cas la aussi je voudrais aussi l'éviter).

Est il possible de n'enregistrer le log uniquement dans le cas ou on rentre le mot de passe lors de l'ouverture du classeur quand il demande "Tapez le mot de passe autorisant l'acces en ecriture ou en lecture" ?
Je precise que j'ai mis le mot de passe par : outil, Option, securite puis mot de passe pour la modification.
Merci pour l'aide.
Cordialement

Voir 40 message(s) de cette discussion en une page