Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro 1004 - planilha bloqueada

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Yurilobato
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Jan 06, 2021 12:38 pm

Erro 1004 - planilha bloqueada

Mensagem por Yurilobato »

Boa tarde a todos!

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



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder