[Excel] formatting cells

[Zen2]

hi,

i need a routine in excel.
the program knows who is working on it.
if it is me, no problem,
if it is someone else, it goes to a subroutine.
other persons may not change the program,
they may just fill some data in cells.
to see what they have done, the color of their data must be blue.
I tried with a routine, but it don't works.
can you help me to fix this?

thnx,

ps.
below the code that i use

Sub protect()
   If ActiveSheet.Protection.AllowFormattingCells = False Then
   ActiveSheet.protect AllowFormattingCells:=False
    
    Application.FindFormat.Font.ColorIndex = 2
End If

 

[CautionMP]

Try using this routine in the worksheet module:

Private Sub Worksheet_Change(ByVal Target As Range)
  Target.Font.ColorIndex = 5 '5 is blue on my machine
End Sub

Or use this event to fire your subroutine that checks who is using the workbook, if you pass [tt]Target[/tt] as an argument to your subroutine you can manipulate the [tt]Range[/tt] object there.

Or, look at Tools => Track Changes as the mechanism to, er, eh, Track Changes.

Hope this helps,
CMP


Not sure if this works, I only skimmed the book that came with the software.