Este fórum está sendo desativado

[EdineyGodoy]

Tenho uma planilha com 10 ocorrências enumeradas de 0 a 9, que são digitados na coluna B5 a B35, inserí algumas opções (validação de dados) em uma lista na coluna D de forma que seja usada em todas as células (D5 a D35), porém estas opções somente serão usadas se o código da ocorrencia for igual a 3, caso contrário gostaria de bloquear a célula. exemplo digito 1 na célula B5 a planilha bloqueia automaticamente a célula D5, digito 3 na célula B6 a planilha libera as opções da célula D6 para eu escolher uma e assim por diante.

[alexandrevba]

Bom dia!!
Tente assim........

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Esse código deve ser posto dentro do módulo de planilha!!!!
    If Target.Column = 2 Then
        ThisRow = Target.Row
            ActiveSheet.Unprotect
        If Target.Value > 0 Then
            Target.Offset(0, 1).Locked = True
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        Else
            Target.Offset(0, 1).Locked = False
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        End If
    End If
End Sub

Att