3 respostas neste tópico

[LF83]

Boa noite, Amigos!

Meu problema é o seguinte:

Tenho um banco de dados no excel e preciso de uma macro para que ao preencher um determinado campo todo o registro (linha) seja bloqueado para edição.

Ex:

Se o cara preencher a Célula E5 com "S" ou "N", toda a linha 5 seja travada para edição.

Agradeço a atenção.

Sds,

LF

[osvaldomp]

antes de instalar o código abaixo o cara deverá:
1. desbloquear todas as células da planilha
2. proteger a planilha

aí, o cara cola o código no módulo da planilha

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 5 Then Exit Sub

If Target.Count > 1 Then Exit Sub

	If Target.Value = "S" Or Target.Value = "N" Then

    	Me.Unprotect

        	Target.EntireRow.Locked = True

    	Me.Protect

	End If

End Sub

[LF83]

Osvaldo,

Valeu pela ajuda! Uma dúvida. Esse comando aí será executado a cada alteração na planilha? Se for, temo que fique pesado. Não teria como restringir a coluna específica?

Sds,

LF

[osvaldomp]

o código só será executado se a alteração ocorrer n coluna 'E' (coluna 5), e se for inserido 'S' ou 'N'

Editado por osvaldomp, 25 November 2011 - 09:30 PM.