Este fórum está sendo desativado

[thiagocardia]

Olá pessoal!

Desculpe se eu estiver no espaço errado. É que eu sou novo
por aqui.

Tenho a seguinte dúvida:

Na célula C6 criei uma lista suspensa com várias opções. Porém eu gostaria
que ao selecionar algumas dessas opções: "POR INVALIDEZ" "ESPECIAL"
"AUXÍLIO DOENÇA" "BPS/LOAS" bloquea-se as células D6, E6, F6, G6, H6, I6.

Conforme a tabela em anexo.

Desde já agradeço!

[osvaldomp]

Instale uma cópia do código abaixo no módulo da planilha, assim:
1. copie o código daqui
2. clique com o direito na guia da Planilha1 e escolha 'Exibir Código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$C$6" Then Exit Sub
 Me.Protect userinterfaceonly:=True
 Range("D6:I6").Locked = Target.Value <> ""
End Sub

[thiagocardia]

Gostei Osvaldo!!!!

Abri agora só pra te agradecer!!
A noite vou fazer o passo-a-passo que você ensinou.
Estou fazendo um serviço que não posso parar no momento.
Assim que eu fazer te dou uma posição.
Com certeza terei sucesso!!!


Abraços!

[thiagocardia]

Olá Osvaldo!

Gostaria de agradecer pela ajuda!
Muito obrigado mesmo!
Realmente ao selecionar as opções bloqueia as
respectivas células.

Mas gostaria de saber se existe a seguinte possibilidade:

Todas as opções bloqueia as respectivas células. Exceto quando
seleciono a opção em BRANCO. Certo?

Gostaria que ao selecionar as opções: "NÃO""POR IDADE""CONTRIBUIÇÃO" Não bloquea-se
as células, ou seja, fica-se na mesma condição de quando eu seleciono a linha em branco (vazia).

Desculpe pela insistência. Ainda estou engatinhando no excel....

Abraços!!!

[osvaldomp]

Olá, Thiago.

Coloque o código abaixo no lugar do anterior.

funcionamento:
se C6 = "NÃO" ou "POR IDADE" ou "CONTRIBUIÇÃO" ou vazia ~~~> intervalo D6:I6 desbloqueado, nos demais casos, intervalo bloqueado.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$C$6" Then Exit Sub
 Me.Protect userinterfaceonly:=True
 Select Case Target.Value
  Case "NÃO", "POR IDADE", "CONTRIBUIÇÃO", "":  Range("D6:I6").Locked = False
 Case Else:  Range("D6:I6").Locked = True
 End Select
End Sub

[thiagocardia]

Olá Osvaldo!!

Gostaria de agradecer mais uma vez pela ajuda!
O código que você passou funcionou certinho.

Agradeço realmente pela ajuda!!

Abraços!!

[osvaldomp]

Olá, Thiago.

Grato pelos seus agradecimentos e pela sua atenção ao informar que o código atendeu.

Take care

[thiagocardia]

Eu que Agradeço!!!