For at gøre dette, skal du lægge en kodestump ind i det ark du arbejder med.
Jeg mener ikke at du kan gøre det generelt, så det skal desværre gøres i den enkelte fil.

 

Læg denne kodestump ind i THISWORKBOOK i VBA-editoren. (Tryk ALT+F11 og klik på THISWORKBOOK til venstre)

 

Private Sub Workbook_SheetActivate(ByVal Ark As Object)
If Ark.Tab.ColorIndex = xlColorIndexNone Then
    Ark.Tab.ColorIndex = 3
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Ark As Object)
If Ark.Tab.ColorIndex = 3 Then
    Ark.Tab.ColorIndex = xlColorIndexNone
End If
End Sub

 

//Allan

 

 

Her må jeg give fortabt, det tror jeg ikke kan lade sig gøre.

For at kunne aktivere en makro, skal et givent ark være aktiveret, men hvis man blot markerer arket kan Excel ikke 'Mærke' det.

 

Man kunne tænke sig at der var en indstilling til at kunne brugerdefinere sådanne ting i Excel, men netop arkfanerne har deres eget liv åbenbart

 

//Allan

Tak for en god idé Anders.

Kanon måde at løse problemet på, simpel og meget brugbar må man sige

 

I Excel 2010 lader det til at der er lidt mere kontrast i fanefarverne, men det er stadig en anelse svært at se på en fladskærm hvis lyset fra vinduet rammer skærmen, her er din idé rigtig god.

 

Rigtig god dag

 

//Allan