Excel - Proteggere foglio mantenendo i raggruppamenti attivi

Question

Ciao, su questo argomento so che era già stata posta una domanda, ma siccome ho tentato di inserire la macro che era stata suggerita senza risultati volevo chiedere aiuto. (https://answers.microsoft.com/it-it/msoffice/forum/msoffice\_excel-mso\_other/la-funzione-raggruppa-foglio-protetto-non-%C3%A8/6684640d-f981-e011-9b4b-68b599b31bf5)

A questo link è presente un documento excel di prova, dove ho 3 fogli nei quali ci sono delle tabelle con raggruppate alcune righe:

https://drive.google.com/file/d/0B7uYB-gAFTPcSURodUFBNTRjRjA/view?usp=sharing

Vorrei proteggere il foglio, per evitare cambiamenti, ma tenendo attivi i pulsanti "+" e "-" per la visualizzazione/scomparsa delle righe.

Grazie!

Answer 1

Ciao Fabio,

Ciao, su questo argomento so che era già stata posta una domanda, ma siccome ho tentato di inserire la macro che era stata suggerita senza risultati volevo chiedere aiuto. (https://answers.microsoft.com/it-it/msoffice/forum/msoffice\_excel-mso\_other/la-funzione-raggruppa-foglio-protetto-non-%C3%A8/6684640d-f981-e011-9b4b-68b599b31bf5)

A questo link è presente un documento excel di prova, dove ho 3 fogli nei quali ci sono delle tabelle con raggruppate alcune righe:

https://drive.google.com/file/d/0B7uYB-gAFTPcSURodUFBNTRjRjA/view?usp=sharing

Vorrei proteggere il foglio, per evitare cambiamenti, ma tenendo attivi i pulsanti "+" e "-" per la visualizzazione/scomparsa delle righe.

Prova come segue:

• Alt+F11 per aprire l'editor di VBA
• Ctrl+R per accedere alla finestra Project Explorer ('Gestione progetti')
• Fai doppio clic sul modulo ThisWorkbook (Questa_cartella_di_Lavoro) del file e incolla il seguente codice

'=========>>

Option Explicit

'--------->>

Private Sub Workbook_Open()

    Dim SH As Worksheet

    For Each SH In Me.Sheets

        Const sPassWord As String = _

              "NominateTrumpForNobelPeacePrize!"  '<<=== Modifica

        With SH

            .Protect Password:=sPassWord, UserinterfaceOnly:=True

            .EnableOutlining = True

        End With

    Next SH

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm
• Chiudi e riapri il file

Potresti scaricare il mio file di prova Fabio20170823.xlsm

===

Regards,

Norman

Answer 2

Ciao Fabio,

Chiarissimo, sono riuscita a inserire la macro come da te indicato!

Mi fa piacere che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Chiarissimo, sono riuscita a inserire la macro come da te indicato!

Grazie