limit copy command?

[Johan Johansson]

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

 

[Guest]

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