Botoões sumindo após ocultar linhas

Boa tarde a todos,

Fiz uma planilha em que é necessário ocultar ou exibir a partir de um botão. E dependendo da resposta pode se abrir uma nova decisão que será necessário um novo botão, segue gif para representar a função.

Gif_

Ela está funcionando conforme pretendido, o problema é, ao clicar em “ZERAR” na primeira decisão e depois salvar e fechar o documento, ao reabrir o arquivo os botões da segunda parte somem.

O código que estou usando é esse:

Private Sub CommandButton1_Click()

Plan1.Select

If Plan1.Range(“F18”) = “NÃO” Then

Rows("21:21").Select
Selection.EntireRow.Hidden = False

End If

If Plan1.Range(“F18”) = “NÃO” Then

Rows("30:32").Select
Selection.EntireRow.Hidden = False

End If

If Plan1.Range(“F18”) = “SIM” Then

Rows("17:19").Select

Selection.EntireRow.Hidden = False

If Plan1.Range(“F18”) = “SIM” Then

Rows(“22:29”).Select

Selection.EntireRow.Hidden = False

End If

End If

End Sub

Private Sub CommandButton2_Click()

If Plan1.Range(“F18”) = “NÃO” Then

Rows("19:23").Select
Selection.EntireRow.Hidden = True

End If

If Plan1.Range(“F18”) = “NÃO” Then

Rows("29:33").Select
Selection.EntireRow.Hidden = True

End If

If Plan1.Range(“F18”) = “SIM” Then

Rows("19:42").Select
Selection.EntireRow.Hidden = True

End If

End Sub

Private Sub CommandButton11_Click()

Plan1.Select

If Plan1.Range(“F32”) = “NÃO” Then

Rows("34:42").Select
Selection.EntireRow.Hidden = False

End If

If Plan1.Range(“F32”) = “SIM” Then

Rows("33:33").Select

Selection.EntireRow.Hidden = False

If Plan1.Range(“F32”) = “SIM” Then

Rows(“43:45”).Select

Selection.EntireRow.Hidden = False

End If

End If

End Sub

Private Sub CommandButton12_Click()

If Plan1.Range(“F32”) = “NÃO” Then

Rows("33:45").Select
Selection.EntireRow.Hidden = True

End If

If Plan1.Range(“F32”) = “SIM” Then

Rows("33:45").Select
Selection.EntireRow.Hidden = True

End If

End Sub

E aí, @IgorCeccato.
Tranquilo?

Tenta bloquear os botões para não moverem e nem redimensionarem. Já deve resolver teu problema.
Essa “interferência” está acontecendo por causa do efeito ocultar range de células que contem objetos no intervalo.

Se você pressionar Alt+F10, é provável que os objetos ainda estejam disponíveis, porem com tamanho reduzido à 0 visualmente falando.

Para bloquear é só fazer o seguinte, caso não saiba, primeiro precisa habilitar o ‘Modo de Design’ na aba de ferramentas Desenvolvedor, depois clica com o botão direito sobre os botões que quer usar essa feature e vá em Formatar Controle… > Propriedades. Daí basta ativar a opção Não mover ou dimensionar com células.

Belezinha?!
Qualquer coisa, avisaê.
Abs.

Bom dia amigo, @abcdario,

Agradeço sua resposta, mas os botões já estavam com essa formatação e continuava sumindo.

Porém já consegui resolver mudando a forma de salvar o arquivo, agora deixei a planilha como tipo Planilha Binária Microsoft Excel e os botões não estão sumindo mais.

Mas agradeço a atenção da mesma forma!
Muito obrigado!

Bom dia!

Booa! Mas, eita… que solução indireta mais doida, não?! Hahaha
Excel sendo Excel.

Mas, tá aí uma boa pratica, usar o formato .xlsb que em suma é mais compacto e fluído que o convencional .xlsx. E para macro, ele roda tranquilamente sem necessitar salvar como .xlsm! (eu mesmo, só trabalho com .xlsb no dia-a-dia).


É isso aí.. baaum então!
Abs.