Este fórum está sendo desativado

[thiagocardia]

Olá Osvaldo!

Desculpe a insistência. Sei que você me ajudou
bastante mas conforme vou fazendo a planilha
vai aparecendo outras dúvidas.

Sabe como é... todo início é mais difícil....

Então; ainda sobre aquela planilha tenho a seguinte
dúvida:

A minha planilha deve ter 101 linhas, como usar o
mesmo código pra linha C7, C8, C9.....Até C101?

Pensei em copiar o código que você me passou e
substituir o nome das células (range). Mas achei
que daria muito trabalho copiar 101 vezes aquele
código. Sem contar o risco de errar.

Será que tem uma opção mais fácil?

A planilha está em anexo pra voce dar uma
olhada

[osvaldomp]

Olá, Thiago.

Mas achei que daria muito trabalho copiar 101 vezes aquele
código. Sem contar o risco de errar.
Eu acho que ainda haveria mais dois riscos: primeiro de você contrair tendinite, segundo, ser zuado pelo resto da sua vida se alguma criança do ensino fundamental descobrisse o que você fez ...

Utilize uma cópia deste no lugar do anterior.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [C6:C101]) Is Nothing Then Exit Sub
 Me.Protect userinterfaceonly:=True
 Select Case Target.Value
  Case "NÃO", "POR IDADE", "CONTRIBUIÇÃO", " ": Cells(Target.Row, 4).Resize(, 6).Locked = False
 Case Else:  Cells(Target.Row, 4).Resize(, 6).Locked = True
 End Select
End Sub

[thiagocardia]

kkkkkk

Com certeza Osvaldo! Seria a maior gafe
feita no excel....kkkkkk

Mas ainda bem que deu tudo certo!!!!!!!
Coloquei o código que você forneceu e
funcionou certinho!!!!!

Mais uma vez quero agradecer grandemente
por ter resolvido!!!

Muito obrigado mesmo!!

Abraços!!!!