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
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
\n
RSS nejnovější články