Este fórum está sendo desativado

[PedroBB]

Na planilha anexa, preciso Bloquear Células cujas Quantidades Correspondentes sejam Maiores Que Zero.

Grato,
Pedro

[Foxtri]

Boa tarde.
Seria algo assim ??

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Rows.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A3:C12")) Is Nothing Then
With Target
ActiveSheet.Unprotect
If .Offset(0, 6).Value = 0 And .Offset(0, 6).Value <> "" Then
Target.Locked = True
ActiveSheet.Protect
Else
Target.Locked = False
End If
End With
Else
ActiveSheet.Unprotect
End If
End Sub

Até
Foxtri

[PedroBB]

Boa tarde.
Seria algo assim ??

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Rows.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A3:C12")) Is Nothing Then
With Target
ActiveSheet.Unprotect
If .Offset(0, 6).Value = 0 And .Offset(0, 6).Value <> "" Then
Target.Locked = True
ActiveSheet.Protect
Else
Target.Locked = False
End If
End With
Else
ActiveSheet.Unprotect
End If
End Sub

Até
Foxtri

Isso mesmo. Muito obrigado!!!!!!!!!