Hur grupperar och avgrupperar du rader i skyddat kalkylblad?

Som vi alla vet finns det i ett skyddat kalkylblad många begränsningar för oss att tillämpa vissa operationer. Såsom, vi kan inte växla mellan grupperade och icke-grupperade data. Finns det ett sätt att gruppera eller avgruppera rader i ett skyddat kalkylblad?

Gruppera och gruppera rader i ett skyddat kalkylblad med VBA-kod

Gruppera och gruppera rader i ett skyddat kalkylblad med VBA-kod

Kanske finns det inget annat bra sätt att lösa detta problem, men använd en VBA-kod, gör så här:

1. Aktivera ditt kalkylblad som du vill använda, se till att kalkylbladet inte är skyddat än.

2. Håll sedan ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Gruppera och gruppera rader i ett skyddat kalkylblad

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. Tryck sedan på F5 -knappen för att köra den här koden och en snabbruta dyker upp för att påminna dig om att du anger lösenordet för att skydda det aktuella kalkylbladet. Se skärmdump:

5. Klicka sedan OK, ditt kalkylblad har skyddats, men du kan expandera och kontrahera kontursymbolerna i det skyddade kalkylbladet, se skärmdump:

Anmärkningar: Om ditt kalkylblad redan är skyddat fungerar den här koden inte.