Color Index for light yellow & Code Help?

[Jim]

first)
what is the color index number for light yellow? im using Excel 2000 if it
matters. The color index chart in help sux. does anyone know where to get a
better index for the colors? thanks

Seccond)
I need to write a bit of code that only lets certain levels of access to
stamp. I have the code below. everything works untill the user enters "no" on
the MsgBox and doesnt have access to write to a certain range of cells (which
are colored light yellow). now what i want to do is if the user stamps on the
yellow cells but doesnt have enough of a security level to write to it then
it should erase whatever is in the cell. the main area im having problems
with is the line with
"Selection.Interior.ColorIndex = 6" any help would be great thanks.

===================Code===============================
response = MsgBox("Create new entry?", vbYesNo)

If response = 6 Then
If LoginCheck = True Then
If strUserAccess = deme Then
MsgBox "You Can Now Edit The Sheet."
ThisWorkbook.Worksheets("ElecCTRLSheet").Unprotect (sheetpwd)
Else
MsgBox "Write Access Denied."
Selection.Value = ""
ThisWorkbook.Worksheets("ElecCTRLSheet").Protect (sheetpwd)
End If
Else
Selection.Value = ""
End If

ElseIf response = 7 Then
If Selection.Interior.ColorIndex = 6 Then
If strUserAccess <> "deme" Then
Selection.Value = ""
MsgBox "Cannot Stamp Here."
End If
End If

End If

 

[Jim]

when i say "stamp" i mean write to the sheet. sorry for the confusion

 

[Bob Phillips]

Here is an enumerated list which you can add to a module and then use the
colour constant name.

Public Enum xlColorIndex
xlCIBlack = 1
xlCIWhite = 2
xlCIRed = 3
xlCIBrightGreen = 4
xlCIBlue = 5
xlCIYellow = 6
xlCIPink = 7
xlCITurquoise = 8
xlCIDarkRed = 9
xlCIGreen = 10
xlCIDarkBlue = 11
xlCIDarkYellow = 12
xlCIViolet = 13
xlCITeal = 14
xlCIGray25 = 15
xlCIGray50 = 16
xlCIPeriwinkle = 17
xlCIPlum = 18
xlCIIvory = 19
xlCILightTurquoise = 20
xlCIDarkPurple = 21
xlCICoral = 22
xlCIOceanBlue = 23
xlCIIceBlue = 24
'xlCIDarkBlue = 25
'xlCIPink = 26
'xlCIYellow = 27
'xlCITurquoise = 28
'xlCIViolet = 29
'xlCIDarkRed = 30
'xlCITeal = 31
'xlCIBlue = 32
xlCISkyBlue = 33
xlCILightGreen = 35
xlCILightYellow = 36
xlCIPaleBlue = 37
xlCIRose = 38
xlCILavender = 39
xlCITan = 40
xlCILightBlue = 41
xlCIAqua = 42
xlCILime = 43
xlCIGold = 44
xlCILightOrange = 45
xlCIOrange = 46
xlCIBlueGray = 47
xlCIGray40 = 48
xlCIDarkTeal = 49
xlCISeaGreen = 50
xlCIDarkGreen = 51
xlCIBrown = 53
xlCIIndigo = 55
xlCIGray80 = 56
End Enum



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Jennifer]

Here is good link to color indexes:
http://www.mvps.org/dmcritchie/excel/colors.htm

 

[Tom Ogilvy]

Sub MakeColorIndexChart()
for i = 0 to 56
cells(i+1,1).value = i
cells(i+1,2).Interior.ColorIndex = i
Next
End Sub

the color associated with a specific colorindex value is not locked.
Someone can change the color palette for that workbook.

 

[Jim]

Thanks so much. thats all i needed #36!!! WOO HOO!