Hi, I assume that by visible cells, you mean those with content (?). If so,
then something like this might help:

For Each c In Range("b5:i34, b37:i42")
If c.Value < "" Then
c.Select
Selection.Interior.ColorIndex = 6
Selection.Font.ColorIndex = 10
[b5].Select
Else
End If
Next c

"Johan Johansson" wrote:

I want the user only to be able to copy visible cells, how do I do
this?
Also I want to disable all forms of cut (shortkeys, mouse movements
etc), how do I do this?

Thanks

/Johan