MS Excel

Téma: Uzamykání buněk

Zaslal/a we.tom 13.11.2009 20:37

Dobrý den,potřebuji v excelu provést uzamčení buněk, které je podmíněné časem (datem).

Např. Mám týdenní plánovač a potřebuji, aby byly odemčeny pouze buňky, které spadají pod aktuální datum (ostaní jsou uzamknuty - minimálně ty, které mají starší datum). Druhý den se uzamknou a odemknou se buňky pro nový den.

Děkuji za radu.

Zaslat odpověď >

Jeza.m(15.11.2009 22:47)#000844

Dobrý den,

tady je příklad kódu se smyčkou prohledávající sloupec A od řádku 2 po první prázdnou buňku a porovnávající aktuální datum s datem v buňce. Uzamykání / odemykání probíhá v téže buňce (.cells(radek,1)), což logicky nemá smysl, v paxi bude asi nahrazeno celým řádkem (.rows(radek)), nebo rozmezím (.range("B" & radek, "D"& radek))

Private Sub Workbook_Open()
Dim radek As Single
radek = 2
List1.Unprotect "heslo"
Do While Cells(radek, 1) <> ""
If List1.Cells(radek, 1) = Date Then List1.Cells(radek, 1).Locked = False Else List1.Cells(radek, 1).Locked = True
radek = radek + 1
Loop
List1.Protect "heslo"
End Sub
M@citovat

Uživatelské menu

Nejste přihlášen(a)

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.