Sembra funzionare alla grande, ma quando chiudo e riapro la cartella di lavoro, mi imbatto nello stesso problema: non riesco a espandere i miei gruppi compressi.

Grazie mille fratello, funziona davvero bene. Grazie mille

Ho lo stesso problema quando chiudo la cartella di lavoro. Qualche idea per risolverlo?

Private Sub Workbook_Open() Dim wsh come variante per ogni wsh nei fogli di lavoro(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ content: =True, _ Scenari:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub

Ciao! Ho usato la prima macro con successo e poi ho riscontrato lo stesso problema di chiusura della cartella di lavoro e la macro non funzionava più. Vedo la soluzione sopra ma non riesco a farla funzionare affatto. Ti dispiacerebbe farmi un passaggio? Combino entrambi i codici o uso solo quest'ultimo? Se la mia password è "cane" sostituisco uno dei valori nel codice? Sto solo facendo domanda per un foglio di lavoro ("Foglio 1"); lo uso da qualche parte? Molte grazie in anticipo!!

Per favore aiutami, voglio comprimere ed espandere alcuni rotoli e colonne in un foglio di calcolo Excel protetto. Come posso usare le macro per farlo? Ho provato quello che hai mostrato ma semplicemente non funzionano sul mio foglio di calcolo. Per favore aiuto.

Ciao, per favore aiutami a espandere e comprimere rotoli e colonne in un foglio di calcolo Excel protetto. Ho provato a usare quelli che hai mostrato sopra ma non funzionano.

È stato chiesto/risposto? Dove nel codice è possibile specificare/modificare una password personale?

Come posso cambiare la password con un altro valore?

Quando utilizzo il comando, viene visualizzato un messaggio di errore come mostrato di seguito:
Private Sub Workbook_Open ()
Dim wsh come variante
Per ogni wsh nei fogli di lavoro(Array("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Vero
wsh.Protect Password:="260615", DrawingObjects:=False, _
contenuto:=Vero, _
Scenari:=Vero, _
Consenti Filtraggio:=Vero, _
AllowFormattingCells:=Vero, _
userinterfaceonly:=Vero
Successivo
End Sub
Errore di runtime '9':
Sottoscritto fuori intervallo

funziona per un po', una volta che chiudi e riapri, si ferma :(

Sub Workbook_Open ()
'Aggiornamento 20140603
Dim xWs come foglio di lavoro
Imposta xWs = Application.ActiveSheet
Dim xPws come stringa
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Tipo:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Vero
End Sub

Ho fatto funzionare questo codice. Ma quando chiudo e riapro devo andare nella scheda sviluppatore, selezionare il pulsante macro, selezionare esegui e inserire la password.

C'è un modo per rimuovere la password dal codice OPPURE un codice di esecuzione automatica che eseguirà automaticamente questo marco e inserirà la password?

Per risolvere il problema che non funziona nel tuo file dopo averlo chiuso e aperto di nuovo, devi incollare il codice VBA in "ThisWorkbook" in Microsoft Excel Objects invece di un nuovo modulo. Questo eseguirà automaticamente la macro ogni volta che il file viene aperto.

hai elementi visivi per il codice VBA discusso 6 giorni fa su peachyclean su ThisWorkbook in Microsoft Objects invece di un nuovo modulo. La funzionalità viene persa quando torno nella mia cartella di lavoro

Qualcuno potrebbe aver bisogno di questo, penso di aver capito come farlo funzionare.

Innanzitutto, il codice deve essere scritto in "ThisWorkbook" in Microsoft Excel Objects, come suggerisce @peachyclean.
In secondo luogo, prendi il codice scritto da @Sravanthi e incollalo nella posizione sopra menzionata.

Sub Workbook_Open ()
'Aggiornamento 20140603
Dim xWs come foglio di lavoro
Imposta xWs = Application.ActiveSheet
Dim xPws come stringa
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Tipo:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Vero
End Sub

Il fatto è che devi essere sul foglio che vuoi proteggere ma consentendo l'uso del raggruppamento, salvare la cartella di lavoro e chiudere, senza proteggere. Ora se lo apri, la macro si avvia automaticamente, renderà il foglio protetto con la password "rfc". Ora puoi usare il raggruppamento, il foglio è protetto.

Per la mia soluzione, ho modificato la password applicata, quindi puoi riscrivere qualsiasi password QUI:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Password:", xTitleId, "", Tipo:=2)

Inoltre, non volevo che il foglio da proteggere fosse attivo all'apertura del file, quindi ho modificato questa parte:
Imposta xWs = Application.ActiveSheet ->
Imposta xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Ora funziona come charm, il foglio chiamato 'WRITEANYSHEET'SNAMEHERE' è protetto ma il raggruppamento è applicabile. A lungo termine, penso che il problema sarà che se voglio modificare questo file e mantenere la soluzione, devo rimuovere la protezione di questo foglio per farlo funzionare alla prossima apertura. Immagino che tu possa scrivere un'altra macro per rimuovere automaticamente la protezione alla chiusura :)


Spero sia stato d'aiuto.

formidabile

Come raggruppare e separare righe e colonne nel foglio di lavoro protetto?

cazzo, questo ha rubato il mio excel in seguito e ha cambiato la password in privato