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

 

[MARK858]

The End If shouldn't be there.

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

 

[Nikko]

I Try the code but have the same problem like before. The code paste the cell colour from "R4:R18" with the value in "N4:N8".

How i can paste only the Value?

 

[MARK858]

That does not paste any formatting, are you sure that you haven't got any conditional formatting on the cell.

 

[Nikko]

yep i have yellow in cells R4:R18 and Braun in N4:N18.
Paste the value and color in the cells.

To make it even easier (if that's the case ... as a VBA beginner ?),
can I just copy the "R4: R18" area with the VBA code and paste it into another unknown folder?
So I could leave the cell N4: N18 unlocked.

In retrospect, this would actually be the most suitable solution.

sory if I totally mess you up, but I'm still learning by doing ?

Thx anyway

Nikko

 

[Nikko]

unknown folder = unknow file, sheet, workbook

 

[MARK858]

I don't know that we are talking about the same thing, for conditional formatting click the cell that has changed then on the home tab click conditional formatting, click manage rules, check that it says current selection and then see if anything is in the large box.

You can't paste to an unknown folder/workbook.

 

[Nikko]

Thx for your Help ans specialy for the info.