Retracer L'historique

[virg031180]

Bonjour,
Je suis nouvellement inscrite sur ce forum 🙂

J'ai mis un fichier partagé Excel sur un serveur.
Le dossier étant modifiable et consultable par tout le monde, est-il possible de voir les modifications apportées à ce document ainsi que l'auteur de ces modifications ? Est-il possible de retracer les différentes modifications faites sur le fichier ou au moins la dernière ?

Merci d'avance
Virg 031180

 

[Fchris]

Re : Retracer L'historique

Bonjour Virg031180,
Le forum,

Va voir du côté du menu Outil, Partager le classeur.
Tu devrais trouver ce que tu cherches dans l'onglet Avancé...

@+
Fchris

 

[BOISGONTIER]

Re : Retracer L'historique

Bonjour,

Voir PJ

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Sh.Name <> "Espion" Then
    Application.EnableEvents = False
    temp = Application.CountA(Sheets("espion").Range("a:a")) + 1
    Sheets("espion").Cells(temp, 1) = Sh.Name
    Sheets("espion").Cells(temp, 2) = Target.Address
    Sheets("espion").Cells(temp, 3) = Now
    Sheets("espion").Cells(temp, 4) = [mémo]
    Sheets("espion").Cells(temp, 5) = Target
    Sheets("espion").Cells(temp, 6) = Environ("username")
    Application.EnableEvents = True
 End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Count = 1 Then
    ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
  End If
End Sub

JB
Formation Excel VBA JB

 

[Bcar]

Re : Retracer L'historique

Bonsoir Boisgontier,
Ce genre d'application m'interesse, je souhaite juste tracer les "connexions" au fichier dans une feuille qui ne soit consultable que par moi-meme.
As-tu deja realisé ce genre de chose?
Cordialement,

 

[CB60]

Re : Retracer L'historique

Bonsoir
B car, Fais une recherche, il me semble que PascalXLD avait proposé ce genre de fichier

 

[BOISGONTIER]

Re : Retracer L'historique

Bonjour,

Enregistre les dates de connexions dans une feuille ESPION (masquée)

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

 

[Bcar]

Re : Retracer L'historique

Bonjour,
Merci beaucoup Boisgontier j'ai pu adapter à mon fichier trés facilement.
Salutations,

 

[virg031180]

Re : Retracer L'historique

Ok merci pour vos réponses.

Bonne journée

 

[amocco]

Re : Retracer L'historique

merci pour le fichier ,
par contre est il possible de rajouter le nom des cellules+feuilles modifiés
merci