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

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()
'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. 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:

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:

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