Excel VBA CheckBoxes Planilha ocultar ou mostrar folhas de planilha

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

Excel VBA CheckBox Planilha ocultar ou mostrar folhas de planilha

Bom Dia, Marcondes
Parabéns pelo seu site, sou assinante, queria um auxilio de vc quanto a planilha acima. Preciso criar uma macro que quando selecionar deixa a Plan2 visível ‘e’ OU invisível, estou tentando mais preciso do seu axilio quanto esse trabalho de extrema necessidade para facilitar meu trabalho na empresa. Obrigado

‘//===============’ RESPOSTA:
‘objeto checkbox do formulário do Excel
Prezado Amigo Regis,
Segue o Exemplo que acho que poderá ajudá-lo,
Primeiramente caso for usar planilha por planilha e também uma CheckBox para cada folha de planilha, então temos que renomear cada Objeto desseobserve que renomeie as checkboxes 1,2,3, para
ckbPLAN2, ckbPLAN3, ckbPLAN4, isso para ficar mais fácil a compreensão,
Observe também que fiz uma condição if para cada Checkbox, para comparar se esta ou não selecionada.
Por fim, liguei cada Checkbox no Macro.
//===================’ VEJA O MACRO ABAIXO.

Sub sbx_ocultar_planilhas()

‘//==== codigo CheckBox 2
If Plan1.CheckBoxes(“ckbPLAN2”).Value = xlOn Then
Plan2.Visible = xlSheetVeryHidden
Plan1.CheckBoxes(“ckbPLAN2”).Characters.Text = “Planilha 2 Oculta”
Plan1.CheckBoxes(“ckbPLAN2”).Interior.ColorIndex = 3
Else
Plan2.Visible = True
Plan1.CheckBoxes(“ckbPLAN2”).Characters.Text = “Planilha 2 Visivel”
Plan1.CheckBoxes(“ckbPLAN2”).Interior.ColorIndex = 4
End If

‘//==== codigo CheckBox 3
If Plan1.CheckBoxes(“ckbPLAN3”).Value = xlOn Then
Plan3.Visible = xlSheetVeryHidden
Plan1.CheckBoxes(“ckbPLAN3”).Characters.Text = “Planilha 3 Oculta”
Plan1.CheckBoxes(“ckbPLAN3”).Interior.ColorIndex = 3
Else
Plan3.Visible = True
Plan1.CheckBoxes(“ckbPLAN3”).Characters.Text = “Planilha 3 Visivel”
Plan1.CheckBoxes(“ckbPLAN3”).Interior.ColorIndex = 4
End If

‘//==== codigo CHECKBOX 4
If Plan1.CheckBoxes(“ckbPLAN4”).Value = xlOn Then
Plan4.Visible = xlSheetVeryHidden ‘ impede usuario de reexibir pela aba de planilhas
Plan1.CheckBoxes(“ckbPLAN4”).Characters.Text = “Planilha 4 Oculta”
Plan1.CheckBoxes(“ckbPLAN4”).Interior.ColorIndex = 3
Else
Plan4.Visible = True
Plan1.CheckBoxes(“ckbPLAN4”).Characters.Text = “Planilha 4 Visivel”
Plan1.CheckBoxes(“ckbPLAN4”).Interior.ColorIndex = 4
End If

End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos