Bom dia vonzuben,

Bloqueio > Célula
Proteção > Sheet

Na propriedade WorkSheet_Activate() da Sheet "Lista" tem essa linha de código:

    'Desbloqueia todas as celulas da aba
    ActiveSheet.Cells.Locked = False

Ainda bem que está sendo desbloqueado. O código funciona.
E repito, está dando muita volta nesse código cara... =

Qualquer coisa da o grito.
Abraço

E como que faço para proteger o restante da planilha então se ela desbloquea tudo e continuar funcionando esse código ?

É aí que eu não sei muuuito bem como te ajudar de fato com a planilha e o porque de eu falar que você dá muita volta.
Acredito eu, que, você esteja disponibilizando parte da planilha, e que não esteja completa.
Não sei a funcionalidade dela... As vezes daria para agilizar bastante coisa, mas posso remover alguma funcionalidade no qual para o que foi disponibilizado não seja necessário, entretanto, para a planilha completa, aquilo era necessário...

Para resolver esse problema em específico, basta remover essa linha.
Mas antes disso, porque tem essa linha de código?
Qual a necessidade de desbloquear todas as células apenas ao ativar a Sheet?

Qualquer coisa da o grito.
Abraço

É pq na Time tem um botão como você pode ver se colocar ON na planilha Lista passa o link na D1 e para passar somente com Private Sub Worksheet_Activate() ou seja quando estiver ativo na planilha Lista
sendo que essa solução ActiveSheet.Cells.Locked = False foi você mesmo que passou.

Tirei a linha acho que deu certo !

sendo que essa solução ActiveSheet.Cells.Locked = False foi você mesmo que passou.

Eu removi essa linha de código da rotina _change em um tópico criado por você anterior e você disse que resolveu o problema.
Você me perguntou o que era e eu disse que era essa linha, pois ela desbloqueia toda a planilha e bloqueia somente a da linha correspondente.
Por isso você estava com aquele "problema", onde você alterava o valor da validação em lista de uma célula para bloquear uma outra da mesma linha, entretanto ela desbloqueava das outras linhas...

Novamente essa linha de código apareceu, desbloqueando as células...
Você pegou esse código pronto de algum lugar? Você que está fazendo?
Pois posso ir ajudando, resolvendo esses pequenos problemas isolados, mas aí lá na frente você vai lembrar de algo que não está funcionando pois foi removido algumas coisas que não podia...

Eu acho melhor você fazer isso em formulário e uma listbox.