Notifications
Clear all

Macro para agrupar e desagrupar com células protegidas

8 Posts
3 Usuários
0 Reactions
2,497 Visualizações
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

Bom dia

Sres.

Tenho uma macro que desbloqueia a células protegidas para o usuário poder utilizar o agrupamento e desagrupamento da planilha, ela funciona perfeitamente o problema e que toda vez que abrir a planilha eu tenho que ir no vba e rodar ela, eu preciso que ela execute o comando assim quando o usuário clicar nos botoes de agrupamento, porque quando fecho e abro novamente o recurso de desagrupamento não funciona. o que preciso fazer para isso executar quando o usuário clicar no botoes.

Segue em anexo exemplo.

Desde ja agradeço a ajuda de vocês.

 
Postado : 23/05/2016 5:38 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Grave uma macro!!

Use um botão para acionar a macro!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/05/2016 6:08 am
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

Bom dia!!

Grave uma macro!!

Use um botão para acionar a macro!!

Att

Boa tarde, desculpa, mas não entendi como eu faria isso, se puder postar um exemplo agradeceria.

 
Postado : 23/05/2016 10:51 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Considerando que gravou sua Macro.

Botão direito do mouse, escolha a opção: Atribuir Macro.

Sub Macro1()
' Macro1 Macro
'
    Rows("2:9").Select
    Selection.Rows.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub

Siga os links abaixo:
https://support.office.com/pt-br/articl ... f71ff6a4a3
https://support.microsoft.com/pt-br/kb/141689

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/05/2016 5:40 am
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

Bom dia!!

Considerando que gravou sua Macro.

Botão direito do mouse, escolha a opção: Atribuir Macro.

Sub Macro1()
' Macro1 Macro
'
    Rows("2:9").Select
    Selection.Rows.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub

Siga os links abaixo:
https://support.office.com/pt-br/articl ... f71ff6a4a3
https://support.microsoft.com/pt-br/kb/141689

Att

Amigo eu ja tenho a macro que faz isso, so que eu preciso que ela funcione com os botões de agrupar e desagrupar que fica do lado esquerda da planilha, e preciso que ela funcione ao clicar nesses botões sem ter que rodar a macro manualmente.

 
Postado : 24/05/2016 10:22 am
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

a macro so funcionar quando eu rodo ela manualmente, mas depois que fecho a planilha ela para de funcionar, ai tenho que rodar ela novamente.

 
Postado : 24/05/2016 10:24 am
(@osvaldomp)
Posts: 858
Prominent Member
 

Experimente remover o código que está no módulo da Plan1 e colocá-lo no módulo de EstaPasta_de_trabalho.

Osvaldo

 
Postado : 24/05/2016 11:22 am
(@kikopcruz)
Posts: 31
Eminent Member
Topic starter
 

Experimente remover o código que está no módulo da Plan1 e colocá-lo no módulo de EstaPasta_de_trabalho.

Osvaldo, não acredito que era isso rss, cara muito obrigado pela ajuda, funcionou perfeitamente!!!

 
Postado : 24/05/2016 11:47 am