Bom dia, tauron 😀 

 

OBS: Os Códigos abaixo e o arquivo exemplo 2 foram reajustados para solucionar as questões; executando

corretamente o que solicitou 😉 .

Para a sua questão faça o seguinte, substitua o seu código no seu arquivo exemplo (da sua mensagem acima)

por esse que se encontra abaixo; faz desbloquear a "Plan1":

Sub Desbloqueia()

Sheets("Plan1").Activate

If Sheets("Plan1").Range("C1:C7").Locked = True Then
ActiveSheet.Unprotect
Range("C1:C7").Locked = False
Worksheets(1).Protect

End If

End Sub

 

E também coloque este código abaixo na "Pasta de trabalho" da "Nova" Sheet que criar (ex "Plan2"),

que bloqueia novamente a "Plan1" :

Private Sub Worksheet_Activate()

Worksheets(1).Activate

If Sheets("Plan1").Range("C1:C7").Locked = False Then
Worksheets(1).Unprotect
Worksheets(1).Range("C1:C7").Locked = True
Worksheets(1).Protect

End If

End Sub

 

Estou anexando o arquivo exemplo com esses códigos para melhor análise e implementação no

seu projeto.

 

Espero que seja isto que queria 😉 

Qualquer coisa estamos aqui para ajudá-lo 😀 

 

Aguardando sua resposta e seu Feed Back ... se foi útil, não esqueça de Clicar no Botão "Curtir"...

 

LaerteB 😀