Hi,
I have an excel which has a inhouse format. When a user tires to
paste data onto to the excel he should only be pasting values and not
disturb the format / formulas in the excel.I have implemented this by
using paste special when the user tries to paste.This can be done by
capturing the paste keys and calling paste special instead.
In addition to this I also need to diable the Cell Drag drop
functionality so that no one should be able to drag the cells down and
disturb the formulas.So I used the Application.CellDragDrop = false.
This does throws error when paste special is called saying the paste
special function of the range failed.If I comment the
Application.CellDragDrop = false line it works fine.I have given the
code below. Any help appreciated.
Private Sub Workbook_Activate()
Application.CellDragAndDrop = false
Application.OnKey "^v", "Sheet1.Pastewithoutformatting" 'Added new
function
End Sub
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = true
End Sub

Sub PasteWithoutFormatting()
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False,
Transpose:=False
Exit Sub