Jak seskupit a oddělit řádky v chráněném listu?
Jak všichni víme, v chráněném listu existuje mnoho omezení pro použití některých operací. Například nemůžeme přepínat mezi seskupenými a neseskupenými daty. Existuje způsob, jak seskupit nebo oddělit řádky v chráněném listu?
Seskupte a oddělte řádky v chráněném listu pomocí kódu VBA
Seskupte a oddělte řádky v chráněném listu pomocí kódu VBA
Možná neexistuje jiný dobrý způsob, jak tento problém vyřešit, ale pomocí kódu VBA postupujte takto:
1. Aktivujte svůj list, který chcete použít. Ujistěte se, že list ještě není chráněn.
2. Poté přidržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
3, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Seskupte a oddělte řádky v chráněném listu
Sub EnableOutlining()
'Updateby Extendoffice
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub
4. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a vyskočí okno s výzvou, které vám připomene zadání hesla k ochraně aktuálního listu. Viz snímek obrazovky:
5. Pak klikněte na tlačítko OK, váš list byl chráněn, ale můžete rozbalit a zkrátit obrysové symboly v tomto chráněném listu, viz screenshot:
Pozor: Pokud je váš list již chráněn, tento kód nebude fungovat.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!