MS Excel

@eLCHa
k jednotlivým poznámkam:
Používáte toto řešení a jaké máte zkušenosti?
Pravdou je, že použitie mojej premennej na úrovni modulu som netestoval na odolnosť v čase, takže neviem, či by to v prípade, že súbor bude nejakú dobu otvorený, naozaj nezačalo páchať šarapatu, ale nemám dôvod Vám neveriť, keď to zmieňujete. Použitie pomenovaných oblastí je spôsob, ktorý by to mohol vyriešiť, ďakujem. Inak, ale, ja som zas toľko kódov, aby som mohol hovoriť o nejakých skúsenostiach, nenapísal, čiže nemám nejakú zaručenú kuchárku, riešim väčšinou nejaké ad-hoc veci a pokiaľ sa mi nejaký postup osvedčí, tak ho používam.

On Error Resume Next - v tomto případě zbytečné až nebezpečné - Range má vždycky rodiče na úrovni listu
Ošetrenie chyby som použil pre prípad, kedy bude súbor otvorený, ale na dotknutý list (so zamykanými bunkami) sa pred uložením nebude zapisovať. V tom prípade by totiž objekt MyLockedRange zostal nothing a makro hodí chybu, v tomto prípade totiž ten objekt rodiča nemá.

Jestli smím no isteže smiete, ja som naopak skutočne rád, pokiaľ mi radí niekto, kto veci rozumie a som Vám vďačný.

Aby som pravdu povedal, tak presne neviem, čo znamená inštrukcia On Error GoTo 0, kam presne kód odskočí v prípade chyby, pokiaľ nikde label 0 v kóde nepoužijem?

P.S. - úloha od slečny z Egypta sa stáva pomaly mojou nočnou morou, slečna sa makro rozhodla použiť na cca 350 úloh v rámci jednoho projektu a vyzerá to špatne. Mne, než som to svoje makro prerušil, vyhodilo už 216472 záznamov (niektoré úlohy majú totiž i 40 vetvení, takže počet kombinácií narastá naozaj geometrickou radou), to je peklo. Budem to musieť napísať celé odznova nejako inak. Skúšal som Vaše a po prerušení to pre istotu nevypísalo nič (asi preto, že Vaše to vypíše do listu až po tom, čo si to celé vytvorí niekde v pamäti)citovat

@eLCHa
opäť veľká vďaka za výborné tipy.

ad Egypt: slečna vo svojej práci na obhajobu PhD počíta kritickú cestu u projektu, mne bohužiaľ na začiatku nedocvaklo, že z pár úloh v projekte bude razom niekoľko sto a to makro na to nebolo vôbec stavané (o stovkách úloh na začiatku nepadlo slovo, moja smola, mal som to predvídať). Včera v noci som u toho už dosť zúril a uvažoval nad riešením v Access, ešte to zvážim. Tam ale budem musieť tiež vytvoriť nejaký dotaz, ktorý v cykle bude jednotlivé cesty reťaziť, manuálne je to prakticky neriešiteľné...

@Elly - na základe cennej poznámky od eLCHy, v kódovom okne ThisWorkbook teda:Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Dim SheetToProtect As Worksheet
If Not MyLockedRange Is Nothing Then
Set SheetToProtect = MyLockedRange.Parent
SheetToProtect.Unprotect ("HESLO")
MyLockedRange.Locked = True
SheetToProtect.Protect ("HESLO")
End If
Application.ScreenUpdating = True
End SubPokiaľ by tá globálna premenná nefungovala korektne, tak to nahradíme pomenovanou oblasťou ako navrhol eLCHa, ale najprv sa pozrite, či to funguje takto a budeme riešiť až v prípade problémucitovat

Ještě jedna věc. Je možné kód použít pro více listů v jednom sešitu? Nefunguje mi to :-(citovat

Při kliknutí na buňky, aniž by došlo k zápisu hodnoty, dojde také k uzamčení buňky. Je možné nějak ošetřit, aby se uzamčely je ty buňky, které obsahují při ukládání nějakou hodnotu? Prázdná buňka není přípustná.citovat

To AL: Chtěla jsem to vzdát, protože programování opravdu nerozumím, ale zázrakem se mi podařilo upravit kód pro více listů. Nefunguje mi to ale pro sloučené buňky Nechci prudit, ale jde s tím něco udělat? citovat