MS Excel

Ani bych to tak nenazval zámkem, ale jen makrem které tě na vybrané buňky bez hesla nepustí.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim heslo As String
heslo = "heslo"

Select Case Target.Address
Case "$B$4", "$C$4", "$D$4"
If InputBox("Zadej heslo pro zápis do této buňky:", "Ověření") <> heslo Then
Cells(ActiveCell.Row, ActiveCell.Column + 1).Activate
End If
End Select
End Sub

M@citovat

Omoluvám se, ještě příloha citovat

Děkuji, Poki, supr nápad, bohužel mi to nefachá, zkoušela jsem to zakomponovat do makra, které v souboru spouštím i samostatně do private sub a ani v jednom nic. Zkusil bys mi to hodit do toho souborku pls? Děkujicitovat

Mi bohužel nestačí jen si \"na tvrdo\" pojmenovat oblasti v excelu, protože uživatelé budou soubor aktualizovat, doplňovat do něj nové řádky a s tím se musí měnit i oblast, která bude zamykána. Proto jsem tuto oblast pro heslo chtěla mít nadefinovanou jako proměnnou v kódu. Pak oblast buněk chráněná daným heslem = proměnné. ještě na to zkusím mkrnout, kdyby tě něco napadlo, budu ráda ... díkycitovat

Je to přesně tak, jak píšeš, je to jen z důvodu nechtěných zásahů, nikomu primárně nejde o to ten soubor ničit, spíš aby omylem jeden nenarušil data druhému.
Ke tvé druhé poznámce - moje úvaha byla taková, že každý uživatel při vyplňování nového řádku vybere v daném sloupci příznak, že řádek je jeho. Před uložením by pak např. tlačítkem spustil makro, které by si řádky seřadilo podle toho příznaku a dle toho označilo oblasti. Tyto oblasti by definovaly proměnné, tedy oblasti, které mají být zajištěny daným heslem ...
Uživatel by pak samozřejmě musel souhlasit s tím, že bude muset dodržovat některá pravidla, pokud se souborem bude chtít pracovat. Jinak to asi vyřešit nelze.citovat