Página 1 de 1

SelectionChange - Bloquear Célula Conforme Critério [Resolvido]

Enviado: 18 Jan 2024 às 21:35
por PedroBB
Na planilha anexa, preciso Bloquear Células cujas Quantidades Correspondentes sejam Maiores Que Zero.

Grato,
Pedro

Re: SelectionChange - Bloquear Célula Conforme Critério

Enviado: 19 Jan 2024 às 16:32
por 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

Re: SelectionChange - Bloquear Célula Conforme Critério

Enviado: 20 Jan 2024 às 09:41
por PedroBB
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!!!!!!!!!