< návrat zpět

MS Excel

Téma: Zamknutí buňky na základě hodnoty v seznamu rss

Zaslal/a berrz 21.11.2011 17:10

Zdravím,
připravuji formulář a chtěl bych tímto požádat o radu jak na základě vybrané hodnoty z rozevíracího seznamu zamknout buňku a současně jí nastavit šedé pozadí.

Přikládám jednoduchý vzor:

www.zdapol.com/Tab.xls

Např. když se vybere "Liberec" bude zamknutá oblast s šedivým pozadím (G4:G5), když "Plzeň" tak např. buňka (E5)

Děkuji za radu

stop Uzamčeno - nelze přidávat nové příspěvky.
icon Poki(24.11.2011 9:57)#006540
Poki
Zdravim,
tohle lze upravit kodem - problem se zamcenim bunek je ten, ze pokud chcete mit uzamcene bunky opravdu uzamcene (tim myslim, ze do nich nelze psat), musi byt uzamcen list.
Defaultne jsou vsechny bunky listu uzamcene.

Nasledujici kod vlozte do modulu listu, na kterem pracujete:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
ActiveSheet.Unprotect
'bila barva cele oblasti a jeji odemceni (bunek)
Range("B3:H5").Interior.ColorIndex = 2
Range("B3:H5").Locked = False
'--Liberec
If Target.Value = "Liberec" Then
Range("G4:G5").Interior.ColorIndex = 15
Range("G4:G5").Locked = True
End If
'--Plzeň
If Target.Value = "Plzeň" Then
Range("E5").Interior.ColorIndex = 15
Range("E5").Locked = True
End If
ActiveSheet.Protect
End If
End Subcitovat
berrz(27.11.2011 21:17)#006558
avatar
Zdravím,
a děkuji moc, dělá to přesně to jak jsem si to představoval

Díky berrzcitovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje