LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #8   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 188
Default Identify when a user attempts to turn on "Allow cell drag and drop"

"Jim Cone" wrote in message
...

Alan,

You could try playing around with the following code.
Note what happens when a multi-cell selection is moved...
'---------------------------------------------------------
'Code goes in the worksheet code module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CellDragAndDrop Then
Application.EnableEvents = False
Application.Undo
Application.CellDragAndDrop = False
Application.EnableEvents = True
End If
End Sub
'---------------------------------------------------------
Regards,
Jim Cone
San Francisco, CA


Thanks Jim - I like that.

Alan.



 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Turn off "CALCULATE" on bottom of Excel worksheet. near "Ready" chrispal86 Excel Discussion (Misc queries) 2 February 2nd 10 08:36 PM
Shortcut to switch from "fill down" to "copy" with mouse drag RJ Dake Excel Discussion (Misc queries) 3 August 13th 09 05:35 PM
how can I disable "cutting cells" and "drag and drop "in excel ? mwoody Excel Worksheet Functions 4 August 25th 08 03:53 PM
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell Steve Kay Excel Discussion (Misc queries) 2 August 8th 08 01:54 AM
When I drag and drop overwrites my notes, Options ''Alert beforeoverwriting cell" lbbss Excel Discussion (Misc queries) 0 February 4th 08 02:11 AM


All times are GMT +1. The time now is 11:48 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"