Hvordan gruppere og oppheve gruppering av rader i beskyttet regneark?

Som vi alle vet, i et beskyttet regneark, er det mange begrensninger for oss å bruke enkelte operasjoner. For eksempel kan vi ikke veksle mellom grupperte og ugrupperte data. Er det en måte å gruppere eller oppheve gruppering av rader i et beskyttet regneark?

Grupper og fjern gruppering av rader i et beskyttet regneark med VBA-kode

Grupper og fjern gruppering av rader i et beskyttet regneark med VBA-kode

Kanskje det ikke er noen annen god måte å løse dette problemet på, men ved å bruke en VBA-kode, vennligst gjør som følger:

1. Aktiver regnearket du vil bruke, sørg for at regnearket ikke er beskyttet ennå.

2. Hold deretter nede ALT + F11 tastene, og den åpner Microsoft Visual Basic for Applications-vinduet.

3. Klikk innfelt > Moduler, og lim inn følgende kode i Modulvindu.

VBA-kode: Grupper og fjern gruppering av rader i et beskyttet regneark

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. Trykk deretter på F5 tasten for å kjøre denne koden, og en meldingsboks kommer ut for å minne deg på å angi passordet for å beskytte det gjeldende regnearket. Se skjermbilde:

5. Klikk deretter OK, regnearket ditt er beskyttet, men du kan utvide og trekke sammen omrisssymbolene i dette beskyttede regnearket, se skjermbilde:

Merknader: Hvis regnearket ditt allerede er beskyttet, vil ikke denne koden fungere.