Change the color of the Title Bar

H

Haluk

Rules Violation

Joined

Oct 26, 2002

Messages

1,075

• Feb 21, 2005

• #2

You can do this but, all the Excel files will be influenced.

 

Upvote 0

S

shajueasow

Well-known Member

Joined

Oct 7, 2004

Messages

1,926

• Feb 21, 2005

• #3

Can't we use the workbook before close () procedure to roll back?

 

Upvote 0

S

shajueasow

Well-known Member

Joined

Oct 7, 2004

Messages

1,926

• Feb 21, 2005

• #4

Anybody to repaint the title bar......

 

Upvote 0

Von Pookie

MrExcel MVP

Joined

Feb 17, 2002

Messages

13,686

• Feb 21, 2005

• #5

To my knowledge, the color of the title bar has nothing to do with Excel, it is based on the system colors currently set on the computer.

 

Upvote 0

S

shajueasow

Well-known Member

Joined

Oct 7, 2004

Messages

1,926

• Feb 21, 2005

• #6

Thank You Von Pookie,
When people like you say something on Excel, it is likely to be the final word. So I have stopped trying to do this.
Thank You

 

Upvote 0

Von Pookie

MrExcel MVP

Joined

Feb 17, 2002

Messages

13,686

• Feb 22, 2005

• #7

shajueasow said:

When people like you say something on Excel, it is likely to be the final word.

Click to expand...

Thanks for the kind words, but your "final word" statement is nowhere near being true.

All I said was that as far as *I* know, it can't be done. That doesn't mean that it's not possible--just that I have never seen/read about this being done. As far as I know, the only way to mess with title bar colors is by changing the system colors.

If it is possible with VBA, I think it would be way more complex than what you seem to be looking for.

 

Upvote 0

S

shajueasow

Well-known Member

Joined

Oct 7, 2004

Messages

1,926

• Feb 22, 2005

• #8

Thanks for the kind words, but your "final word" statement is nowhere near being true.

Click to expand...

I have noted that some people in this forum (including yourself) always has an answer to all questions. And if they can't do it... then it is gone.....
It was just because of sheer fancy that I have asked that question. The Excel logo can be chaged and so is the case with Caption. So I thought that the color of the title bar also can be changed...
But thanks a lot for looking into this subject

 

Upvote 0

H

Haluk

Rules Violation

Joined

Oct 26, 2002

Messages

1,075

• Feb 22, 2005

• #9

@shajueasow:

As per my first message, you can try the following code if you wish.

Code:

Declare Function SetSysColors Lib "user32" _
                (ByVal nChanges As Long, lpSysColor As Long, _
                 lpColorValues As Long) As Long
Const COLOR_ACTIVECAPTION = 2
'
Sub Auto_Open()
    SetSysColors 1, COLOR_ACTIVECAPTION, RGB(255, 0, 0)
End Sub
'
Sub Auto_Close()
    SetSysColors 1, COLOR_ACTIVECAPTION, 0
End Sub

 

Upvote 0

S

shajueasow

Well-known Member

Joined

Oct 7, 2004

Messages

1,926

• Feb 22, 2005

• #10

Thank You Raider,
But where should this code be placed......in workbook open() procedure or somewhere else.
Hope you will help me on this..
Thank You

 

Upvote 0