Isso parece funcionar muito bem, mas quando fecho e reabro a pasta de trabalho, me deparo com o mesmo problema - não consigo expandir meus grupos recolhidos.

Muito obrigado mano isso funciona muito bom. Muito obrigado

Eu tenho o mesmo problema quando eu fecho a pasta de trabalho. Alguma idéia para corrigi-lo?

Private Sub Workbook_Open() Dim wsh como variante para cada wsh em planilhas(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ contents: =True, _ Cenários:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub

Olá! Usei a primeira macro com sucesso e depois tive o mesmo problema de fechar a pasta de trabalho e a macro não funcionava mais. Eu vejo a solução acima, mas não consigo fazer isso funcionar. Você se importaria de me passar? Eu combino os dois códigos ou apenas uso o último? Se minha senha for "cachorro" eu substituo um dos valores no código? Estou aplicando apenas em uma planilha ("Planilha1"); eu uso isso em qualquer lugar? Muito obrigado antecipadamente!!

Por favor me ajude, quero recolher e expandir alguns rolos e colunas em uma planilha excel que esteja protegida. Como posso usar macros para fazer isso? Eu tentei o que você mostrou, mas eles simplesmente não funcionam na minha planilha. Por favor ajude.

Olá, por favor me ajude a expandir e recolher rolos e colunas em planilha excel que está protegida. Eu tentei usar os que você mostrou acima, mas eles não funcionam.

Foi perguntado/respondido? Onde no código você pode especificar/alterar uma senha pessoal?

Como posso alterar a senha para outro valor?

Quando eu uso o comando, vejo uma mensagem de erro conforme mostrado abaixo:
Private Sub Workbook_Open ()
Dim wsh como variante
Para cada wsh em planilhas(Array("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Verdadeiro
wsh.Protect Password:="260615", DrawingObjects:=False, _
conteúdo:=Verdadeiro, _
Cenários:=Verdadeiro, _
AllowFiltering:=Verdadeiro, _
AllowFormattingCells:=Verdadeiro, _
userinterfaceonly:=Verdadeiro
Próxima página
End Sub
Erro de tempo de execução '9':
Subscrito fora do intervalo

isso funciona um pouco, uma vez que você fecha e reabre, ele para :(

Sub pasta de trabalho_Open()
'Atualizar 20140603
Dim xWs como planilha
Definir xWs = Application.ActiveSheet
Dim xPws como string
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Verdadeiro
End Sub

Consegui fazer esse código funcionar. Mas quando eu fecho e reabro devo ir na aba do desenvolvedor, selecionar o botão macros, selecionar executar e digitar a senha.

Existe uma maneira de remover a senha do código OU um código de execução automática que executará automaticamente este marco e inserirá a senha?

Para corrigir o problema de isso não funcionar em seu arquivo depois de fechá-lo e abri-lo novamente, você deve colar o código VBA em "ThisWorkbook" em Microsoft Excel Objects em vez de um novo módulo. Isso executará automaticamente a macro toda vez que o arquivo for aberto.

você tem visuais para o código VBA discutido 6 dias atrás para peachyclean sobre ThisWorkbook em Microsoft Objects em vez de um novo módulo. A funcionalidade é perdida quando eu volto para minha pasta de trabalho

Alguém pode precisar disso, acho que descobri como fazer isso funcionar.

Primeiro, seu código precisa ser escrito em "ThisWorkbook" em Microsoft Excel Objects, como sugere @peachyclean.
Segundo, pegue o código que @Sravanthi escreveu e cole no local mencionado acima.

Sub pasta de trabalho_Open()
'Atualizar 20140603
Dim xWs como planilha
Definir xWs = Application.ActiveSheet
Dim xPws como string
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Verdadeiro
End Sub

O problema é que você precisa estar na planilha que deseja proteger, mas permitir o uso de agrupamento, salvar a pasta de trabalho e fechar, sem proteger. Agora, se você abri-lo, a macro iniciará automaticamente, fará com que a planilha seja protegida com a senha "rfc". Agora você pode usar o agrupamento, a planilha está protegida.

Para minha solução, modifiquei a senha aplicada, para que você possa reescrever qualquer senha AQUI:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Password:", xTitleId, "", Type:=2)

Além disso, eu não queria a planilha a ser protegida ativa ao abrir o arquivo, portanto modifiquei esta parte:
Definir xWs = Application.ActiveSheet ->
Set xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Agora funciona como charme, a folha chamada 'WRITEANYSHEET'SNAMEHERE' está protegida, mas o agrupamento é aplicável. A longo prazo, acho que o problema será que, se eu quiser modificar esse arquivo e manter a solução, preciso desproteger esta planilha para fazê-la funcionar na próxima abertura. Acho que você pode escrever outra macro para desproteger automaticamente ao fechar :)


Espero que tenha ajudado.

formidável

Como agrupar e desagrupar linhas e colunas na planilha protegida?

foda-se, isso roubou meu excel mais tarde e mudou a senha em particular