Discussion :

[Bernard67]

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

[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

[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 ?

[edelweisseric]

Re

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

Eric

[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

[fring]

Bonjour tlm,

Dans l'événement BeforeSave de ThisWorkbook

Code :

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

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

[edelweisseric]

Re

Ta question était :

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

[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

[Bernard67]

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 :

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
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

[Godzestla]

Suggestion de code à insérer:

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

Code :

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

1
2
Public Save_log as boolean
Public Wb As Workbook

Code :

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

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

Code :

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

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

Code :

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

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

[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