• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA: Zamknutí buněk podle datumu

Zaslal/a CFC48 21.5.2021 14:37

Ahoj,

mám dva sloupce, kde treba v A:A jsou datumy a v B:B se budou doplnovat hodnoty. Potreboval bych zamknout vsechny bunky ve sloupci B:B, které budou od aktualniho dnesniho dne na nasledujicich 14 dni. Jeste k tomu vsechny bunky, ktere jiz jsou po aktualnim dnesnim dnu, tak aby zustaly zamcene. Takze by to byl takovy klouzavy zamek od dnesniho dne na nasledujicich 14 dni.

Díky moc za jakoukoliv radu!

Zaslat odpověď >

---

Strana:  « předchozí  1 2 3   další »

CFC48(31.5.2021 17:14)#050768

Funguje to skvěle!

Ještě se chci zeptat, když chci zamknout buňky ve sloupci "I" (9. sloupec) podle logiky: vsechno od dnesniho datumu na nasledujici rok. Zkopiroval jsem cast prikazu s upravou, ale zamika mi to vsechny minule datumy k dnesnimu datumu.

For Each cell In oblast
If cell.Value >= Date And cell.Value < Date + 15 Then
Sheets(jmenoListu).Cells(cell.Row, 6).Locked = True
End If

If cell.Value >= Date And cell.Value > Date + 365 Then
Sheets(jmenoListu).Cells(cell.Row, 9).Locked = True
End If

Nextcitovat

Jiří497(1.6.2021 0:13)#050769

CFC48 napsal/a:

cell.Value >= Date And cell.Value > Date + 365 Then

Tak jak to máte napsáno tady, tak to zamkne všechny buňky za rok a více.
Dnes je 1.6.2021. Zamknuté budou buňky 2.6.2022, 3.6.2022,4.6.2022...atd.

Jestli chcete mít zamčené buňky 1.6.2021 - 31.5.2022, tak musíte změnit druhé znaménko: If cell.Value >= Date And cell.Value < Date + 365 Then
Sheets(jmenoListu).Cells(cell.Row, 9).Locked = True
End Iftzn. zamkni buňky ve sloupci 9, když je datum ve sloupci 1 stejný nebo větší jak dnešní den a zároveň je menší než datum za 365 dní.

Jestli vám to zamyká jen minulé datumy, tak tam máte zřejmě if cell.Value < Date then nebo tam máte nějaký jiný zádrhel.citovat

CFC48(2.6.2021 13:33)#050782

Bohužel mi to stále zamyká minulé datumy ve sloupci I.

Příloha: 50782_gma_v2.zip (70kB, staženo 15x)

citovat

CFC48(2.6.2021 15:28)#050783

Tak beru zpět, funguje to perfektně!
Měl jsem sloupec I zamknuté buňky.citovat

CFC48(3.6.2021 15:58)#050791

Nevím, co se pokazilo, ale dneska to opět zamyká, jak nemá. Sloupec F zamyká až do 20.6., přitom by to mělo být zamknuté do 17. a sloupec I zamkl 2.6., které by ale mělo být dnes otevřené.

Moc prosím ještě o pomoct.

Příloha: 50791_gma_v2.rar (71kB, staženo 12x)

citovat

Jiří497(3.6.2021 20:13)#050792

Nic se nepokazilo. Mně to funguje správně. Vámi uvedené zamknuté buňky se tam musely dostat jinak.

Do kodu jsem doplnil příkaz, který buňku, kterou makro zamyká, tak zároveň přeškrtne. Ať je vidět, s kterými buňkami se pracuje.

Příloha: 50792_gma_v2.1.zip (73kB, staženo 14x)

citovat

CFC48(3.6.2021 23:46)#050793

Dělá mi to samé i ve Vámi zaslaném souboru, i když přeškrtnuté buňky jsou správně
Vůbec mě nenapadá, jak by se to tam mohlo dostat jinak...

Příloha: 50793_gma.png (27kB, staženo 25x)

citovat

Jiří497(4.6.2021 1:20)#050794

A co teď?

Příloha: 50794_gma_v2.2.rar (73kB, staženo 13x)

citovat

CFC48(4.6.2021 9:53)#050795

Sloupec F již v pořádku. Jen ve sloupci I o den zpět se stále zamyká...

Příloha: 50795_gma3.png (19kB, staženo 19x)

citovat

Jiří497(4.6.2021 12:40)#050798

Ale to je přece v zadání.
Když si otevřu soubor 2.6, tak se zamknou buňky od 2.62021 do 1.6.2022.
Když pak otevřu soubor 3.6, tak se zamknou buňky od 3.6.2021 do 2.6.2021 a to co bylo zamknuté (tedy 2.6.2021), tak zamknuté zůstává.

V přiloženém souboru jsou zamknuty buňky od 4.6.2021.

Příloha: 50798_gma_v2.2.zip (74kB, staženo 18x)

citovat

Strana:  « předchozí  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse