Ir ao conteúdo
  • Cadastre-se

Macro Salvar Como Excel


Posts recomendados

Pessoal, 

 

Sou iniciante em VBA, não entendo muitas coisas ainda.

Preciso de uma macro que não permita o usuário apenas 'salvar' o arquivo, mas que force-o salvar como, onde ele terá que escolher um novo nome para o arquivo e o local onde deseja salvar.

Ou somente uma macro que tenha a função de salvar como.

 

Obrigada!

Link para o comentário
Compartilhar em outros sites

Boa tarde !!!

 

Veja se atende ...

 

Sub Auto_Close()
      
    Dim fname
 
    fname = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Excel Files (*.XLSM), *.XLSM", Title:="Save As")
 
    If fname = False Then Exit Sub
 
    ActiveWorkbook.SaveAs Filename:=fname
   
End Sub
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...