MAKRA-zamknuti+zkopirovani listu

[dk06]

Zdarec,
nevite pls nekdo jak zkopirovat makrem 2 listy (z toho jeden zamceny), a aby to tak zustalo? vicemene zkopirovat komplet s vlastnostma.. jestli se to tak da rici..
na zamknuti jsem pouzil todle makro: (protoze jeste pouzivam makro na schovani prazdnejch bunek, a kdyz jsem to zavrel pres vlastnosti listu; tak uz mi neschoval bunky...)

Sub zamknoutsheslem()

With Worksheets("CDG")
.protect Password:="heslo", Userinterfaceonly:=True
.EnableOutlining = True
End With

End Sub

a na kopirovani listu puzivam todle makro:

Sub Copy()

Worksheets(Array("CDG", "HYP")).Select
Sheets(Array("CDG", "HYP")).Copy After:=Sheets(Sheets.Count)

End Sub

Makra fungujou, krome zachovani zkopirovanyho listu zaheslovanym (proste zkopirovanej list neni zamknuty). Potreboval bych, ze kdyz si zahesluju proti prepisu prvni list (a mohl furt schovat prazdny bunky) aby se mi zkopiroval ten list pomoci makra a uz byl furt zaheslovanej.
Moc diky
D

[cmuch]

Však to kopíruje i to zamknutí. Nepoužíváš tam ještě něco jiného?

Na kopírování stačí použít i jen toto

Kód: Vybrat vše

Sub kopie ()
Sheets(Array("CDG", "HYP")).Copy After:=Sheets(Sheets.Count)
End sub

[guest]

Kdyby mělo být takhle jednoduché odemykání listů...

[dk06]

praveze, kdyz ten list kopiruju pres makro, tak zamcenej neni nikdy (zkousel sem ruzny kody uz) a kdyz ho zkopiruju klasicky, tak zamcenej je..

[cmuch]

Mě to tedy jde na Ex2003 a Ex2010
Zkus přílohu

[dk06]

Akorát já to zamčení bych potřeboval, aby přitom šlo schovat určitý řádky.. jako tendle příklad .. myslíš, že něco takovýho půjde?
díky