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,204 Visualizações
RSS
 gilbertjrs
(@gilbertjrs)
Posts: 0
New 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: 0
New 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
 
Postado : 20/01/2018 4:34 pm
 klarc28
(@klarc28)
Posts: 0
New 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