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,023 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