Salvar automaticamente ao fechar

guinolascojr · 15 de fevereiro de 2013

E ai galera,

quero em um macro VBA uma forma de que ao fechar a tabela(no excel) automaticamente salvar o arquivo que eu fechei em um destino especifico.

Exemplo:

Ao fechar o arquivo da tabela 'Bloco DMoon', ela automaticamente deve ser salva na pasta 'Pedidos' que está na Área de Trabalho.

Obrigado!

deejaywesley · 15 de fevereiro de 2013

Boa Tarde!

veja se este lhe atende!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next

ActiveWorkbook.SaveCopyAs "\\Reservaam\D\W&SL&Y\ARQUiVOMUSiCAL\Backup da Planilha\Backup.xls"

End Sub

onde....

\\Reservaam\D\W&SL&Y\ARQUiVOMUSiCAL\Backup da Planilha\

mude essa parte para o caminho da sua pasta

Backup é o nome que você quer dar ao arquivo

.xls e esta é para a versao...

no caso esta é para salvar em 2003

para 2007 use assim Backup.xlsm

espero ter ajudado!

guinolascojr · 16 de fevereiro de 2013

Mano tentei o procedimento com o códido que voce me passou e não deu em nada.

Mudei o destino para "C:\User\vania\Desktop\Backup.xlsm", tentando salvar na área de trabalho, no caso do destino que coloquei está correto dessa forma?

Obrigado!

deejaywesley · 16 de fevereiro de 2013

Boa Noite Amigo!

Fiz o teste aqui e funciono beleza!

no caso do meu pc fico assim!

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\DeeJayWesley\Desktop\Backup.xlsm"

End Sub

se ainda nao conseguir poste o codigo inteiro aqui....

zinhovba · 17 de fevereiro de 2013

Bom dia!!

Leia:

http://support.microsoft.com/kb/185601

e tente também:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Application.EnableEvents = False
    Cancel = True
    If CurDir <> "C:\User\vania\Desktop\Backup.xlsm" Then
        ChDir "C:\User\vania\Desktop\Backup.xlsm"
    End If
    ThisWorkbook.Save
    Application.EnableEvents = True


End Sub