Coleção 15.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

SBL Checkboxes ocultar ou mostrar folhas de planilha

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Bom Dia, Expedito 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 visivel 'e' OU  invisivel, estou tentando mais preciso do seu axilio quanto esse trabalho de extrema necessidade para facilitar meu trabalho na empresa. Obrigado

'//===============' RESPOSTA:
'objeto checkbox do formulario 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
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




 u - Assine já  -  Acesse produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
  icon SBL Excel VBA Checkboxes ocultar ou mostrar folhas de planilha (44.17 kB)