Guru do Excel e Power BI

Boa Tarde!
Solicitação de Ajuda: Preciso proteger as células G6, G7, G8, I6, I7, I8, I9, K6, K7, K8, K9 e todas as células das colunas L, M; da planilha anexo, Porém quando utilizo a funcionalidade disponibilizada pelo excel para proteção de planilhas, funciona perfeitamente, ou seja, protege as células em questão deixando as demais habilitadas, entretanto ao utilizar tal funcionalidade (proteger planilhas)do excel, quando clico no botão “Pesquisar”, dá bug impedindo a pesquisa e aí tenho que retirar as proteções através da funcionalidade Revisão-Desproteger Planilha.

A senha para desproteger a planilha “Pesq MP” é: ano2020

Desde já agradeço

Acrescente as duas linhas em vermelho, conforme abaixo.

Sheets("Pesq MP").Visible = True ~~~> a propósito, esta linha é desnecessária no seu código
ActiveSheet.Unprotect "ano2020"
...
...
ActiveSheet.Protect "ano2020"
End Sub

Prezado osvaldomp 10 Mar 2020 às 21:16, Bom Dia!
Muito Obrigado Por Dispor de Tempo Para Ajudar.
Fiz Conforme Vossa Orientação, Exclui: "Sheets("Pesq MP").Visible = True " e Acrescentei: "ActiveSheet.Unprotect "ano2020" e ActiveSheet.Protect "ano2020".
Funcionou. Grato