< 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

Výpočet odpracovaných hodin za den

elninoslov • 30.1. 0:35

Výpočet odpracovaných hodin za den

Mikus • 29.1. 21:58

vložit do bunky datum

PavDD • 29.1. 19:47

odkaz na zadanu cestu vba

jano5 • 29.1. 19:41

odkaz na zadanu cestu vba

jano5 • 29.1. 19:29

odkaz na zadanu cestu vba

elninoslov • 29.1. 17:33

odkaz na zadanu cestu vba

Lugr • 29.1. 17:19