Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Desbloquear célula ...
 
Notifications
Clear all

Desbloquear célula após inserir dados

 
2024 - VBA & Macros
Post Recente por srobles 5 anos atrás
2 Posts
2 Usuários
0 Reactions
1,030 Visualizações
RSS
 dbrito
(@dbrito)
Posts: 1
New Member
Topic starter
 

Boa tarde! Tenho um formulário onde todos os campos devem ser preenchidos. Para isso, eu preciso de um comando que a pessoa só consegue preencher o campo 2 se o campo 1 estiver preenchido. Os campos para preenchimento não estão na sequência. Eu tentei o comando abaixo mas não deu muito certo. Poderia, por gentileza, me ajudar?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") = "Accepting" Then
        Range("B1:B4").Locked = False
    ElseIf Range("A1") = "Refusing" Then
        Range("B1:B4").Locked = True
    End If
End Sub

Obrigada! :)

 
Postado : 29/10/2019 12:08 pm
 srobles
(@srobles)
Posts: 231
Estimable Member
 

dbrito,

Veja se a rotina abaixo atende sua necessidade.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case Target.Value
            Case Is = "Accepting"
                ActiveSheet.Unprotect "1234"
                Range("B1:B4").Locked = False
            Case Is = "Refusing"
                Range("B1:B4") = Empty
                Range("B1:B4").Locked = True
                ActiveSheet.Protect "1234"
        End Select
    End If
End Sub

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 29/10/2019 1:45 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico