paste value into protected sheet error 1004

Hi
i'am trying to add some values from worksheet2("jan") into a password protected worksheet1("staff"). Password = "123"

I'am able to insert a blank row into worksheet1 (on the fifth row), but my code allways fails when i try to past the values. error 1004
I'am using a commandbutton on worksheet "Jan" below my code:

Option Explicit

Sub Knop1_Klikken()
on error goto ErrorRoutine
Range ("a2:e2").select
Selection.Copy
Worksheets("staff").Select
Worksheets("staff").activate
Worksheets("staff").Unprotect ("123")
Range("A5").Select
Range("A5").EntireRow.Insert Shift:=xlShiftDown
Range("a5:e5").Locked = False
ActiveSheet.PasteSpecial Paste:=xlPasteValue 'here occurs the error 1004, paste or pastespecial don't matters
Application.CutCopyMode = False
Worksheets("staff").Protect ("123")

exitroutine:
Exit Sub
foutroutine:
MsgBox Err.Number & " " & Err.Description
resume next

End Sub


What i'am doing wrong ??

many thanks to figure this out with me, Padob

Please Login or Register  to view this content.

The Paste method needs a Range to paste into... Not just a worksheet. For example

Please Login or Register  to view this content.

Also:
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

hi,
i'am sorry for the violation of the forumrules. it was out of my mind and partially caused by my knowlege of english

I've changed activeSheet.paste... into ActiveSheet.Range("a5:e5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ,
but the error still occurs.
regards, PAtrick