Color Index for light yellow & Code Help?
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
|