Cannot set background color in unlocked cell

[IanWade]

I am using a code fragment like this to set the background color of a cell:

Cells(x,y).Interior.ColorIndex = 6

The cell is not locked, to let the user change its value.

This works fine, until I protect the worksheet, with "allow all users to select unlocked cells". Then, when I run the program, I get the error:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Runtime Error 1004
Unable to set the ColorIndex property of the Interior Class
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Why is this an error (although the sheet is protected, the cell is unlocked), and how can I work around this?

--
Ian

[Steffen Thomsen]

Remember to put code tags around your code!

Try unlocking at then locking your sheet before changing the cells color.

Sub steffen()

Sheets(1).Unprotect
   Cells(x,y).Interior.ColorIndex = 6
Sheets(1).Protect
End Sub

[IanWade]

Remember to put code tags around your code!

As it was such a small fragment I thought I could sneak it in without you noticing .

Try unlocking at then locking your sheet before changing the cells color.

Thanks Steffen. Just what I need.

--
Ian

[Steffen Thomsen]

Not to be picky, but if your question was answered satisfactory, then remember to mark the thread as solved to