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

Hvordan grupperes og opdeles rækker i beskyttet regneark?

Som vi alle vidste, er der i et beskyttet regneark mange begrænsninger for os at anvende nogle operationer. Såsom, vi kan ikke skifte mellem grupperede og ikke-grupperede data. Er der en måde at gruppere eller ophæve gruppering af rækker på et beskyttet regneark?

Gruppér og opdel rækker i et beskyttet regneark med VBA-kode

Fanen Office Aktiver redigering og browsing med faner i Office, og gør dit arbejde meget lettere ...
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
  • Genbrug alt: Tilføj de mest anvendte eller komplekse formler, diagrammer og alt andet til dine favoritter, og genbrug dem hurtigt i fremtiden.
  • Mere end 20 tekstfunktioner: Uddrag nummer fra tekststreng; Uddrag eller fjern en del af teksterne; Konverter tal og valutaer til engelske ord.
  • Flet værktøjer: Flere arbejdsbøger og ark til én; Flet flere celler / rækker / kolonner uden at miste data; Flet duplikatrækker og sum.
  • Opdel værktøjer: Opdel data i flere ark baseret på værdi; Én projektmappe til flere Excel-, PDF- eller CSV-filer; En kolonne til flere kolonner.
  • Indsæt spring Skjulte / filtrerede rækker; Tæl og sum af baggrundsfarve; Send personaliserede e-mails til flere modtagere i bulk.
  • Superfilter: Opret avancerede filterskemaer og anvend dem på alle ark; Sort efter uge, dag, hyppighed og mere; filtre med fed, formler, kommentar ...
  • Mere end 300 kraftfulde funktioner; Arbejder med Office 2007-2021 og 365; Understøtter alle sprog; Nem implementering i din virksomhed eller organisation.

pil blå højre boble Gruppér og opdel rækker i et beskyttet regneark med VBA-kode

Måske er der ingen anden god måde at løse dette problem på, men ved hjælp af en VBA-kode skal du gøre som følger:

1. Aktivér dit regneark, som du vil bruge, skal du sørge for, at regnearket ikke er beskyttet endnu.

2. Hold derefter nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

3. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Gruppér og opdel rækker i et beskyttet regneark

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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at indtaste adgangskoden for at beskytte det aktuelle regneark. Se skærmbillede:

doc-gruppe-i-beskyttet-ark1

5. Klik derefter på OK, dit regneark er blevet beskyttet, men du kan udvide og trække kontursymbolerne i dette beskyttede regneark, se skærmbillede:

doc-gruppe-i-beskyttet-ark1

Bemærk: Hvis dit regneark allerede er beskyttet, fungerer denne kode ikke.


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (32)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Dette ser ud til at fungere godt, men når jeg lukker og genåbner projektmappen, støder jeg på det samme problem - jeg kan ikke udvide mine sammenklappede grupper.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har samme problem, er der nogen der ved hvordan man overvinder det. Mange tak
Denne kommentar blev minimeret af moderatoren på webstedet
Du skal bruge VBA til dette, og slutbrugeren skal tillade makroer for at dette kan fungere.

Tryk på Alt+F11 for at aktivere Visual Basic Editor.

Dobbeltklik på ThisWorkbook under Microsoft Excel Objects i projektstifinderen i venstre side.

Kopier følgende kode ind i det modul, der vises:



Privat underarbejdsbog_Åben()
Med regneark ("Emp Summary")
.EnableOutlining = Sand
.Protect UserInterfaceOnly:=Sandt
Slut med
End Sub



Denne kode vil blive udført automatisk, hver gang projektmappen åbnes.
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Dette ser ud til at fungere godt, men når jeg lukker og genåbner projektmappen, støder jeg på det samme problem - jeg kan ikke udvide mine sammenklappede grupper.Af Mayich[/quote]Den sag er løst som nedenfor. Private Sub Workbook_Open() Dim wsh As Variant For Every wsh In Worksheets(Array("Sheet1", "Sheet2")) wsh.EnableOutlining = True wsh.Protect Password:="260615" , DrawingObjects:=False, _ contents:=True, _ Scenarier:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg fik det samme problem, så snart jeg lukker og går ind i arket igen, virker det ikke... giv venligst trin for trin, hvor og hvordan man bruger. Sagen er løst som nedenfor Private Sub Workbook_Open() Dim wsh As Variant For Every wsh In Worksheets(Arra y("Sheet1", "Sheet2")) wsh.EnableOutli ning = True wsh.Protect Password:="2606 15", DrawingObjects: =False, _ contents:=True, _ Scenarier: =True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Tusind tak, bro, det fungerer rigtig godt. Mange tak
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan fik du det til at virke? Jeg har prøvet at tilføje det til VBA ovenfor og lave et andet modul, men det virker stadig ikke. Skal jeg ændre nogen af ​​koderne? som min adgangskode, jeg bruger, eller skal jeg ændre arknavnene?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har det samme problem, når jeg lukker projektmappen. Nogle ideer til at rette det?
Denne kommentar blev minimeret af moderatoren på webstedet
Private Sub Workbook_Open() Dim wsh Som Variant For Hver wsh In Worksheets(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ contents: =True, _ Scenarier:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Stadig ikke sikker på, hvordan dette fungerer. Skal jeg lave et nyt modul eller vedhæfte til ovenstående?
Denne kommentar blev minimeret af moderatoren på webstedet
Kan du gå trin for trin igennem, hvor du skal placere dette, som de gjorde i de originale instruktioner. Tak skal du have.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej! Jeg brugte den første makro med succes og havde derefter det samme problem med at lukke projektmappen, og makroen virkede ikke længere. Jeg ser løsningen ovenfor, men kan slet ikke få det til at virke. Vil du have noget imod at træde mig igennem? Skal jeg kombinere begge koder eller bare bruge sidstnævnte? Hvis mit kodeord er "hund", skal jeg erstatte en af ​​værdierne i koden? Jeg ansøger kun på ét arbejdsark ("Sheet1"); bruger jeg det nogen steder? På forhånd mange tak!!
Denne kommentar blev minimeret af moderatoren på webstedet
Hjælp mig venligst, jeg ønsker at skjule og udvide nogle ruller og kolonner i et excel-regneark, der er beskyttet. Hvordan kan jeg bruge makroer til at gøre dette? Jeg har prøvet det du viste, men de virker bare ikke på mit regneark. Hjælp venligst.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, hjælp mig venligst med at udvide og kollapse ruller og kolonner i excel-regneark, der er beskyttet. Jeg prøvede at bruge dem, du viste ovenfor, men de virker ikke.
Denne kommentar blev minimeret af moderatoren på webstedet
Er det blevet spurgt/besvaret? Hvor i koden kan du angive/ændre en personlig adgangskode?
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan kan jeg ændre adgangskoden til en anden værdi?
Denne kommentar blev minimeret af moderatoren på webstedet
Når jeg bruger kommandoen, ser jeg en fejlmeddelelse som vist nedenfor:
Privat underarbejdsbog_Åben()
Dim wsh som variant
For hver wsh i regneark(Array("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Sand
wsh.Protect Password:="260615", DrawingObjects:=False, _
indhold:=Sandt, _
Scenarier:=Sandt, _
AllowFiltering:=Sandt, _
AllowFormattingCells:=True, _
userinterfaceonly:=Sandt
Næste wsh
End Sub
Kørselstidsfejl '9':
Abonnement uden for rækkevidde
Denne kommentar blev minimeret af moderatoren på webstedet
dette virker lidt, når du lukker og åbner igen, stopper det :(
Denne kommentar blev minimeret af moderatoren på webstedet
Selv for mig, er der nogen anden løsning?
Denne kommentar blev minimeret af moderatoren på webstedet
Sub Workbook_Open()
'Opdatering 20140603
Dim xWs Som arbejdsark
Indstil xWs = Application.ActiveSheet
Dim xPws som streng
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Sand
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har fået denne kode til at virke. Men når jeg lukker og åbner igen, skal jeg gå til udviklerfanen, vælge makro-knappen, vælge kør og indtaste adgangskoden.

Er der en måde at fjerne adgangskoden fra koden på ELLER en automatisk kørekode, som automatisk kører denne marco og indtaster adgangskoden?
Denne kommentar blev minimeret af moderatoren på webstedet
For at løse problemet med, at dette ikke virker i din fil, efter du har lukket den og åbnet den igen, skal du indsætte VBA-koden i "ThisWorkbook" under Microsoft Excel Objects i stedet for et nyt modul. Dette vil så automatisk køre makroen hver gang filen åbnes.
Denne kommentar blev minimeret af moderatoren på webstedet
har du visuals til VBA-koden diskuteret for 6 dage siden for at peachyclean om ThisWorkbook under Microsoft Objects i stedet for et nyt modul. Funktionaliteten går tabt, når jeg går tilbage til min projektmappe
Denne kommentar blev minimeret af moderatoren på webstedet
Nogen har måske brug for dette, jeg tror, ​​jeg har fundet ud af, hvordan man får det til at fungere.

Først skal din kode skrives i "ThisWorkbook" under Microsoft Excel Objects, som @peachyclean foreslår.
For det andet, tag koden, som @Sravanthi skrev, og indsæt til ovennævnte placering.

Sub Workbook_Open()
'Opdatering 20140603
Dim xWs Som arbejdsark
Indstil xWs = Application.ActiveSheet
Dim xPws som streng
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Sand
End Sub

Sagen er, at du skal være på det ark, du vil beskytte, men tillade at bruge gruppering, og gemme projektmappen og lukke uden at beskytte. Hvis du nu åbner den, starter makroen automatisk, den vil gøre arket beskyttet med adgangskoden "rfc". Nu kan du bruge grupperingen, arket er beskyttet.

Til min løsning har jeg ændret den anvendte adgangskode, så du kan omskrive enhver adgangskode HER:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Password:", xTitleId, "", Type:=2)

Desuden ønskede jeg ikke, at arket, der skal beskyttes, var aktivt, når jeg åbnede filen, derfor har jeg ændret denne del:
Indstil xWs = Application.ActiveSheet ->
Indstil xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Nu fungerer det som charme, ark med navnet 'WRITEANYSHEET'SNAMEHERE' er beskyttet, men grupperingen er gældende. På lang sigt tror jeg, at problemet vil være, at hvis jeg vil ændre denne fil og beholde løsningen, skal jeg fjerne beskyttelsen af ​​dette ark for at få det til at fungere ved næste åbning. Jeg gætter på, at du kan skrive en anden makro for automatisk at fjerne beskyttelsen, når du lukker :)


Jeg håber det hjalp.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej.. det gjorde underværker. det eneste sted, hvor jeg sidder fast nu, er, at jeg skal gøre dette for flere ark i projektmappen. kan du hjælpe med det.
Denne kommentar blev minimeret af moderatoren på webstedet
Denne streng så ud til at være præcis, hvad jeg havde brug for, da jeg intet ved om VBA. Jeg var i stand til at få dette til at virke i starten, men som det blev påpeget, når du lukker regnearket og åbner det igen, virker det ikke længere. Jeg forsøgte at skrive koden i "ThisWorkbook" som nævnt, men jeg kan ikke finde ud af, hvordan man gør det. Jeg kan se "ThisWorkbook", men jeg ved ikke, hvordan jeg skal skrive i den. På alle måder, jeg ser for at oprette et modul, opretter det et nyt modul i en separat "Moduler"-mappe, uden for mappen "Microsoft Excel Objects". Nogen forslag til, hvordan man sætter denne kode i "ThisWorkbook"?
Denne kommentar blev minimeret af moderatoren på webstedet
formidabel
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan grupperes og opdeles rækker og kolonner i beskyttet regneark?
Denne kommentar blev minimeret af moderatoren på webstedet
f*ck, dette stjal mit excel senere og ændrede adgangskode privat
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at få dette til at fungere på en delt projektmappe? - Jeg har brug for sporskiftene, tak
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL