Notifications
Clear all

Salvar como sem aviso de confirmação

3 Posts
2 Usuários
0 Reactions
1,673 Visualizações
(@sergio2016)
Posts: 6
Active Member
Topic starter
 

Gravei uma macro onde eu salvo um arquivo xlsm em xlsx, porém os avisos de confirmação "Os recursos a seguir não podem ser salvos em pastas de trabalho sem macro" e "Um arquivo chamado...já existe neste local. Deseja substituí-lo?" aparecem na hora do salvamento.
Preciso de um código que salve o arquivo sem a exibição dessas perguntas.

Sub Salvar()

With ThisWorkbook

.SaveAs Filename:="C:TesteArquivo3.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close False

End With

End Sub

Obrigado pela atenção,
Sérgio

 
Postado : 22/11/2016 1:57 pm
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa noite Sergio2016,

Desabilite o DiplayAlerts, teste:

Sub Salvar()

Application.DisplayAlerts = False

With ThisWorkbook
.SaveAs Filename:="C:TesteArquivo3.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close False
End With

Application.DisplayAlerts = True

End Sub
 
Postado : 22/11/2016 4:22 pm
(@sergio2016)
Posts: 6
Active Member
Topic starter
 

Boa noite Bruno, obrigado pela ajuda, resolveu meu problema.
Valeu, Sérgio.

 
Postado : 22/11/2016 6:51 pm