Solved

Excel spreadsheets coming up with weird colors randomly.

Posted on 2007-04-09
13
626 Views
Last Modified: 2012-08-14
I have a user that has windows XP SP2,running office 2k3.  She is having an issue randomly where the excel page will open with the colors being off.  Some parts will have weird colors like green.  She can open this document again and then everything will be fine.
0
Comment
Question by:rubu2
  • 4
  • 3
  • 3
  • +1
13 Comments
 
LVL 32

Expert Comment

by:and235100
Comment Utility
Does she get a prompt to allow/disable macros when opening the document?

If so - is she clicking "Allow macros"?
0
 
LVL 32

Expert Comment

by:and235100
Comment Utility
Is this only happening on one install/one user?

If so - get her to log out - and delete the user's Application Data folder on the roaming profile (if you are using those - e.g. on a domain) and also on the local workstation.

C:\Documents and Settings\<user name>\Application Data\Microsoft
0
 
LVL 32

Expert Comment

by:and235100
Comment Utility
If that doesn't help - try running Detect and Repair from any Office spp, Help menu, Detect and Repair...
0
 
LVL 10

Accepted Solution

by:
xanius earned 125 total points
Comment Utility
Some Workbooks tend to completely (redefine the color scheme of excel E.g. some reporting tools for SAP Data are known to do this). If this is the case, and she needs the macros of those applications, install the following macro on her computer:

Sub ResetStandardColors()
   
    ActiveWorkbook.colors = Array(0, 16777215, 255, 65280, 16711680, 65535, 16711935, 16776960, 128, 32768, 8388608, 32896, 8388736, 8421376, 12632256, 8421504, 16751001, 6697881, 13434879, 16777164, 6684774, 8421631, 13395456, 16764108, 8388608, 16711935, 65535, 16776960, 8388736, 128, 8421376, 16711680, 16763904, 16777164, 13434828, 10092543, 16764057, 13408767, 16751052, 10079487, 16737843, 13421619, 52377, 52479, 39423, 26367, 10053222, 9868950, 6697728, 6723891, 13056, 13107, 13209, 6697881, 10040115, 3355443)

End Sub

' The Array( ...) mus be one line or use the continuation string ' _' at the end of each line

Cheers
Xanius
0
 
LVL 45

Expert Comment

by:patrickab
Comment Utility
Xanius,

Just for my education - does that array define the standard colour palette? & if it does where did you get it from?

Patrick
0
6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

 
LVL 10

Expert Comment

by:xanius
Comment Utility
Patrick,

Yes, it is the default colour palette. I read it out of excel itself:


Sub ListColors()
    Dim c
    For Each c In ActiveWorkbook.Colors
        Debug.Print c & ", ",
    Next
    Debug.Print
End Sub

Cheers
Xanius
0
 
LVL 45

Assisted Solution

by:patrickab
patrickab earned 125 total points
Comment Utility
Xanius - That's cool, thanks.  - Patrick

p.s. Wish I'd thought of that!
0
 
LVL 45

Expert Comment

by:patrickab
Comment Utility
Xanius,

I've been thinking about this and there is a much simpler way. It's this:

Sub resetpalettecolours()
    ActiveWorkbook.ResetColors
End Sub

Patrick
0
 
LVL 10

Expert Comment

by:xanius
Comment Utility
Patrick,

generally you're right. In the normal case .ResetColors woks. But I've had bunch of spreadsheets coming form our controlling which screwed up my excel in such a way (Don't ask me how), that I had to do it the hard way. So I wrote the macro and put it in my PERSONAL.XLS and linked it to a Button on a taskbar.

Cheers Xanius

0
 
LVL 45

Expert Comment

by:patrickab
Comment Utility
rubu2 - Please excuse our asides...

Xanius,

That's intriguing. By the way I have tried using personal.xls and I find it a total pain. I think I must be doing something wrong as I have given it up altogether and deleted it from my machine.

Patrick
0
 

Expert Comment

by:philljo
Comment Utility
Did you manage to find an answer to this?
0

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Suggested Solutions

User Beware!  This is a rather permanent solution to removing your email from an exchange server.  The only way to truly go back is to have your exchange administrator restore your mailbox from backups.  This is usually the option of last resort.  A…
When you start your Windows 10 PC and got an "Operating system not found" error or just saw  "Auto repair for startup". After a while, you have entered a loop for Auto repair which does not fix anything and you will be in a  panic as all your work w…
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now