een gebruiker via de VBA een tekstkleur geven wanneer hij iets invuld.

[willem1984grave]

beste dame/heer,

ik ben op zoek naar een VBA die een gebruiker met een bepaalde computernaam een bepaald lettertype kleur geeft.

ik ben namelijk een excel planning aan het maken waarin meerdere mensen hun gegevens invullen. ik wil graag weten wie dan de gegevens heeft ingevuld.

Graag jullie reactie

 

[HSV]

In thisworkbook.
Maak meerdere cases aan.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
with target.Font
  Select Case Application.UserName 'of Environ("UserName")
     Case "hsv"
       .ColorIndex = 3
    Case "willem"
      .colorindex = 4
   End Select
 end with
End Sub