XL 2010 Qui modifie le classeur ?

TooFatBoy

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

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

XLDnaute Barbatruc
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)

XLDnaute Barbatruc
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
VB:
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

XLDnaute Barbatruc
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.
 

Discussions similaires

Réponses
8
Affichages
1 K

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon