Tentou reabrir o arquivo?

Tente Renomear o Arquivo

E marque nas configurações de Macro

Desabilitar todas as macros COM NOTIFICAÇÃO.

A segunda opção.

Depois abra o arquivo.

COPA, a planilha que está sendo copiado os valores está no formato xls mesmo?
FOLHA - INATIVO - CONFERÊNCIA - 2014 - versao 2 .xls
Não pode converter para 2007?

.
Bernardo, esse arquivo é exportado pelo Oracle Discoverer ... e vem no formato .xls !! ... É dele que a macro copia para o .xlsm!! ... Já alterei, após a exportação, para .xlsm, mas a macro continua sendo desabilitada!!
.
Aparece uma mensagem dizendo que as macros foram desativadas (mesmo estando habilitada lá na segurança) e, na janela de opção não aparece a opção para habilitar!!
.
Coisa de louco!! ... Acabei de mandar este print para o STI, vamos ver ...
.

COPA, existe alguma planilha que você consiga remover qualquer tipo de informação e que continue com esse erro para que possa disponibiliza-la?
Muito estranho isso...
Pode ser uma coisa simples (até mesmo boba), mas nunca passei por isso...

.
Bernardo, achei loucura demais, mas sabe porque as macros não funcionavam, e davam a msg que postei acima? ... Porque o arquivo tinha senha!!!
.
Agora o cara da TI me ligou e disse para eu salvar sem senha e testar ... testei e tá funcionando!! ... Fala sério!! k
.
Não queria acreditar nisso, mas como nunca usei esse Office 2007, vou ficar quieto!! kk
.
PS: Por isto dá aquela mensagem: "Para executar essas macros, remova a criptografia ou as restrições de permissão do arquivo."
.

Puts... Foda...
Por isso que nesses casos eu gosto que o próprio VBA abra o arquivo "ja deixo a senha no VBA" e ela funciona...

Bom que da próxima vez já saberemos...

Eu sempre disse que o 2007 é um lixo tecnológico.

Eita troco mal feito.

.
Marcelo, vc fala isto desde o Orkut kk ... pelo que eles aqui do trabalho não te ouviram kk
.
PS: detalhe ... arquivo .xls, mesmo com macro, abre normal, e a macro funciona (acabei de testar)!!
.
PS2: os .xlsm com macro e sem senha, feitos aqui no pc do trabalho, abrem e funcionam normal ... já, os meus arquivos .xlsm do pendrive, feitos em casa no 2010, NEM ABREM AQUI com esse W7 e Office 2007 (acabei de testar também)!! ... PQP!! k
.

Puts... Foda...
Por isso que nesses casos eu gosto que o próprio VBA abra o arquivo "ja deixo a senha no VBA" e ela funciona...

Bom que da próxima vez já saberemos...

-----------------------
.
Moderas, desculpem o tópico estar resolvido e eu continuar upando ele, mas é só mais esta ...
.
Bernardo, vc tem a linha de código da senha para eu inserir no código?? ... Quem sabe, isto pode burlar a segurança do 2007!!
.

COPA, fiz de um jeito que não modifique muito o seu código...

Option Explicit

Sub CopiarColarVersao2()
Dim wbFolha     As Workbook
Dim wbAtiva     As Workbook
Dim sArquivo    As String
Dim NomeFolha   As String

    'Aqui vai selecionar a planilha
    sArquivo = CStr(Application.GetOpenFilename("Arquivo do Excel (*.XLS*),*.XLS*", , "Selecione um arquivo *.XLS*:", , False))
    
    'Verifica se foi selecionada
    If sArquivo = "Falso" Then
        MsgBox "Arquivo não selecionado"
        Exit Sub
    End If

    'Desativa a atualização da tela
    Application.ScreenUpdating = False
    
    'Abre a planilha
    Call Workbooks.Open(Filename:=sArquivo, Password:="COLOCA A SENHA AQUI COPA") ' A SENHA AQUI
    NomeFolha = ActiveWorkbook.Name
    
    'Seta a planilha aberta
    Set wbFolha = Workbooks(NomeFolha)
    'Seta a planilha atual
    Set wbAtiva = ThisWorkbook

    With wbFolha
        With .Worksheets("inativos1")
            .Range("A2:R6000").Copy
            wbAtiva.Worksheets("Inativos").Range("A2").PasteSpecial Paste:=xlPasteValues
        End With
        With .Worksheets("inativos2")
            .Range("A2:R6000").Copy
            wbAtiva.Worksheets("Inativos").Range("Y2").PasteSpecial Paste:=xlPasteValues
        End With
        With .Worksheets("pensoes1")
            .Range("A2:S1800").Copy
            wbAtiva.Worksheets("pensoes").Range("A2").PasteSpecial Paste:=xlPasteValues
        End With
        With .Worksheets("pensoes2")
            .Range("A2:S1800").Copy
            wbAtiva.Worksheets("pensoes").Range("Z2").PasteSpecial Paste:=xlPasteValues
        End With
    End With
    
    wbAtiva.Worksheets("Inativos").Range("T2:T6000").ClearContents
    wbAtiva.Worksheets("Inativos").Range("W2:W6000").ClearContents
    
    wbAtiva.Worksheets("pensoes").Range("U2:U1800").ClearContents
    wbAtiva.Worksheets("pensoes").Range("X2:X1800").ClearContents
    
    'Fecha a planilha
    wbFolha.Close False

    'Ativa a atualização da tela
    Application.ScreenUpdating = False

    MsgBox "Processo concluído com sucesso!"

End Sub

Deixa a planilha FOLHA que vai ser copiado os valores fechada...

Qualquer coisa da o grito.
Abraço