< návrat zpět

MS Excel


Téma: Seskupit - v zamknutém listu rss

Zaslal/a 18.8.2018 14:54

Merlin99Zdravím všechny, chci se zeptat jestli nekdo neporadi jak vyresit kdyz potrebuju v zamknutem liste pouzivat seskupeni. Pokud mam seskupene data po zamknuti nemuzu seskupeni pouzivat ...v povoleni zamku to neni..
Díky pripadne za radu

Zaslat odpověď >

#041226
avatar
Je to přesně tak jak píšeš, dokonce to je přesně takto napsané i v té hlášce, co hází Excel, když se pokusíš rozbalit souhrn v zamčeném listu. Ve standardní uživatelské nabídce toto Excel neumožňuje.

Nicméně se to dá obejít makrem. Slouží k tomu vlastnost listu "EnableOutlining", kterou je potřeba nastavit na "True". Níže uvádím ukázku kódu, který uzamkne List1, nicméně dovolí uživateli sbalovat/rozbalovat souhrny.
P.

Př.:
Sub Zamknout_list_s_povolenim_souhrnu()

With Worksheets(List1.Name)
.Protect Password:="", Userinterfaceonly:=True
.EnableOutlining = True
End With

End Sub
citovat
#041227
Merlin99
Pavlus: díky za radu, jen se jeste zeptam v cem je teda ten chytak protoze kdyz nastavim na danem listu
.EnableOutlining = True
a zamknu rucne tak to nefunguje ale s tvim makrem to funguje ... potreboval bych to nastavit rucne, jde to nejak?
Děkuji za infocitovat
#041228
avatar
Jak jsem psal, tak pokud vím, tak to "ručně" nejde...
P.citovat
#041231
Merlin99
Pavlus: díky za info, nejdriv jsem si myslel ze budu muset makro spoustet pokazdy ale staci ho pustiti jednou a vse dokonale funguje ouje takze vyreseno DÍKY MOC 5citovat
#041235
Merlin99
*Jen dodávám že pokud makro Pavluse navazete na spusteni rovnou pri otevrni sesitu tak jste za vodou :D 5

Private Sub Workbook_Open()
Dim sMak As String
sMak = OBJ.Cells(12, 4).Value2
If sMak <> "" Then Application.Run sMak
End Subcitovat
#041552
avatar
Prosím více vyspecifikovat. Jak navážu makro na spuštění dokumentu.

Mám stejný problém.

Děkujucitovat
#041557
Stalker

ambraa napsal/a:

Prosím více vyspecifikovat. Jak navážu makro na spuštění dokumentu.


Co chceš vyspecifikovat? Prostě své makro umístíš do modulu ThisWorkbook. Pokud se má makro provést při otevření sešitu použiješ:
Private Sub Workbook_Open()
'tvůj kód
End Sub
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