Copy with Ctrl + C and paste with Ctrl + V in locked sheet

[Nikko]

Copy with Ctrl + C and paste Ctrl + V in the same locked sheet, in certain cells.
Copy with Ctrl + C cell range "R4: R18" and paste in the cell range "N4: N18" with Ctrl + V. How can I do this with VBA code?

Thanks everyone in advance for your time and effort.

Nikko

 

[Nikko]

I would like to add that only values should be copied from the cells.

Thx again

 

[MARK858]

Maybe...

ActiveSheet.Unprotect "your password"
Range("N4:N18").Value = Range("R4:R18").Value
ActiveSheet.Protect "your password"

 

[Nikko]

Hi MARK858,

Thanks for your quick reply & help.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Unprotect ("1234")
If Intersect(Target, Range("R4:R18")) Is Nothing Then Exit Sub
ActiveSheet.ActiveCell.Copy
ActiveSheet.Range("N4:N18").PasteSpecial xlPasteValues
Me.Protect ("1234")
End Sub

I make this code to copy and paste any cells in this Range. The problem with my code is that i copy the cell format.
But want only to copy the values of the cells "R4: R18" and paste them into "N4: N18".
At the same time, as I said before, it just wants to copy & paste selected cells from this area as my code does.

Hope that my English is somewhat understandable

Thx,
Nikko

 

[Nikko]

Sry wrong code, now this is the code i make and use, but like i sayd, his copied the format from the cells too, want only values.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Unprotect ("1234")
If Not Intersect(Target, Range("R4:R18", "N4:N18")) Is Nothing Then
Cancel = True
If Application.CutCopyMode Then
.PasteSpecial Paste:=xlValues
    '   .PasteSpecial Paste:=xlFormats
End With
Application.CutCopyMode = False
Else
End If
Me.Protect ("1234")
End If
End Sub

 

[MARK858]

That last code should be pasting nothing, it should be erring out.

 

[Nikko]

A proposed solution how can I do it?
Loud code snippets, my little English and my ignorance in VBA, overwhelmed me.
Stand on the hose.
Just want to search for cells in the "R4: R18" area, copy and paste these cell values into the "N4: N18" area (only cell values).
Then the sheet should be locked as before.

any help in this direction is welcome

Thx,
Nikko

 

[Nikko]

Just want to search for cells in the "R4: R18" area = Just want select cells (ans olny values of them) from the "R4: R18" area .

 

[MARK858]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Unprotect "1234"
If Intersect(Target, Range("R4:R18")) Is Nothing Then Exit Sub
Range("N4:N18").Value = Range("R4:R18").Value
Me.Protect "1234"
End Sub

Although I am not sure that you want a Worksheet_SelectionChange, how are you triggering the code? and are you trying to paste a single cell in the range or all 14 cells?

 

[Nikko]

and are you trying to paste a single cell in the range or all 14 cells?
would like to paste single cells or all of them together, or part of them, if necessary.

how are you triggering the code?
Can I trigger this with the right mouse button?
Like that?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Me.Unprotect "1234"
If Intersect(Target, Range("R4:R18")) Is Nothing Then Exit Sub
Range("N4:N18").Value = Range("R4:R18").Value
Cancel=True
End If
Me.Protect "1234"
End Sub