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
MAKRA-zamknuti+zkopirovani listu
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: MAKRA-zamknuti+zkopirovani listu
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
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
-
- Pohlaví:
Re: MAKRA-zamknuti+zkopirovani listu
Kdyby mělo být takhle jednoduché odemykání listů...
Re: MAKRA-zamknuti+zkopirovani listu
praveze, kdyz ten list kopiruju pres makro, tak zamcenej neni nikdy (zkousel sem ruzny kody uz) a kdyz ho zkopiruju klasicky, tak zamcenej je..
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: MAKRA-zamknuti+zkopirovani listu
Mě to tedy jde na Ex2003 a Ex2010
Zkus přílohu
Zkus přílohu
- Přílohy
-
- KopieZamknutehoListu.xlsm
- (16.09 KiB) Staženo 25 x
Re: MAKRA-zamknuti+zkopirovani listu
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
díky
- Přílohy
-
- TEST.xlsm
- (19.86 KiB) Staženo 17 x
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 424
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
-
Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky - 2
- 2070
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů