Příspěvky uživatele
< návrat zpět
Paráda! Děkuji
Je to zvláštní, ale v pátek bylo všechno v pořádku. V sobotu opět nešlo o den dřív psát. Poslal jsem kolegovi, zda mu to funguje a jemu to fungovalo, tak jak má. Dnes můj soubor uložený v PC neotevře od 4.6., kolega může editovat do 5.4.. Přitom, když si otevřu Váš zaslaný soubor, tak všechno funguje jak má. Vytvořil jsem ještě v pátek kopii stejného souboru a ten je otevřený do 3.6. a zůstalo to tak do dneška a kolega to má stejně. Takže dva stejné soubory a každému to dělá úplně něco jiného. Co jsem udělal je, že jsem jen vzal Váš zaslaný soubor a vložil do nich naše data, zamkl celý list s heslem a to je vše. A právě to zamknutí listu s heslem tam nějak dělalo ten bordel. Dal jsem pryč zamykání heslem a fugnuje to ve všech souborech! DĚKUJI MOC ZA VYŘEŠENÍ CELÉ PROBLEMATIKY! 
Tak to se omlouvám, že jsem nesrozumitelně popsal zadání.
Potřeboval bych od dnešního dne na následující rok zamykat buňky, ale ty buňky, které jsou před dnešním datumem, tak aby se opět otevřely. Tj všechny buňky před 4.6. otevřít a od 4.6.21 do 3.6.22 zamknout.
Sloupec F již v pořádku. Jen ve sloupci I o den zpět se stále zamyká...
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...
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.
Tak beru zpět, funguje to perfektně!
Měl jsem sloupec I zamknuté buňky.
Bohužel mi to stále zamyká minulé datumy ve sloupci I.
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
Next
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?
V příloze tedy posílám konkrétní soubor.
Děkuji moc!
Uživatelské menu
\nMenu
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.
RSS nejnovější články