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

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

"Jim" wrote:

> 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
>

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)

"Jim" <(E-Mail Removed)> wrote in message
news:8555EE5E-8C92-41B3-8397-(E-Mail Removed)...
> 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
>

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

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.

--
Regards,
Tom Ogilvy



"Jim" wrote:

> 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
>

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

"Jim" wrote:

> 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
>