Guru do Excel e Power BI

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!

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

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!

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!!!

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

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!!

Olá, Thiago.

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

Take care

Eu que Agradeço!!!

Guru do Excel e Power BI

Bloquear uma célula à partir de uma condição?

Bloquear uma célula à partir de uma condição?

Re: Bloquear uma célula à partir de uma condição?

Bloquear uma célula à partir de uma condição?

Bloquear uma célula à partir de uma condição?

Re: Bloquear uma célula à partir de uma condição?

Bloquear uma célula à partir de uma condição?

Re: Bloquear uma célula à partir de uma condição?

Bloquear uma célula à partir de uma condição?