Come raggruppare e separare righe in un foglio di lavoro protetto?

Come sappiamo tutti, in un foglio di lavoro protetto ci sono molte limitazioni per applicare alcune operazioni. Ad esempio, non possiamo passare tra dati raggruppati e non raggruppati. Esiste un modo per raggruppare o separare righe in un foglio di lavoro protetto?

Raggruppa e separa righe in un foglio di lavoro protetto con il codice VBA

Raggruppa e separa righe in un foglio di lavoro protetto con il codice VBA

Forse, non c'è altra buona soluzione a questo problema se non utilizzare un codice VBA; si prega di fare come segue:

1. Attiva il tuo foglio di lavoro che desideri utilizzare, assicurati che il foglio di lavoro non sia ancora protetto.

2. Quindi tieni premuti i tasti ALT + F11, e si aprirà la finestra Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: Raggruppa e separa righe in un foglio di lavoro protetto

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. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo che ti ricorderà di inserire la password per proteggere il foglio di lavoro corrente. Vedi screenshot:

5. Quindi clicca OK, il tuo foglio di lavoro sarà protetto, ma potrai espandere e contrarre i simboli di riepilogo in questo foglio di lavoro protetto, vedi screenshot:

Nota: Se il tuo foglio di lavoro è già protetto, questo codice non funzionerà.