Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
Aulessa

Macro Salvar Como

Mensagem Recomendada

Boa tarde!

Tenho uma macro (copiei da internet), para abrir a caixa de dialogo "salvar como" e gostaria de saber se há uma linha de código para deixar marcada a opção "Pasta de Trabalho Habilitada para Macro do Excel (*.xlsm)."

 

Sub ExibeCaixaDialogo()

Dim CaixaDialogo As FileDialog

Set CaixaDialogo = Application.FileDialog(msoFileDialogSaveAs)

With CaixaDialogo

.Show

.Execute

End With

End Sub


 

Compartilhar este post


Link para o post
Compartilhar em outros sites

 Sub ExibeCaixaDialogoV2()
  With Application.FileDialog(msoFileDialogSaveAs)
 
.FilterIndex = 2
  .Show
  .Execute
  End With
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
15 horas atrás, osvaldomp disse:

 Sub ExibeCaixaDialogoV2()
  With Application.FileDialog(msoFileDialogSaveAs)
 
.FilterIndex = 2
  .Show
  .Execute
  End With
End Sub

 

Osvaldo, perfeito! Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...