Gostaria de solicitar uma ajuda para tentar resolver esse erro que surgiu e não estou conseguindo resolve-lo. Tenho dois arquivos um é um banco de dados e o outro é o para criação do Dashboard. Inicialmente há um botão no arquivo Dashboard para importar os dados e até ontem estava funcionando perfeitamente, porém, hoje está dando o erro 1004, dizendo que há alguma planilha protegida, mas não há e não consigo encontrar o erro, por favor se alguém puder ajudar agradeço, desde já
Código: Selecionar todos
Sub importar()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim arq As String
Dim dash As String
Dim linha As Integer, linha1 As Integer
arq = "NGK PPM BD_DECA-4.xlsm"
dash = "NGK PPM DASHBOARD_DECA-4.xlsm"
'limpar filtro e dados atuais BD
Sheets("BD").Activate
On Error Resume Next
If Sheets("BD").AutoFilterMode Then
Sheets("BD").AutoFilterMode = False
End If
If Range("A2").Value = "" Then
Range("A2").Value = "valor"
Range("A3").Value = "valor"
End If
Range("A2").Select
Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).EntireRow.Delete
'inserir dados atualizados
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & arq
Sheets("BD").Activate
On Error Resume Next
If Sheets("BD").AutoFilterMode Then
Sheets("BD").AutoFilterMode = False
End If
Range("A2:O2").Select
Range(Selection, Selection.End(xlDown)).Copy
Workbooks(dash).Sheets("BD").Activate
Range("A2").Select
ActiveCell.PasteSpecial xlFormats
ActiveCell.PasteSpecial xlValues
Workbooks(arq).Close
'limpar filtro e dados atuais BD1
Sheets("BD1").Activate
On Error Resume Next
If Sheets("BD1").AutoFilterMode Then
Sheets("BD1").AutoFilterMode = False
End If
If Range("A2").Value = "" Then
Range("A2").Value = "valor"
Range("A3").Value = "valor"
End If
Range("A2").Select
Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).EntireRow.Delete
'inserir dados atualizados
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & arq
Sheets("BD1").Activate
On Error Resume Next
If Sheets("BD1").AutoFilterMode Then
Sheets("BD1").AutoFilterMode = False
End If
Range("A2:O2").Select
Range(Selection, Selection.End(xlDown)).Copy
Workbooks(dash).Sheets("BD1").Activate
Range("A2").Select
ActiveCell.PasteSpecial xlFormats
ActiveCell.PasteSpecial xlValues
'**** neste ponto que depura o erro****
Workbooks(arq).Close
'limpar dados atuais CADASTRO
Sheets("CADASTRO").Activate
Range("C1:AS1").Select
Range(Selection, Selection.End(xlDown)).ClearContents
'Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).EntireRow.Delete
'inserir dados atualizados
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & arq
Sheets("CADASTRO").Activate
Range("C1:AS1").EntireColumn.Hidden = False
Range("C1:AS1").EntireColumn.Copy
'Range(Selection, Selection.End(xlDown)).Copy
ActiveWorkbook.Close
Workbooks(dash).Sheets("CADASTRO").Activate
Range("C1").PasteSpecial
Sheets("Menu Principal").Activate
Range("a1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub