Este fórum está sendo desativado

[GENECI]

Boa tarde!

Tenho a seguinte dúvida e conta com a sua ajuda.

Ná célula da coluna D3 se eu digitar algum dado é possível neutralizar E3 F3 e G3 de modo que não possa receber dados.
Obs. Para as respectivas células da coluna.

Grato - GENECI.

[alexandrevba]

Boa tarde!!

Eu não sei se entendi, mas tente isso.

Código: Selecionar todos

Sub AleVBA_3586()
Dim chCell As Range
    Dim chRng As Range

    ActiveSheet.Unprotect
    Set chRng = ActiveSheet.Range("E3:G3")

    For Each chCell In chRng.Cells
        chCell.Locked = (chCell.Value <> "") 'Se as células E3,F3,G3 for diferende vazio
    Next chCell

    ActiveSheet.Protect
End Sub

Att