SelectionChange - Bloquear Célula Conforme Critério [Resolvido]
Enviado: 18 Jan 2024 às 21:35
Na planilha anexa, preciso Bloquear Células cujas Quantidades Correspondentes sejam Maiores Que Zero.
Grato,
Pedro
Grato,
Pedro
Fórum de Dúvidas sobre Excel e Power BI
https://gurudoexcel.com/
Foxtri escreveu: ↑19 Jan 2024 às 16:32 Boa tarde.Isso mesmo. Muito obrigado!!!!!!!!!
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