< návrat zpět

MS Excel


Téma: Povolení výběru a zákaz změny hodnot oblasti rss

Zaslal/a 10.12.2012 18:30

LanoZdravím, nějak se mi nedaří "vygooglit" následující problém: v přiloženém sešitu je zelená oblast, u které potřebuji povolit vybrání buněk, ale zakázat jejich změnu. U ostatních buněk zakázat výběr.

PS.: Čeká mně ještě jeden problém. Tento sešit bude používat cca 50 uživatelů, pro něž potřebuji upravit práva pro otevření tohoto sešitu přes login a heslo. Nemáte nějaký "šikovný" odkaz? 1
Děkuji předem

Příloha: rar10612_navrh-02.rar (120kB, staženo 34x)
Zaslat odpověď >

icon #010613
avatar
No, mám nejaký nápad, ale nie je to úplne tip-top.

V prvom rade, na to aby aspon tak-nejak fungovalo moje riešenie, tak do pomocnej premennej by som uložil ten dátum z bunky D14 (31/12/2012).
Čiže, vytvorím pomocou Správcov Názvov premennú DatumStart s odkazom na =DATUM(2012;12;31).

Do D14 potom vzorec =DatumStart+SLOUPEC()-SLOUPEC($D$14)+(ŘÁDEK()-ŘÁDEK($D$14))*7

Ten rozkopírovať do zelenej oblasti (možno i do stĺpcov I a J).

Samotný kód:
Do kódového okna modulu:
Option Explicit

Public LastSelection As Range
Public LastFormula As String


Do kódového okna ThisWorkbook:
Option Explicit

Private Sub Workbook_Open()
Set LastSelection = Sheets("Leden").Range("D14")
LastFormula = LastSelection.Formula
End Sub


Do kódového okna List1(Leden):
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If LastSelection.Formula <> LastFormula Then
LastSelection.Formula = LastFormula
End If
Set LastSelection = Selection
LastFormula = LastSelection.Formula
End Sub


Budeš si to musieť spojiť s Tvojou procedúrou, ktorú máš napísanú pre udalosť Worksheet_SelectionChange, ale to by nemal byť problém, stačí asi tie dve časti hodiť za seba do jednej Sub.

Zamkneš list, povolíš zmeny v zelenej oblasti. Pokiaľ sa užívateľ pokúsi zmeniť bunku v zelenej oblasti, po odskoku (napr. entrom), sa do buniek zapíšu pôvodné vzorce.

Nie je to nič moc, ale ako inšpirácia možno pomôže..citovat
#010617
Lano
Jo, díky, to by šlo. Ještě mně napadlo, že bych mohl vzorce převést na maticové. Ty pak nedovolují změnit jednu buňku v matici. Ale je hloupé, že se pak objevuje hláška, že je to matice, ruší se to ESC... 4
Tvoje řešení je dobré.
Díky 1citovat
icon #010618
avatar
Nemáš zač, tá Tvoja tabuľka sa mi celkom páčila, tak len malý revanš, som rád, že si s tým riešením spokojný. Inak máte dobré ceny za obedy :)citovat
#010619
Lano
Díky za uznání 1 Ale ještě není zdaleka hotová. Teď mně čeká to horší: vytvoření databáze objednaných jídel, systém logování s hesly, výstupy pro objednávání, pro účtárnu...
A co se týká cen, tak ty jsou dobré, ale ta kvalita 6citovat
icon #010640
eLCHa
Všechny buňky v listu zamkněte (ve formátu buněk, záložka zámek)

Odemkněte buňky "AktualRadek", "HodnAktualRadku"

Zamkněte list a povolte na něm pouze výběr uzamčených a odemčených buněk

Přejděte do editoru VBA, označte List1(Leden) a v jeho vlastnostech nastavte ScrollArea na zelenou oblast (vepište adresu D14:H19)

Pak půjdou vybrat pouze zelené buňky ale nepůjdou změnit, protože jsou uzamčenécitovat
icon #010645
avatar
eLCHa, tak na to sa pozriem, to vyzerá hooodne dobre, dík za tip!citovat
#010650
Lano
Neuvěřitelné, funguje to !! 5 Skvělý nápad.
Díkycitovat
#010674
avatar
Pekna tabulka. Moc neporadim s resenim co se tyce excelu, ale napada me, jestli by nebylo praktictejsi, pokud by se seznam jidel nemenil podle vybrane bunky primo v zapisove tabulce zamestnance - kliknu si do prvniho radku a vyberu si pokrm, enter a preskoci na bunku dolu a jidelnicek se zmeni na jidla druheho v mesici :)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje