< návrat zpět

MS Excel


Téma: Uzamykání buněk rss

Zaslal/a 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ěď >

#000844
Jeza.m
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)
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

Která Ip otevřela sešit

Barth • 23.9. 12:27

Která Ip otevřela sešit

Barth • 23.9. 10:15

Která Ip otevřela sešit

Barth • 23.9. 9:48

Která Ip otevřela sešit

Scraper • 22.9. 12:47

Vyhledat s vícenásobných porovnáním

maxovo • 22.9. 11:29

spustit makro změnou hodnoty v buňce a svyhledat

Stalker • 21.9. 20:36

spustit makro změnou hodnoty v buňce a svyhledat

elninoslov • 21.9. 19:01