Notifications

Clear all

Macro para agrupar e desagrupar com células protegidas

2024 - VBA & Macros

Post Recente por Kikopcruz 9 anos atrás

8 Posts

3 Usuários

0 Reactions

2,490 Visualizações

RSS

Kikopcruz

(@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

(@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

(@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