Hello.
it is possible this macro functions only on sheet 2 - sheet 3 etc .. and not in sheet1?
max
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.CutCopyMode = False '<<< disabilta copia/incolla Application.CellDragAndDrop = False '<<< disabilita quadratino di trascinimento End Sub
Thanks jaslake.
A control response to # 8?
Thanks again.
max
Hi Max
See if this works for you...
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not ActiveSheet.Name = "Foglio1" Then Application.CutCopyMode = False '<<< disabilta copia/incolla Application.CellDragAndDrop = False '<<< disabilita quadratino di trascinimento End If End Sub
John
If you have issues with Code I've provided, I appreciate your feedback.
In the event Code provided resolves your issue, please mark your Thread as SOLVED.
If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.
Thanks jaslake.
the new change does not work well.
In "Foglio1" does not work
Application.CellDragAndDrop = False
In "Foglio1" works
Application.CutCopyMode = False
I attach example.
max
Hi Max
I don't understand what you're trying to accomplish.
I hope to explain myself with google translator.
Open workbook
click Foglio2 in cell yellow
click in Foglio1
in Foglio1 not work CellDragAndDrop
in Foglio1 work CutCopyMode
I hope I explained.
max
I corrected the reply
Last edited by max_max; 10-02-2016 at 03:06 PM.
Hi Max
What do you wish to work in Foglio 1?
Drag and Drop...Yes? No?
Cut Copy...Yes? No?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks