Tenho o arquivo Relatório Diário de Vendas1 que possui vínculo com o Relatório Diário de Vendas2.
Quero salvar o arquivo sem vínculo de nome Relatório Diário de Vendas3.
Tentei o código abaixo mas o problema é que quando salvo como Relatório Diário de Vendas3 sem vínculo também acabo salvando o Relatório Diário de Vendas1 sem vínculos.
Preciso que o Relatório Diário de Vendas1 continue com vínculos e só o Relatório Diário de Vendas3 fique sem.
Obs. o código está escrito em EstaPasta_de_trabalho.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Plan1.Range("F10").Value = Date & " - " & Time
With ThisWorkbook
.BreakLink Name:="C:MatrizRelatório Diário de Vendas2.xlsm", Type:=xlExcelLinks
.SaveCopyAs Filename:="C:FilialRelatório Diário de Vendas3.xlsm"
End With
End Sub
Obrigado pela atenção,
Sérgio.
Postado : 18/11/2016 1:34 pm