Teste o codigo abaixo

Sub Copiar()

Dim lin As Long

Call Desproteger

lin = Sheets("REM31").Range("A" & Rows.Count).End(xlUp).Row


Sheets("REM31").Range("A11:A" & lin).Copy


With Sheets("COMPILADOR")

.Select
.Range("AJ6").PasteSpecial Paste:=xlPasteValues
lin = .Range("AJ" & Rows.Count).End(xlUp).Row
.Range("$AJ$6:$AJ$" & lin).RemoveDuplicates Columns:=1, Header:=xlNo
.Range("AJ6:AJ" & lin).Copy
.Range("C6").PasteSpecial Paste:=xlPasteValues
.Range("C6").Select

End With

Call Proteger

End Sub


Sub Desproteger()


Dim Plan As Worksheet

For Each Plan In Worksheets

Plan.Unprotect "sua senha"

Next Plan

End Sub


Sub Proteger()
Dim Plan As Worksheet

For Each Plan In Worksheets

Plan.Protect "sua senha"

Next Plan

End Sub

@mprudencio Ola Marcelo!

Funcionou perfeitamente! Eu não sei muita coisa de VBA, então não consigo identificar muito dos erros que as vezes aparecem.

Você saberia me dizer pq a macro apresentava erro quando eu protegia a planilha, visto que coloquei o argumento para desproteger e proteger novamente. E vi que você usou "Plan.Unprotect / Plan.Protect" aou inves de "ActiveSheets.Unprotect / ActiveSheets.Protect".

Qual a diferença entre elas?

Agradeço imensamente sua ajuda! Muio obrigado!

Na verdade o que eu fiz foi separar o codigo de proteção e desproteção das planilhas.

O codigo sub proteger e sub desproteger protegem e desprotegem todas as planilhas da pasta de trabalho

E sempre que vc for executar faça de forma que vc proteja e desproteja apenas uma vez, e nao varias vezes como vc fez.

E com relação com a diferença entre a variavel Plan que eu criei no codigo que protege e desprotege é para evitar erros na hora da execução.

Activesheet vai rodar na planilha ativa, nao importa qual a planilha esteja aberta.

Por exemplo se o seu codigo de copiar estivesse com activesheet, e vc tiver com outro arquivo aberto ele vai executar no novo arquivo e nao onde deveria.

Então é de grande importancia que vc declare as variaveis corretamente para que seus codigos sejam executados exatamente onde vc deseja.