Ahoj potřebovala bych poradit. Mám zamčený list a v něm několik buněk, do kterých je povoleno pouze psát, ale nesmí se v nich měnit formát. To vše funguje do té doby, než někdo text kopíruje z jiné tabulku s jiným formátování (ohraničením aj.), pak se formát zkopíruje ze zdroje a ani nejde změnit, protože je buňka uzamčena proti formátování. Potřebovala bych nějak nastavit, aby se formát nezměnil, případně nějaké automatické makro, které nastaví výchozí písmo,ohraničení i výšku řádku (která se mi po vložení taky změní).
Nebo mě napadlo, zda nejde nastavit parametr, aby do této buňky byly hodnoty vkládány pouze jako vložit jinak->hodnoty.
Existuje nějaké řešení, moc děkuju za pomoc
Uzamčená buňka - zákaz změny formátu při kopírování Vyřešeno
-
- Pohlaví:
Re: Uzamčená buňka - zákaz změny formátu při kopírování
Je to stejné, jako když se ošetřuje přepis Data / Ověření v buňce technikou nakopírování - sledování události Worksheet_Change listu a v případě, že se změnila sledovaná buňka a její vlastnost, vrátit konkrétní vlastnost kódem zpět nebo rovnou použít Application.Undo.
Re: Uzamčená buňka - zákaz změny formátu při kopírování
To zní dobře, jen to asi neumím napsat. Nenapsal bys mi kod, který hlídá buňky A1 až B2 a když dojde ke změně, tak vrátí původní formátování. Byla bych Ti mooc vděčná
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Uzamčená buňka - zákaz změny formátu při kopírování Vyřešeno
Mělo by to splňovat toto.
Vlož do modulu příslušného listu
Vlož do modulu příslušného listu
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngHlidani As Range
Dim VlozenaHodnota As Variant
'nastaveni hlidani oblasti
Set rngHlidani = Range("A1:B2")
VlozenaHodnota = Target.Value
' pokud je vybrana bunka z definovane oblasti tak proved
If Union(rngHlidani, Target).Address = rngHlidani.Address Then
With Application
.EnableEvents = False
.Undo
Range(Target.Address) = VlozenaHodnota
.EnableEvents = True
End With
End If
End Sub
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 771
-
od jaojao
Zobrazit poslední příspěvek
26 bře 2024 12:41
-
-
Velké změny před námi! Update fóra a přechod na nový server
od Ltb » 15 dub 2024 12:23 » v PC-HELP -> NOVINKY - 0
- 1242
-
od Ltb
Zobrazit poslední příspěvek
15 dub 2024 12:23
-
-
- 3
- 1974
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
-
Kontrola kopírování dat z jednoho disku na druhý Příloha(y)
od orfan » včera, 11:59 » v Vše ostatní (sw) - 15
- 329
-
od orfan
Zobrazit poslední příspěvek
včera, 19:51
-
-
-
Obnoveni ztracenych fotek z telefonu pri kopirovani do pc
od Dizzy66 » 21 led 2024 17:08 » v Vše ostatní (sw) - 2
- 1160
-
od šulda
Zobrazit poslední příspěvek
23 úno 2024 07:12
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů