Erro no final da execução da Macro


#1

Bom dia pessoal,

Tenho 2 planilhas: Planilha1 (base de dados com senha), Planilha2 (Dashboard)
Tenho essa macro que serve para abrir a Planilha1, atualizar as tabelas dinâmicas da Planilha2 e fechar a Planilha1.
Porém, há dois problemas.
Um deles é que no final da execução da macro aparece uma janela para eu digitar uma senha de um arquivo com o nome ‘Arquivo’.
Outro problema é que ao abrir o arquivo em outro PC e tentar rodar a macro deu erro por conta do ActiveWorkbook.RefreshAll.

Sub Macro1()

Dim wbk As String, aux As Workbook, aux2 As Workbook

Set aux = ActiveWorkbook
wbk = “F:…\2017.xlsx”
Call Workbooks.Open(Filename:=wbk, Password:=“123”)
Set aux2 = ActiveWorkbook
aux.Activate
ActiveWorkbook.RefreshAll
aux2.Activate
ActiveWorkbook.Close savechanges:=False

Set aux = Nothing
Set aux2 = Nothing

End Sub

Quem puder ajudar agradeço!