Notifications
Clear all

Agrupar/desagrupar células bloqueadas

11 Posts
2 Usuários
0 Reactions
8,599 Visualizações
(@bauhaus)
Posts: 14
Eminent Member
Topic starter
 

Bom dia amigos,

Como desbloquear algumas células da planilha, de modo que a função agrupar/desagrupar esteja disponível em uma planilha bloqueada?
Preciso bloquear os dados da mesma, mas o usuário deve ter a opção de minimizar/agrupar as linhas desta tabela.
Como proceder?

Obrigado,

 
Postado : 16/02/2012 3:44 am
(@bauhaus)
Posts: 14
Eminent Member
Topic starter
 

Alguém sabe como procedo?

 
Postado : 19/02/2012 1:56 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

me desculpa mas, eu não entendi o que queres.

 
Postado : 19/02/2012 2:00 pm
(@bauhaus)
Posts: 14
Eminent Member
Topic starter
 

Na planilha do excel, ao agrupar linhas (fazer com que os subitens fiquem ocultos aos itens, podendo ser exibidas/ocultas com o botão "+" que é criado na lateral ao realizar esta ação no excel), as linhas podem ser exibidas ou ocultadas pelo clique no "+". Quando bloqueio a planilha, as linhas não podem ser mostradas ou ocultadas pelo usuário, mantendo sua forma original (ou exibidas ou ocultas) de quando foram bloqueadas por senha.

Gostaria de saber como fazer com uma planilha que deve ser bloqueada, mas que também tem que dar a opção ao usuário de agrupar (ocultar) ou desagrupar (mostrar) as linhas de subitem do item principal.

Exemplo:

Quando os subitens estão exibidos:
1. Fundação
1.1 Gabarito
1.2 Escavação de tubulão
1.3 Montagem de armação de tubulão
1.4 Concretagem de tubulão
1.n ........

2. Estrutura
2.1 Confecção de formas
2.2 Montagem de formas
2.3 Corte e dobra de armadura
2.4 Montagem de armadura

3. ONONONO
3.1 n1
3.2 n2
3.3 n3

Quando os subitens estão ocultos:

1. Fundação
2. Estrutura
3. ONONONO

Como posso fazer com que as células sejam bloqueadas mas que o usuário possa agrupar/desagrupar as linhas da tabela?

Obrigado,

 
Postado : 22/02/2012 6:53 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

Seria pedir muito, que postasse um exemplo de seu arquivo (compactado), por favor.

Agora compreendi o que queres.

 
Postado : 22/02/2012 6:57 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

Para resolver seu caso, seria melhor usar uma macro pra ocultar e exibir linhas.

Autor: LuizVS - Duxus MVP

Este comando não funciona mesmo com a planilha protegida, mesmo que vc libere todas as alterações possíveis antes da proteção. Vc poderia trabalhar com ocultação de linhas, que funciona mesmo com a planilha protegida (se habilitado para).

 
Postado : 22/02/2012 8:03 pm
(@bauhaus)
Posts: 14
Eminent Member
Topic starter
 

Tentei criar uma macro simples, porém ainda assim não foi possível executar a função agrupar/desagrupar a planilha bloqueada.
Exemplo anexo.

Obrigado,

 
Postado : 23/02/2012 11:15 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

use a pesquisa do fórum, tem assunto relacionado ao que precisa.
Caso tenha problemas para terminar a macro, retorne ao fórum, e diga detalhadamente do que quer e como quer.

Exemplo postado por Edson

Sub Macro1()

If Rows("1:10").EntireRow.Hidden = True Then
Rows("1:10").EntireRow.Hidden = False
ElseIf Rows("1:10").EntireRow.Hidden = False Then
Rows("1:10").EntireRow.Hidden = True
End If

End Sub
 
Postado : 23/02/2012 11:39 am
(@bauhaus)
Posts: 14
Eminent Member
Topic starter
 

O mesmo problema aconteceu. A macro funciona perfeitamente antes de bloquear a planilha. Assim que é feito o bloqueio a macro não roda.

 
Postado : 24/02/2012 3:01 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

A planilha está bloqueada com ou sem senha?

Caso seja sem senha coloque apenas uma rotina na macro que desbloqueia que desbloqueie a planilha e após listar os resultados bloqueie de novo!

Use por exemplo:

Para desproteger:

Sheets("<Nome da Sheet>").Unprotect

Para proteger:

Sheets("<Nome da Sheet>").Protect , Contents:=True

Veja se ajuda!

[]s

 
Postado : 24/02/2012 4:27 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

bauhaus, consegue adaptar as duas ultimas postagem?

Att :mrgreen:

 
Postado : 24/02/2012 5:01 pm