Mit VBA...
17.07.2010 19:39:47
Tino
Hallo,
kannst Du z. Bsp. so machen.
Kommt als Code in die Tabelle1 der Beispieldatei.
Die Usernamen müsstest Du noch anpassen.
Eventuell müsstest Du die Farben noch anpassen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngRange As Range
Dim lngFarbe As Long
Select Case LCase(Environ$("Username"))
Case "user1": lngFarbe = RGB(178, 30, 18)
Case "user2": lngFarbe = RGB(199, 99, 18)
Case "user3": lngFarbe = RGB(210, 17, 18)
Case Else: lngFarbe = xlColorIndexNone 'nicht gelistet
End Select
Set rngRange = Intersect(ActiveSheet.UsedRange, Target)
If Not rngRange Is Nothing Then
ActiveSheet.Protect "admin", UserInterfaceOnly:=True
rngRange.Interior.Color = lngFarbe
End If
End Sub
Wird die Datei ohne Makros geöffnet, geht es nicht.
Gruß Tino