I am trying to disable the mouse doubleclick on certain
cells(range) of a spreadsheet. I know how to disable
doubleclicking for the entire spreadsheet using:

Application.EditDirectlyInCell = False

Is there a way apply this to a specific range only?

In the BeforeDoubleClick event of the Worksheet:

If Not Intersect(Target, Range("A1:D4")) Is Nothing Then Cancel = True

--

Vasant



"Brandon" wrote in message
...
I am trying to disable the mouse doubleclick on certain
cells(range) of a spreadsheet. I know how to disable
doubleclicking for the entire spreadsheet using:

Application.EditDirectlyInCell = False

Is there a way apply this to a specific range only?

Brandon,

In the Workbook code:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target
As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1")) Is Nothing Then Cancel = True
End Sub

This is for doubleclick only, it doesn't prevent a user from editting
directly in the formula bar.

Rob


"Brandon" wrote in message
...
I am trying to disable the mouse doubleclick on certain
cells(range) of a spreadsheet. I know how to disable
doubleclicking for the entire spreadsheet using:

Application.EditDirectlyInCell = False

Is there a way apply this to a specific range only?

Brandon,

Try this....Doubleclick disabled for range A1:B3 only
(modify to suit)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("A1:B3")) Is Nothing Then
Application.EditDirectlyInCell = False
Cancel = True
Application.EditDirectlyInCell = True
End If
End Sub

John


"Brandon" wrote in message
...
I am trying to disable the mouse doubleclick on certain
cells(range) of a spreadsheet. I know how to disable
doubleclicking for the entire spreadsheet using:

Application.EditDirectlyInCell = False

Is there a way apply this to a specific range only?

Brandon,

Vasant's and Rob's answers are a lot less overkill.
Use what they gave you instead of what I gave you.

John

"John Wilson" wrote in message
...
Brandon,

Try this....Doubleclick disabled for range A1:B3 only
(modify to suit)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("A1:B3")) Is Nothing Then
Application.EditDirectlyInCell = False
Cancel = True
Application.EditDirectlyInCell = True
End If
End Sub

John


"Brandon" wrote in message
...
I am trying to disable the mouse doubleclick on certain
cells(range) of a spreadsheet. I know how to disable
doubleclicking for the entire spreadsheet using:

Application.EditDirectlyInCell = False

Is there a way apply this to a specific range only?

or more simply

Cancel = Not (Intersect(Target, Range("A1:D4")) Is Nothing )
--
Patrick Molloy
Microsoft Excel MVP
----------------------------------
"Vasant Nanavati" <vasantn *AT* aol *DOT* com wrote in message
...
In the BeforeDoubleClick event of the Worksheet:

If Not Intersect(Target, Range("A1:D4")) Is Nothing Then Cancel = True

--

Vasant



"Brandon" wrote in message
...
I am trying to disable the mouse doubleclick on certain
cells(range) of a spreadsheet. I know how to disable
doubleclicking for the entire spreadsheet using:

Application.EditDirectlyInCell = False

Is there a way apply this to a specific range only?

Nice, Patrick!

Regards,

Vasant.

"Patrick Molloy" wrote in message
...
or more simply

Cancel = Not (Intersect(Target, Range("A1:D4")) Is Nothing )
--
Patrick Molloy
Microsoft Excel MVP
----------------------------------
"Vasant Nanavati" <vasantn *AT* aol *DOT* com wrote in message
...
In the BeforeDoubleClick event of the Worksheet:

If Not Intersect(Target, Range("A1:D4")) Is Nothing Then Cancel = True

--

Vasant



"Brandon" wrote in message
...
I am trying to disable the mouse doubleclick on certain
cells(range) of a spreadsheet. I know how to disable
doubleclicking for the entire spreadsheet using:

Application.EditDirectlyInCell = False

Is there a way apply this to a specific range only?

Thank you all for your answers. I tried them all and they
worked.
I used the following code from Patrick Molloy and it
disabled the doubleclick for the range of cells from A1
to A10.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As Boolean)
Cancel = Not (Intersect(Target, Range("A1:A10")) Is
Nothing)
End Sub

Thanks a lot to all of you,
Brandon

-----Original Message-----
I am trying to disable the mouse doubleclick on certain
cells(range) of a spreadsheet. I know how to disable
doubleclicking for the entire spreadsheet using:

Application.EditDirectlyInCell = False

Is there a way apply this to a specific range only?
.