MS Excel

Téma: zámek buňky ve dvou kódech

Zaslal/a MilaF 12.8.2020 11:12

Dobrý den,

obracím se na Vás s dotazem, jak upravit VBA kód, kde mám nadefinovaný zámek buňky v sloupci AE.

Dotaz je takový, že pokud se vybere hodnota (jméno) v sloupci U, pak se daná buňka s vyplněným jménem musí uzamknout a nesmí být přístupná pro další editaci. Např. v je vyplněno jméno v U5, tak již nesmí být možnost vybrat jiné jméno v U5).

Našel jsem si toto řešení, které funguje,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set xRg = Intersect(Range("U2:U10"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="MilaF"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="MilaF", AllowFiltering:=True
End Sub

ale zamyká mi pak celý sešit a nefunguje mi pak vkládání data do buněk AE, na které je již napsané jiné makro.
Potřeboval bych to ideálně udělat tak, aby se mi ohledně zámku buněk v U nezamykal sešit, ale jen právě ta konkrétní buňka U a nešla dále editovat.
Moc děkuji za pomoc.