XL 2010 Qui modifie le classeur ?

[TooFatBoy]

Bonjour,

J'ai un classeur qui est partagé à l'aide de la fonction Excel de partage de classeur.
Je constate que des feuilles sont ajoutées ou supprimées, et les macros sont modifiées.

Je voudrais savoir quel utilisateur commet ces forfaits.
Existe-t-il une méthode (ou plusieurs) pour arriver à découvrir cette méchante personne ?

 

[Claudy]

Bonsoir,
Dans ton classeur, tu rajoute une feuille "espion"...
Dans ton Thisworkbook:
Private Sub Workbook_Open()
Application.ScreenUpdating = True
Worksheets("espion").Activate
derlig = Range("A5000").End(xlUp).Row
Range("A" & derlig + 1) = Application.UserName & " " & Date & " " & Time
Sheets("espion").Visible = False
Application.ScreenUpdating = False

End Sub
La feuille espion enregistre qui et quand a ouvert le classeur
Bonne soirée,
Claudy

 

[TooFatBoy]

Merci pour ta réponse.

J'avais pensé faire la même chose mais vers un fichier texte.
Mais il y a des dizaines de personnes qui ouvrent le fichier plusieurs fois par jour. Et ça ne me dira pas qui a ajouté ou supprimé des feuilles ou modifié les macros.

Y a-t-il moyen de "filtrer" l'inscription dans cette liste, pour n'avoir que les personnes qui "départagent" le fichier ?

Ceci dit, si je modifie la macro pour remplir le tableau à la fermeture ou à l'enregistrement et que j'ajoute le nombre de feuilles, ça peut peut déjà un peu m'aiguiller vers le coupable. ;-)

 

[youky(BJ)]

Bonsoir tous,
Une autre façon de procéder avec un fichier texte (bloc note)
Le chemin et le nom du fichier à adapter
Possiblité de mettre une extension autre que .txt exemple .txw dans ce cas il faut ouvrir le bloc note et chercher le fichier.
Créer un dossier et le fichier vierge avant de lancer la macro
Un double click sur Thisworkbook pour mettre la macro
Bruno

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Open ThisWorkbook.Path & "\MyDossier\Espion.txt" For Append As #1
Print #1, Environ("username") & " à enregistré le " & Now
Close #1
End Sub

 

[TooFatBoy]

Merci pour cette façon de procéder avec un fichier texte.

Je viens seulement de penser à regarder ce qui est disponible dans "ThisWorkbook \ Workbook" et j'ai vu "NewSheet" et "SheetBeforeDelete". Ça devrait déjà pas mal m'aider je pense.