Как програмно изменить цвет ярлычка активного листа?

[ru3000]

Как програмно задать цвет ярлычка активного листа. Допустим двухцветный: снизу синий, сверху красный. Спасибо.

[ru3000]

А может быть, есть возможность это сделать в настройках самого excel? Но я что-то не нашел.

[pivas]

Если внедрить в Excel свою палитру, то наверное можно сделать и трёхцветный, а пока только один:

ActiveSheet.Tab.ColorIndex = x

. Вместо х подставляйте цифры и проверяйте цвет, который понравится.

[ru3000]

Спасибо, помогло.

[ru3000]

Помогите облагородить код. Надо чтоб при активации листа цвет ярлычка был №3, а при дезактивации №5.

Private Sub Worksheet_Activate()
ActiveSheet.Tab.ColorIndex = 3
End Sub

И еще. Чтобы не вставлять этот код на каждый лист, как проописать его на всю книгу сразу?

[EducatedFool]

В модуль ЭтаКнига:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Tab.ColorIndex = 3
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Sh.Tab.ColorIndex = 5
End Sub

[RML]

А куда вы все это прописываете-то???
Помогите новичку въехать??

[EducatedFool]

А куда вы все это прописываете-то???

Написано же - в модуль ЭтаКнига проекта VBA.

Открываем Excel, жмём Alt + F11 для отображения редактора VBA, дважды щелкаем на модуле ЭтаКнига, вставляем код:

[The_Prist]

Все это прописывается в модуль книги.
Alt+F11->Ctrl+R->Папка Microsoft Excel Objects->двойной щелчок мыши по ЭтаКнига

[ru3000]

EducatedFool
Спасибо большое.