Cell Protection

[Guest]

I have a range of cells D1:G16 with formulae in them, I want to ensure that
the user cant select these cells, how can I do this without any sort of
Password Protection.
I guess its a Private Sub Worksheet_Open()
If Target.Range = (D1:G16)...
.....
....
....

Thanks

 

[Ron de Bruin]

Hi teresa

Try this event in the sheet module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("D1:G16"), Target) Is Nothing Then
Range("C1").Select
End If
End Sub

 

[Guest]

works fine - thanks Ron

Hi teresa

Try this event in the sheet module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("D1:G16"), Target) Is Nothing Then
Range("C1").Select
End If
End Sub