Guru do Excel e Power BI

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

Grato,
Pedro

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

Foxtri escreveu: ↑19 Jan 2024 às 16:32 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!!!!!!!!!