macro copy paste on protect sheets and hidden within the same workbook

hello

I have a problem, which is as follows.

I made this macro that can be seen below (with a little help is truth).

problem now is the following:

when the sheet that will receive the copy is protected with password, do nothing get nothing ...

What I do regret to add or?


COPIARCOLAR sub ()
'
'Macro COPIARnovaforma
'

Sheets ("new way"). Select
Range ("a12"). Select
Range ("a12: ah112). Select
Selection.Copy
Sheets ("new map"). Select
Range ("a12"). Select
Selection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, _ SkipBlanks
: = False, Transpose: = False
Application.CutCopyMode = False
Range ("a12"). Select
End Sub