< 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

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

ovládání tisku z VBA

elninoslov • 20.5. 14:23

kopírování tabulek na nový list

elninoslov • 20.5. 9:50

kopírování tabulek na nový list

Annie5 • 20.5. 8:56

vnořené cykly for - přetečení?

elninoslov • 20.5. 8:48

kopírování tabulek na nový list

elninoslov • 20.5. 7:32

vnořené cykly for - přetečení?

elninoslov • 20.5. 7:29

kopírování tabulek na nový list

Annie5 • 19.5. 22:49