[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 282
  • Last Modified:

Excel Changes the color pallette by itself - I can't change it back!

I have a number of Excel workbooks.  For some reason, Excel sometimes changes the color scheme in the workbook, such that White becomes dark blue, red becomes gray etc.

I have tried going to Tools > Options > Color > Reset , but this does not change the color system.

Does anyone know what is happening?  Why can I not fix it?
0
billelev
Asked:
billelev
  • 2
  • 2
2 Solutions
 
TracyVBA DeveloperCommented:
Yes, I've run into that too.  Here's how you fix it:

Open up the bad color workbook and open up a good color workbook.
On the bad workbook go to Tools --> Options --> Color
Under the Copy Colors from drop down, you should see the good color workbook name.  Select it and click Reset.  Then click OK.
0
 
billelevAuthor Commented:
Okay, thanks.  I also just used a macro to reset all the colors using VBA and that seemed to work.  Clearly reset does not!!
0
 
billelevAuthor Commented:
Code attached
Sub ResetToDefaultColors()

ActiveWorkbook.Colors(1) = RGB(0, 0, 0)
ActiveWorkbook.Colors(2) = RGB(255, 255, 255)
ActiveWorkbook.Colors(3) = RGB(255, 0, 0)
ActiveWorkbook.Colors(4) = RGB(0, 255, 0)
ActiveWorkbook.Colors(5) = RGB(0, 0, 255)
ActiveWorkbook.Colors(6) = RGB(255, 255, 0)
ActiveWorkbook.Colors(7) = RGB(255, 0, 255)
ActiveWorkbook.Colors(8) = RGB(0, 255, 255)
ActiveWorkbook.Colors(9) = RGB(128, 0, 0)
ActiveWorkbook.Colors(10) = RGB(0, 128, 0)
ActiveWorkbook.Colors(11) = RGB(0, 0, 128)
ActiveWorkbook.Colors(12) = RGB(128, 128, 0)
ActiveWorkbook.Colors(13) = RGB(128, 0, 128)
ActiveWorkbook.Colors(14) = RGB(0, 128, 128)
ActiveWorkbook.Colors(15) = RGB(192, 192, 192)
ActiveWorkbook.Colors(16) = RGB(128, 128, 128)
ActiveWorkbook.Colors(17) = RGB(153, 153, 255)
ActiveWorkbook.Colors(18) = RGB(153, 51, 102)
ActiveWorkbook.Colors(19) = RGB(255, 255, 204)
ActiveWorkbook.Colors(20) = RGB(204, 255, 255)
ActiveWorkbook.Colors(21) = RGB(102, 0, 102)
ActiveWorkbook.Colors(22) = RGB(255, 128, 128)
ActiveWorkbook.Colors(23) = RGB(0, 102, 204)
ActiveWorkbook.Colors(24) = RGB(204, 204, 255)
ActiveWorkbook.Colors(25) = RGB(0, 0, 128)
ActiveWorkbook.Colors(26) = RGB(255, 0, 255)
ActiveWorkbook.Colors(27) = RGB(255, 255, 0)
ActiveWorkbook.Colors(28) = RGB(0, 255, 255)
ActiveWorkbook.Colors(29) = RGB(128, 0, 128)
ActiveWorkbook.Colors(30) = RGB(128, 0, 0)
ActiveWorkbook.Colors(31) = RGB(0, 128, 128)
ActiveWorkbook.Colors(32) = RGB(0, 0, 255)
ActiveWorkbook.Colors(33) = RGB(0, 204, 255)
ActiveWorkbook.Colors(34) = RGB(204, 255, 255)
ActiveWorkbook.Colors(35) = RGB(204, 255, 204)
ActiveWorkbook.Colors(36) = RGB(255, 255, 153)
ActiveWorkbook.Colors(37) = RGB(153, 204, 255)
ActiveWorkbook.Colors(38) = RGB(255, 153, 204)
ActiveWorkbook.Colors(39) = RGB(204, 153, 255)
ActiveWorkbook.Colors(40) = RGB(255, 204, 153)
ActiveWorkbook.Colors(41) = RGB(51, 102, 255)
ActiveWorkbook.Colors(42) = RGB(51, 204, 204)
ActiveWorkbook.Colors(43) = RGB(153, 204, 0)
ActiveWorkbook.Colors(44) = RGB(255, 204, 0)
ActiveWorkbook.Colors(45) = RGB(255, 153, 0)
ActiveWorkbook.Colors(46) = RGB(255, 102, 0)
ActiveWorkbook.Colors(47) = RGB(102, 102, 153)
ActiveWorkbook.Colors(48) = RGB(150, 150, 150)
ActiveWorkbook.Colors(49) = RGB(0, 51, 102)
ActiveWorkbook.Colors(50) = RGB(51, 153, 102)
ActiveWorkbook.Colors(51) = RGB(0, 51, 0)
ActiveWorkbook.Colors(52) = RGB(51, 51, 0)
ActiveWorkbook.Colors(53) = RGB(153, 51, 0)
ActiveWorkbook.Colors(54) = RGB(153, 51, 102)
ActiveWorkbook.Colors(55) = RGB(51, 51, 153)
ActiveWorkbook.Colors(56) = RGB(51, 51, 51)

End Sub

Open in new window

0
 
TracyVBA DeveloperCommented:
My solution works as well.
0

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now