[MACRO] Ajuda para não aparecer mais um aviso

[diego_janjao]

Boa tarde, gostaria que me indicassem o que devo fazer para esse aviso:

Não aparecer mais quando eu tento salvar o arquivo

 

(A opção que uso é sempre sim, salvar sem macro)

 

Sub SalvarComo()
    
    NameFolder = "\\ln008svr03\processos\Projeto BPF Bonsucesso\01_Controle_de_Qualidade\08_Não_Conformidades\Internas\2016"
    NameFile = Replace([AU19], "/", "_")
    ThisWorkbook.SaveAs NameFolder & "\" & NameFile, 51
    MsgBox [AU19], vbInformation, "O arquivo foi salvo como:"
    ActiveSheet.Shapes.Range(Array("TextBox 5")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 4")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Select
    Selection.Delete
    
End Sub

 

[Basole]

use o  " Application.DisplayAlerts = False " antes de SaveAs

[CasaDoHardware]

O que acontece é que você esta salvando um arquivo com macros.

 

Troque abaixo em tipo de arquivo 

 

Planilha habilitada para macros que o aviso some

[Visitante]

@diego_janjao

 

Substitua 51 por 52 na linha abaixo.

ThisWorkbook.SaveAs NameFolder & "\" & NameFile, 51

[diego_janjao]

no momento estou sem a planilha, mas na segunda testarei...

 

o único problema nas respostas que me deram:

o arquivo tem que ser salvo em .xlsx mesmo, não pode ser .xlsm

[CasaDoHardware]

então neste caso faça uma copia da Aba pra uma nova pasta e salve a pasta.

 

Arquivos xlsx não possuem macro

 

Arquivos xlsm são habilitados para macros.

 

porque nao pode ser xlsm e tem que ser xlsx

[Visitante]

2 horas atrás, diego_janjao disse:

o arquivo tem que ser salvo em .xlsx mesmo, não pode ser .xlsm

 

Então utilize a sugestão do Basole...

[diego_janjao]

@Basole Funcionou perfeitamente. Muito obrigado