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

Kako razvrstiti in razvrstiti vrstice na zaščitenem delovnem listu?

Kot že vsi vemo, imamo na zaščitenem delovnem listu številne omejitve za izvajanje nekaterih operacij. Tako ne moremo preklapljati med zbranimi in nerazvrščenimi podatki. Ali obstaja način za razvrščanje ali razvrščanje vrstic v zaščiteni delovni list?

Vrstice na zaščitenem delovnem listu s kodo VBA razvrstite v skupine in jih razstavite

Kartica Office Omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte svoje delo ...
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
  • Ponovno uporabi vse: Med priljubljene dodajte najbolj uporabljene ali zapletene formule, grafikone in kar koli drugega ter jih v prihodnosti hitro ponovno uporabite.
  • Več kot 20 besedilnih funkcij: Izvleček številke iz besedilnega niza; Izvleči ali odstrani del besedil; Pretvorite številke in valute v angleške besede.
  • Združi orodja: Več delovnih zvezkov in listov v eno; Združi več celic / vrstic / stolpcev brez izgube podatkov; Združi podvojene vrstice in vsoto.
  • Razdeljena orodja: Razdeli podatke na več listov na podlagi vrednosti; En delovni zvezek v več datotek Excel, PDF ali CSV; En stolpec na več stolpcev.
  • Prilepi preskoči Skrite / filtrirane vrstice; Štetje in vsota glede na Barva ozadja; V večjem obsegu pošiljajte osebna e-poštna sporočila več prejemnikom.
  • Super filter: Ustvarite napredne filtrirne sheme in uporabite za vse liste; Razvrščanje po tednih, dnevih, pogostosti in še več; filter s krepkim tiskom, formule, komentar ...
  • Več kot 300 zmogljivih funkcij; Deluje z Office 2007-2021 in 365; Podpira vse jezike; Enostavna uvedba v vašem podjetju ali organizaciji.

puščica modri desni mehurček Vrstice na zaščitenem delovnem listu s kodo VBA razvrstite v skupine in jih razstavite

Mogoče ni nobenega drugega dobrega načina za rešitev te težave, vendar z uporabo kode VBA storite naslednje:

1. Aktivirajte svoj delovni list, ki ga želite uporabljati, preverite, ali delovni list še ni zaščiten.

2. Nato držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Vrstice v zaščitenem delovnem listu razstavite in razstavite

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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo na vnos gesla za zaščito trenutnega delovnega lista. Oglejte si posnetek zaslona:

doc-skupina-v-zaščitenem-listu1

5. Nato kliknite OK, vaš delovni list je zaščiten, lahko pa razširite in skrčite obrisne simbole na tem zaščitenem delovnem listu, glejte posnetek zaslona:

doc-skupina-v-zaščitenem-listu1

Opombe: Če je vaš delovni list že zaščiten, ta koda ne bo delovala.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (32)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Zdi se, da to deluje odlično, a ko zaprem in znova odprem delovni zvezek, naletim na isto težavo – ne morem razširiti strnjenih skupin.
Ta komentar je moderator na spletnem mestu minimiziral
Imam enak problem, ve kdo kako ga premagati. Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
Za to potrebujete VBA, končni uporabnik pa bo moral dovoliti makre, da bo to delovalo.

Pritisnite Alt+F11, da aktivirate urejevalnik Visual Basic.

Dvokliknite ThisWorkbook v razdelku Microsoft Excel Objects v raziskovalcu projektov na levi strani.

Kopirajte naslednjo kodo v modul, ki se prikaže:



Zasebni delovni zvezek_Open()
Z delovnimi listi ("Emp Summary")
.EnableOutlining = Res
.Protect UserInterfaceOnly:=True
Končaj s
End Sub



Ta koda se bo samodejno izvršila vsakič, ko odprete delovni zvezek.
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Zdi se, da to deluje odlično, a ko zaprem in znova odprem delovni zvezek, naletim na isto težavo – ne morem razširiti strnjenih skupin.Z Mayich[/quote]Ta zadeva je rešena kot spodaj Private Sub Workbook_Open() Dim wsh kot varianta za vsak wsh v delovnih listih(Array("Sheet1", "Sheet2")) wsh.EnableOutlining = True wsh.Protect Password:="260615" , DrawingObjects:=False, _ contents:=True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Dobil sem isti problem, takoj ko zaprem in ponovno vnesem list, ne deluje... prosim navedite korak za korakom, kje in kako uporabiti. Zadeva je rešena kot spodaj Private Sub Workbook_Open() Dim wsh As Varianta za vsak wsh v delovnih listih(Arra y("Sheet1", "Sheet2")) wsh.EnableOutli ning = True wsh.Protect Password:="2606 15", DrawingObjects: =False, _ contents:=True, _ Scenarios: =True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala brat, to deluje zelo lepo. Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
Kako vam je to uspelo? Poskušal sem ga dodati v zgornji VBA in narediti drug modul, vendar še vedno ne deluje. Ali moram spremeniti katero koli kodo? kot moje geslo, ki ga uporabljam ali moram spremeniti imena listov?
Ta komentar je moderator na spletnem mestu minimiziral
Imam enak problem, ko zaprem delovni zvezek. Kakšne ideje, kako to popraviti?
Ta komentar je moderator na spletnem mestu minimiziral
Private Sub Workbook_Open() Dim wsh kot varianta za vsak wsh v delovnih listih(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ contents: =True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Še vedno nisem prepričan, kako to deluje. Ali naredim nov modul ali pritrdim na zgornjega?
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko naredite korak za korakom, kam naj to postavite, kot so naredili v izvirnih navodilih. Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo! Prvi makro sem uspešno uporabil, nato pa sem imel isto težavo pri zapiranju delovnega zvezka in makro ni več deloval. Vidim zgornjo rešitev, vendar je sploh ne morem doseči. Bi mi pomagali? Ali združim obe kodi ali uporabim samo slednjo? Če je moje geslo "pes", ali zamenjam eno od vrednosti v kodi? Prijavim se samo na en delovni list ("Sheet1"); ali to kje uporabljam? Že vnaprej se vam zahvaljujem!!
Ta komentar je moderator na spletnem mestu minimiziral
Prosim, pomagajte mi, želim strniti in razširiti nekaj zvitkov in stolpcev v Excelovi preglednici, ki je zaščitena. Kako lahko za to uporabim makre? Preizkusil sem, kar ste pokazali, vendar v moji preglednici preprosto ne delujejo. Prosim pomagajte.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, prosim, pomagajte mi razširiti in strniti zvitke in stolpce v Excelovi preglednici, ki je zaščitena. Poskušal sem uporabiti tiste, ki ste jih pokazali zgoraj, vendar ne delujejo.
Ta komentar je moderator na spletnem mestu minimiziral
Ali je bilo vprašanje/odgovorjeno? Kje v kodi lahko določite / spremenite osebno geslo?
Ta komentar je moderator na spletnem mestu minimiziral
Kako lahko spremenim geslo v drugo vrednost?
Ta komentar je moderator na spletnem mestu minimiziral
Ko uporabim ukaz, vidim sporočilo o napaki, kot je prikazano spodaj:
Zasebni delovni zvezek_Open()
Dim wsh kot varianta
Za vsak wsh v delovnih listih (matrika("TD_ faza_3", "RS_Phase_2"))
wsh.EnableOutlining = Res
wsh.Protect Password:="260615", DrawingObjects:=False, _
vsebina:=True, _
Scenariji:=Res, _
AllowFiltering:=True, _
AllowFormattingCells:=True, _
userinterfaceonly:=True
Naslednji wsh
End Sub
Napaka v času izvajanja '9':
Podpis izven dosega
Ta komentar je moderator na spletnem mestu minimiziral
to deluje nekaj časa, ko enkrat zapreš in ponovno odpreš, se ustavi :(
Ta komentar je moderator na spletnem mestu minimiziral
Tudi zame obstaja kakšna druga rešitev?
Ta komentar je moderator na spletnem mestu minimiziral
Pod delovni zvezek_Odpri()
'Posodobitev 20140603
Dim xWs kot delovni list
Nastavite xWs = Application.ActiveSheet
Dim xPws kot niz
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
To kodo sem dobil za delo. Ko pa zaprem in znova odprem, moram iti na zavihek za razvijalce, izbrati gumb za makre, izbrati zagon in vnesti geslo.

Ali obstaja način za odstranitev gesla iz kode ALI kodo za samodejni zagon, ki bo samodejno zagnala to oznako in vnesla geslo?
Ta komentar je moderator na spletnem mestu minimiziral
Če želite odpraviti težavo, da to ne deluje v vaši datoteki, potem ko ste jo zaprli in jo znova odprli, morate prilepiti kodo VBA v "Ta delovni zvezek" pod Microsoft Excel Objects namesto v nov modul. To bo nato samodejno zagnalo makro vsakič, ko odprete datoteko.
Ta komentar je moderator na spletnem mestu minimiziral
ali imate vizualne podobe za kodo VBA, o kateri smo razpravljali pred 6 dnevi, da bi namesto novega modula razpravljali o ThisWorkbooku pod Microsoftovimi predmeti. Funkcionalnost se izgubi, ko se vrnem v svoj delovni zvezek
Ta komentar je moderator na spletnem mestu minimiziral
Morda bo kdo potreboval to, mislim, da sem ugotovil, kako to delati.

Najprej mora biti vaša koda zapisana v "ThisWorkbook" pod Microsoft Excel Objects, kot predlaga @peachyclean.
Drugič, vzemite kodo, ki jo je napisal @Sravanthi, in jo prilepite na zgoraj omenjeno mesto.

Pod delovni zvezek_Odpri()
'Posodobitev 20140603
Dim xWs kot delovni list
Nastavite xWs = Application.ActiveSheet
Dim xPws kot niz
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Res
End Sub

Stvar je v tem, da morate biti na listu, ki ga želite zaščititi, vendar omogoča uporabo združevanja, ter shranite delovni zvezek in zaprete, ne da bi ga zaščitili. Zdaj, če ga odprete, se makro zažene samodejno, zaradi česar bo list zaščiten z geslom "rfc". Zdaj lahko uporabite združevanje, list je zaščiten.

Za svojo rešitev sem spremenil uporabljeno geslo, tako da lahko poljubno geslo prepišete TUKAJ:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Password:", xTitleId, "", Type:=2)

Poleg tega nisem želel, da bi bil ob odpiranju datoteke aktiven list, ki ga je treba zaščititi, zato sem spremenil ta del:
Nastavite xWs = Application.ActiveSheet ->
Nastavite xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Zdaj deluje kot čar, list z imenom 'WRITEANYSHEET'SNAMEHERE' je zaščiten, vendar se uporablja združevanje. Na dolgi rok mislim, da bo težava v tem, da če želim spremeniti to datoteko in ohraniti rešitev, moram odstraniti zaščito tega lista, da bo deloval pri naslednjem odpiranju. Predvidevam, da lahko napišete še en makro, ki se samodejno odstrani ob zapiranju :)


Upam, da je pomagalo.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo.. to je delalo čudeže. edino mesto, kjer se zdaj zataknem, je, da moram to narediti za več listov v delovnem zvezku. ali lahko prosim pomagate pri tem.
Ta komentar je moderator na spletnem mestu minimiziral
Ta niz je bil videti točno tisto, kar sem potreboval, saj ne vem nič o VBA. Sprva mi je uspelo, da je to delovalo, a kot je bilo poudarjeno, ko zaprete preglednico in jo znova odprete, ne deluje več. Poskušal sem napisati kodo v "ThisWorkbook", kot je navedeno, vendar ne morem ugotoviti, kako to storiti. Vidim "Ta delovni zvezek", vendar ne vem, kako naj vanj pišem. Kakor koli vidim za ustvarjanje modula, ustvari nov modul v ločeni mapi »Moduli«, zunaj mape »Microsoft Excel Objects«. Kakšen predlog, kako to kodo postaviti v "Ta delovni zvezek"?
Ta komentar je moderator na spletnem mestu minimiziral
čudovito
Ta komentar je moderator na spletnem mestu minimiziral
Kako združiti in razdružiti vrstice in stolpce v zaščitenem delovnem listu?
Ta komentar je moderator na spletnem mestu minimiziral
f*ck, to mi je kasneje ukradlo excel in zasebno spremenilo geslo
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da bi to delovalo v skupnem delovnem zvezku? - Potrebujem spremembe skladbe, hvala
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL