Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet csoportosítani és bontani a sorokat a védett munkalapon?

Mint mindannyian tudjuk, egy védett munkalapon számos korlátozás áll rendelkezésünkre bizonyos műveletek alkalmazásához. Például nem tudunk váltani a csoportosított és a csoportosítatlan adatok között. Van-e mód a sorok csoportosítására vagy bontására egy védett munkalapon?

Csoportosítsa és csoportosítsa a VBA kóddal ellátott védett munkalapokat

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.

nyíl kék jobb buborék Csoportosítsa és csoportosítsa a VBA kóddal ellátott védett munkalapokat

Lehet, hogy nincs más jó módszer a probléma megoldására, de VBA kód használatával tegye a következőket:

1. Aktiválja a használni kívánt munkalapot. Kérjük, ellenőrizze, hogy a munkalap még nincs-e védve.

2. Ezután tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Csoportosítsa és bontsa le a sorokat egy védett munkalapon

Sub EnableOutlining()
'Update 20140603
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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt a jelszó megadására az aktuális munkalap védelme érdekében. Lásd a képernyőképet:

doc-group-in-protected-lap1

5. Ezután kattintson OK, a munkalap védett, de kibővítheti és összehúzhatja a körvonal szimbólumait ebben a védett munkalapban, lásd a képernyőképet:

doc-group-in-protected-lap1

Megjegyzések: Ha a munkalap már védett, akkor ez a kód nem fog működni.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (32)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Úgy tűnik, ez remekül működik, de amikor bezárom és újra megnyitom a munkafüzetet, ugyanabba a problémába ütközöm – nem tudom bővíteni az összeomlott csoportokat.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nekem is ugyanez a problémám, nem tudja valaki, hogyan lehet ezt leküzdeni. Nagyon köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Ehhez VBA-ra van szüksége, és a végfelhasználónak engedélyeznie kell a makrókat, hogy ez működjön.

Nyomja meg az Alt+F11 billentyűkombinációt a Visual Basic Editor aktiválásához.

Kattintson duplán a ThisWorkbook elemre a bal oldali projektböngésző Microsoft Excel Objects alatt.

Másolja be a következő kódot a megjelenő modulba:



Private Sub Workbook_Open ()
Munkalapokkal ("Emp Summary")
.EnableOutlining = Igaz
.Protect UserInterfaceOnly:=Igaz
Vége
End Sub



Ez a kód automatikusan végrehajtásra kerül a munkafüzet minden egyes megnyitásakor.
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]Úgy tűnik, hogy ez remekül működik, de amikor bezárom és újra megnyitom a munkafüzetet, ugyanabba a problémába ütközöm – nem tudom bővíteni az összecsukott csoportjaimat.Mayich által[/quote]Ez a probléma az alábbiak szerint van megoldva Private Sub Workbook_Open() Dim wsh As Variant For Every Wsh In Worksheets(Array("Sheet1", "Sheet2")) wsh.EnableOutlining = True wsh.Protect Password:="260615" , DrawingObjects:=Hamis, _ contents:=Igaz, _ Scenarios:=Igaz, _ AllowFiltering:=Igaz, _ AllowFormattingCells:=Igaz, _ userinterfaceonly:=Igaz Következő wsh End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanez a probléma nálam is, amint bezárom és újra beírom a lapot, nem működik... kérem lépésről lépésre adja meg, hol és hogyan kell használni. A probléma az alábbiak szerint van megoldva Private Sub Workbook_Open() Dim wsh As Változat minden wsh-hez munkalapokon (Arra y("Lap1", "Sheet2")) wsh.EnableOutlining = Igaz wsh.Protect Password:="2606 15", DrawingObjects: =Hamis, _ contents:=Igaz, _ Forgatókönyvek: =Igaz, _ AllowFiltering:=Igaz, _ AllowFormattingCells:=Igaz, _ userinterfaceonly:=Igaz Következő wsh End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen tesó, ez nagyon jól működik. Köszönöm szépen
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan sikerült ezt működésre bírni? Próbáltam hozzáadni a fenti VBA-hoz, és másik modult készíteni, de még mindig nem működik. Meg kell változtatnom valamelyik kódot? mint a jelszavam, amit használok, vagy módosítanom kell a lapneveket?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanez a probléma a munkafüzet bezárásakor. Van valami ötlet a javításra?
A weboldal moderátora ezt a megjegyzést minimalizálta
Private Sub Workbook_Open() Dim wsh mint variáns minden wsh-hez munkalapokon (Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ contents: =Igaz, _ Scenarios:=Igaz, _ AllowFiltering:=Igaz, _ AllowFormattingCells:=Igaz, _ userinterfaceonly:=Igaz Következő wsh End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Még mindig nem biztos benne, hogy ez hogyan működik. Csináljak új modult vagy csatlakoztassak a fentihez?
A weboldal moderátora ezt a megjegyzést minimalizálta
Lépésről lépésre végigjárhatja, hogy hova tegye ezt, ahogy az eredeti utasításokban tették. Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló! Sikeresen használtam az első makrót, majd ugyanaz volt a probléma, hogy bezártam a munkafüzetet, és a makró már nem működik. A fenti megoldást látom, de egyáltalán nem tudom működni. Lenne szíves átlépni rajtam? Kombináljam a két kódot, vagy csak az utóbbit használjam? Ha a jelszavam "kutya", cseréljem ki a kódban szereplő értékek egyikét? Csak egy munkalapra jelentkezem ("Sheet1"); használom ezt valahol? Előre is köszönöm!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Kérem, segítsen, szeretnék összecsukni és kibővíteni néhány tekercset és oszlopot egy védett Excel-táblázatban. Hogyan használhatok makrókat ehhez? Kipróbáltam, amit mutattál, de egyszerűen nem működnek a táblázatomon. Kérem, segítsen.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Próbáltam a fent bemutatottakat használni, de nem működnek.
A weboldal moderátora ezt a megjegyzést minimalizálta
Megkérdezték/válaszolták? A kódban hol lehet személyes jelszót megadni/változtatni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan módosíthatom a jelszót egy másik értékre?
A weboldal moderátora ezt a megjegyzést minimalizálta
A parancs használatakor az alábbi hibaüzenet jelenik meg:
Private Sub Workbook_Open ()
Dim wsh As Variant
Minden wsh In Worksheets (Tömb("TD_ fázis_3", "RS_Fázis_2"))
wsh.EnableOutlining = Igaz
wsh.Protect Password:="260615", DrawingObjects:=False, _
contents:=Igaz, _
Forgatókönyvek:=Igaz, _
AllowFiltering:=Igaz, _
AllowFormattingCells:=Igaz, _
userinterfaceonly:=Igaz
Következő wsh
End Sub
Futási idő hiba '9':
Index a tartományon kívül
A weboldal moderátora ezt a megjegyzést minimalizálta
ez működik egy kicsit, ha bezárod és újra kinyitod, leáll :(
A weboldal moderátora ezt a megjegyzést minimalizálta
Még nekem is van más megoldás?
A weboldal moderátora ezt a megjegyzést minimalizálta
Almunkafüzet_Megnyitás()
„Frissítés: 20140603
Dim xWs munkalapként
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = "rfc" ''Application.InputBox("Jelszó:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezt a kódot sikerült működésre bírnom. De amikor bezárom és újra megnyitom, fel kell lépnem a fejlesztői lapra, ki kell választani a makrók gombot, a futtatást, és be kell írni a jelszót.

Van mód arra, hogy eltávolítsuk a jelszót a kódból, VAGY egy automatikus futtatási kódot, amely automatikusan futtatja ezt a marco-t és beírja a jelszót?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ha ki szeretné javítani azt a problémát, hogy ez a probléma nem működik a fájlban, miután bezárta, majd újra megnyitotta, új modul helyett be kell illesztenie a VBA-kódot a Microsoft Excel Objects alatti „ThisWorkbook” mappába. Ez ezután automatikusan futtatja a makrót a fájl minden megnyitásakor.
A weboldal moderátora ezt a megjegyzést minimalizálta
van vizualitása a 6 napja tárgyalt VBA-kódhoz, hogy peachyclean-e a ThisWorkbookról a Microsoft Objects alatt, új modul helyett. A funkcionalitás elveszik, amikor visszamegyek a munkafüzetembe
A weboldal moderátora ezt a megjegyzést minimalizálta
Valakinek szüksége lehet erre, azt hiszem, rájöttem, hogyan kell ezt csinálni.

Először is, a kódot a "ThisWorkbook" mappába kell beírni a Microsoft Excel Objects alatt, amint azt a @peachyclean javasolja.
Másodszor, vegye a kódot, amelyet @Sravanthi írt, és illessze be a fent említett helyre.

Almunkafüzet_Megnyitás()
„Frissítés: 20140603
Dim xWs munkalapként
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = "rfc" ''Application.InputBox("Jelszó:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Igaz
End Sub

A helyzet az, hogy azon a lapon kell lennie, amelyet védeni szeretne, de lehetővé kell tennie a csoportosítást, és mentenie kell a munkafüzetet, és be kell zárnia védelem nélkül. Most ha megnyitod, a makró automatikusan elindul, "rfc" jelszóval védetté teszi a lapot. Most már használhatja a csoportosítást, a lap védett.

A megoldásomhoz módosítottam az alkalmazott jelszót, így ITT bármilyen jelszót átírhat:
xPws = "ÍRJON JELSZÓ HERE" ''Application.InputBox("Jelszó:", xTitleId, "", Type:=2)

Továbbá nem akartam, hogy a védendő lap legyen aktív a fájl megnyitásakor, ezért ezt a részt módosítottam:
Set xWs = Application.ActiveSheet ->
Set xWs = Application.Worksheets("ÍRJA MEG ITT")

Most úgy működik, mint a bűbáj, a 'WRITEANYSHEET'SNAMEHERE' nevű lap védett, de a csoportosítás alkalmazható. Hosszú távon szerintem az lesz a probléma, hogy ha módosítani akarom ezt a fájlt és meg akarom tartani a megoldást, akkor a lap védelmét fel kell oldanom, hogy a következő megnyitáskor működjön. Gondolom írhatsz egy másik makrót, hogy bezáráskor automatikusan megszűnjön a védelem :)


Remélem segített.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia.. ez csodákra tett szert. az egyetlen hely, ahol most elakadok, az az, hogy ezt a munkafüzet több lapjához kell megtennem. tudtok ebben segíteni pls.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a karakterlánc pontosan olyannak tűnt, amire szükségem volt, mivel semmit sem tudok a VBA-ról. Kezdetben sikerült működésre bírnom, de ahogy már rámutattunk, ha bezárja és újra megnyitja a táblázatot, többé nem működik. Megpróbáltam beírni a kódot a „ThisWorkbook”-ba a leírtak szerint, de nem tudom, hogyan kell ezt megtenni. Látom a „ThisWorkbook”-t, de nem tudom, hogyan írjam bele. A modul létrehozásának minden módja szerint új modult hoz létre a különálló „Modulok” mappában, a „Microsoft Excel Objects” mappán kívül. Van valami javaslata a kód elhelyezésére a „ThisWorkbook”-ban?
A weboldal moderátora ezt a megjegyzést minimalizálta
csodálatos
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan csoportosíthatunk és bonthatunk ki sorokat és oszlopokat a védett munkalapon?
A weboldal moderátora ezt a megjegyzést minimalizálta
f*sz, ez később ellopta az excelemet, és privátban megváltoztatta a jelszót
A weboldal moderátora ezt a megjegyzést minimalizálta
Van rá mód, hogy ez működjön egy megosztott munkafüzeten? - Szükségem van a pályamódosításokra, köszönöm
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi