MS Excel

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: 1 2 3 další »

Jiří497(21.5.2021 15:32)#050712

Musí být samozřejmě zamknutý list.
Buňky do kterých se má zapisovat musí mít vypnutý zámek.
Nedělal bych rozsah A:A, ale podle skutečného rozsahu (v příkladu je A1:A20)
List se v makru musí pojmenovat podel skutečnosti, případně doplnit i "Workbook" pokud se makro nebude spouštět přímo z procedury v listu.

Sub klouzavyZamek1()
Dim cell As Range

'odemknout list
Sheets("List1").Unprotect

'nastavit zámek v buňce ve sloupci B, která odpovídá podmínce
For Each cell In Range("A1:A20")
If cell.Value >= Date And cell.Value < Date + 14 Then
Cells(cell.Row, 2).Locked = True
End If
Next

'zamknout list
Sheets("List1").Protect

End Subcitovat

CFC48(24.5.2021 9:24)#050717

Díky za rychlou reakci, ale potreboval bych jeste instrukce, jak to mam spravne vlozit do meho Excel souboru.

Překopíroval jsem zaslany zdrojovy kod do VBA do Module1, kde mam ostatni makra. Jen s upravou B8:B372, kde jsou datumy. Zamkl jsem cely list a nechal sloupec F, kam se budou zapisovat hodnoty, vypnutou funkci Zamknout bunku. Nic to nedela, tak nevim jestli se to makro vubec spusti.

Díky!citovat

Jiří497(24.5.2021 16:02)#050722

Když se zaregistrujete a vložíte sbalený soubor, tak se můžeme bavit konkrítně.
Makro nevkládejte do modulu, ale přímo do listu - viz. přiložený obrázek

Příloha: png

50722_zamknuti-bunky-obr.png (10kB, staženo 60x)

citovat

Jiří497(24.5.2021 16:08)#050723

tady v souboru

Příloha: zip

50723_zamek.zip (15kB, staženo 21x)

citovat

CFC48(28.5.2021 9:58)#050753

V příloze tedy posílám konkrétní soubor.
Děkuji moc!

Příloha: zip

50753_gma.zip (32kB, staženo 16x)

citovat

Jiří497(28.5.2021 11:10)#050755

CFC48 napsal/a:

Nic to nedela, tak nevim jestli se to makro vubec spusti.Díky

Samo se nespustí. To mu musíte nějak říct, aby se spustilo

Čekal jsem, že pošlete soubor s tím makrem, které vám nefunguje.
Makro jsem vám vložil do modulu. Spouští se tlačítkem z listu. Netuším, jak to má přesně fungovat. Jestli se mají buňky zamknout při otevření sešitu, při uzavření nebo to bude navázané na jiné makro...

Příloha: zip

50755_gma.zip (36kB, staženo 15x)

citovat

CFC48(28.5.2021 12:24)#050756

Aby to bylo přehledné, tak jsem Vám poslal jen soubor bez všech maker a nechal tam pro jednoduchost jen těch pár sloupců.

Napojil jsem Vaše makro na tlačítko a funguje to. Jen bych Vás chtěl ještě poprosit o jednu úpravu. Potřeboval bych zamknout všechny bunky pred dnesnim datumem.

Bylo by mozné, aby se toto makro spustilo pri kazdem otevreni souboru?

Příloha: zip