Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Problema ao deixar ...
 
Notifications
Clear all

Problema ao deixar check box desabilitado

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
3 Posts
3 Usuários
0 Reactions
1,214 Visualizações
RSS
 gilbertjrs
(@gilbertjrs)
Posts: 77
Trusted Member
Topic starter
 

Pessoal, boa noite.

Tem uma planilha lá do serviço que possui alguns check box, cada um disparando uma ação diferente.
Necessito que ao abrir a planilha estes check box sejam iniciado desabilitados porém, o código que implementei não está dando certo.

Peço ajuda dos colegas do forum.

Segue uma planilha de exemplo

 
Postado : 20/01/2018 4:27 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Tente este codigo em Esta Pasta de Trabalho


Private Sub Workbook_Open()
    With ThisWorkbook.Worksheets("Planilha1")
        MsgBox "inicio"
        .CheckBox1.Value = False
        .CheckBox2.Value = False
        .CheckBox3.Value = False
    End With
End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 20/01/2018 4:34 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Private Sub Workbook_Open()
    With ThisWorkbook.Worksheets("Planilha1")
        MsgBox "inicio"
        If .CheckBox1.Value Then .CheckBox1.Value = False
        If .CheckBox2.Value Then .CheckBox2.Value = False
        If .CheckBox3.Value Then .CheckBox3.Value = False
    End With
End Sub
Sub lerCBox()
    With ThisWorkbook.Worksheets("Planilha1")
        If .CheckBox1.Value Then Debug.Print "check box 1"
        
        If .CheckBox2.Value Then Debug.Print "check box 2"

        If .CheckBox3.Value Then Debug.Print "check box 3"
  
        
    End With
End Sub
 
Postado : 20/01/2018 7:14 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico