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

**Birnen** · 08-20-2010, 12:03 PM

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

**t0m46** · 08-20-2010, 12:28 PM

Hey,

You need to use

Activesheet.Protect 
Activesheeet.Unprotect

You will need to enter the password though if it is pasword protected. Im not sure if you can code the password into the macro

Hope this helps

**Birnen** · 08-20-2010, 12:33 PM

Originally Posted by t0m46

Hey,

You need to use

Activesheet.Protect 
Activesheeet.Unprotect

You will need to enter the password though if it is pasword protected. Im not sure if you can code the password into the macro

Hope this helps

OK
Now my doubt is where do I put this code in the macro???

**t0m46** · 08-24-2010, 10:25 AM

Hey, Sorry for the late reply.

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

You would insert them like this, after you have selected the sheet and before you select another sheet.

**Birnen** · 08-30-2010, 01:28 PM

friends

Once again I ask your help for this project ...

is that besides not being able to enter the codes to copy paste in protected sheets, I have another problem as serious as this.

is to set the macro to go from one sheet, ie the principal to another that is hidden within the same workbook.

: (

**JBeaucaire** · 08-30-2010, 01:42 PM

1) You do not have to "activate" a sheet to use VBA to do stuff to that sheet. Simply address your commands directly to that sheet.

2) You do not have to "unprotect" a sheet for VBA to be able to make changes to it, simply set the UserInterfaceOnly flag for that worksheet.

Sheets("new way").Range ("A12:AH112).Copy 

With Sheets("new map")
    .Protect , UserInterfaceOnly:=True
    .Range("A12").PasteSpecial xlPasteValues
End With

**Birnen** · 08-30-2010, 02:03 PM

Originally Posted by JBeaucaire

1) You do not have to "activate" a sheet to use VBA to do stuff to that sheet. Simply address your commands directly to that sheet.

2) You do not have to "unprotect" a sheet for VBA to be able to make changes to it, simply set the UserInterfaceOnly flag for that worksheet.

Sheets("new way").Range ("A12:AH112).Copy 

With Sheets("new map")
    .Protect , UserInterfaceOnly:=True
    .Range("A12").PasteSpecial xlPasteValues
End With

and for the leaves that are hidden in the same book?

it is there that will be recorded which is copied.

and also click on the check sheet (hidden) in the main sheet?

**JBeaucaire** · 08-30-2010, 02:18 PM

You can address commands to hidden worksheets, you cannot "activate" them without unhiding them. But you don't need to do that anyway.

I do not understand your second two sentences.