cacilds,

Bom dia!

A caixa de mensagem que aparece é em função de que você está tentando salvar um arquivo que contém macros (arquivos .xlsm com módulos) em um formato de arquivo sem macro.

O Excel "entende" simplesmente que você está tentando fazer algo errado já que o arquivo a ser salvo ainda contém os módulos. Para fazer isso você deve primeiramente excluir os módulos do arquivo que será salvo como .xlsx. Abaixo, segue um código que faz a exclusão de um módulo existente em outro arquivo. O código não é meu. Ele pertence a alguém que o escreveu e o colocou no site http://excelevba.com.br/excluindo-modul ... -planilha/.

Sub EXCLUIR_MODULO_EXCELEVBA_COM_BR()
 
'Para esse código funcionar é necessário adicionar a referencia Microsoft Visual Basic For Application Extensibility 5.0 (ou posterior)
 
Dim moduloAntigo As VBComponent
 
endereco = "c:tempcodigoAntigo.xlsm"
Workbooks.Open (endereco)
 
'Mod1 é o nome do módulo que quero excluir que já existe na panilha codigoAntigo.xlsm
 
On Error Resume Next
Set moduloAntigo = ActiveWorkbook.VBProject.VBComponents("Mod1")
ActiveWorkbook.VBProject.VBComponents.Remove moduloAntigo
 
Set moduloAntigo = Nothing
DoEvents
 
End Sub

Tente alterar o tipo de arquivo a ser salva para o formato habilitado para macro, caso não queira excluir o módulo vba.

ActiveWorkbook.SaveAs Filename:=diretorio & nomearquivo, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False