Bom dia!!!

Está descumprindo as regras do fórum, seu arquivo não está compactado (Agora que postou ele assim, não precisa postar outro compactado ).

Att..

Bom dia!!

Elimine a linha ActiveSheet.Paste, faça os teste!

  Do While Worksheets("RESUMO").Cells(Coluna, 1) <> ""
            Coluna = Coluna + 1
        Loop
    
    
            ActiveSheet.Range(Worksheets("RESUMO").Cells(15, 4), Worksheets("RESUMO").Cells(Linha - 1, Coluna)).Select
            Selection.Copy
            Range("B14").Select
            Sheets("Produtividade").Select
            Desprot
            Range("M1").Select
            
            Sheets("Produtividade").Range("P1:P100").Select
            Selection.Copy
            Range("L2").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

desculpe pela compactação , e muito obrigado pela ajuda

BOm dia!!

Quem bom que deu certo!!

Obrigado pelo retorno, precisando estaremos por aqui At+++

alexandrevba,
Preciso desproteger uma planilha para reexibir planilhas ocultas.
Tentei utilizar o scrip acima, mas, sou leigo no assunto.
Poderia me mandar mas detalhada, de forma que possa já executar?

Silva, veja se os exemplos abaixo ajudam :

SENHA PARA VISUALIZAÇÃO DE ABAS
viewtopic.php?f=10&t=1659&st=0&sk=t&sd=a&hilit=visible&start=10

Usando Array para ocultar Worksheets
posting.php?mode=reply&f=10&t=3627

Se PESQUISAR noForum pela palavra "Visible", encontrara outros modelos e dicas.

[]s