< návrat zpět

MS Excel


Téma: Zamknout buňku rss

Zaslal/a 18.12.2009 10:18

Dobrý den,
Mám zamčený list v excelu, kdy prázdné buňky jsou odemčené, potřebuji aby se buňka zamkla pokud do ní něco napíšu. Nemohu přijít na to jak to udělat...
Děkuji

Zaslat odpověď >

#000952
Jeza.m
Ahoj zkusil to třeba takhle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Locked = False And Target <> "" Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End If
End Sub


Za Unprotect a Protect lze dle potřeby přidat do uvozovek heslo.

M@citovat
#000953
avatar
Ahoj,
Děkuju za pomoc. Funguje to Výborně!citovat
#000958
avatar
Ahoj, mam dotazek... Pri spusteni listu mam zamkle skoro vsechny bunky a potrebuji je postupne odemykat podle zadaneho textu do jine bunky. Problem je ten, ze do kodu nemohu dat target, protoze nepotrebuji pracovat s aktualni bunkou. Takze mam v kodu:

cells(radek, 4).locked = false

Vyskytne se chyba: Není možné nastavit vlastnost locked třídy range.

Nějaké nápady?
Dekuji za radu. BTW: Excel 2007 :-/citovat
icon #000963
Poki
Nejak si nedovedu predstavit, co presne potrebujes - bylo by asi dobry prilozit nejakej priklad...citovat
#000964
Jeza.m
Ahoj,

zkusil jsem postavit příklad za předpokladu, že buňka A1 bude říkat který řádek ve sloupci A se má odemknout:


Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Cells(1, 1)) Then 'ověří zda-li je v buňce A1 číselná hodnota
If Cells(1, 1) > 0 And Cells(1, 1) <= 65536 Then 'ověří zda-li ta číselná hodnota je větší než 0 a pro excel 2003 menší nebo rovno 65536, pro excel 2007 to bude nějakých cca 1,2M
Dim radek As Single 'definice proměnné
ActiveSheet.Unprotect 'odemčení listu
radek = Cells(1, 1) 'nastavení hodnoty z buňky A1 do proměnné
Cells(radek, 1).Locked = False 'odemčení buňky na řádku radek ve sloupci 1 (A)
ActiveSheet.Protect 'zamčení listu
End If
End If
End Sub


Snad by mělo chodit i pod 2007 :-), což si ale sám nezkusím :-).

Přeji krásného Silvestra.
M@citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Výmaz řádku podle hodnoty v konkrétním sloupci

elninoslov • 7.2. 21:49

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 14:02

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 11:44

plán 12 h směn na celý rok

PE1PA • 6.2. 14:56

plán 12 h směn na celý rok

elninoslov • 6.2. 14:16

plán 12 h směn na celý rok

elninoslov • 6.2. 14:15

plán 12 h směn na celý rok

elninoslov • 6.2. 13:21