Salvando e fechando arquivos Xlsx

Question

Ok, criei uma pasta de trabalho Xlsm que preciso desativar algumas guias e só preciso salvar como Xlsx na minha área de trabalho. Eu não preciso do arquivo para abrir. Eu preciso ter o arquivo Xlsm original para permanecer aberto para que eu possa limpar os dados e inserir informações diferentes e salvar isso também. Posso fazer isso com uma macro? Aqui está o que eu tenho até agora. Tudo funciona bem, exceto que tenho que fechar o Xlsx e reabrir o Xlsm manualmente e quando faço várias dezenas por dia, fica tedioso.

Sheets(Array("Contractor info", "PTW", "DataBase")).Select
Sheets("DataBase").Activate
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\U0154179\Desktop\ATW " & ActiveSheet.Range("B21").Value & "-" & ActiveSheet.Range("I3").Value & ".xlsx", FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Save
End Sub

    

Answer 1

Tente algo como:

Sub Macro3()
    Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="C:\Users\garys\Desktop\arrr.xlsx", _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWorkbook.SaveAs Filename:="C:\Users\garys\Desktop\arrr.xlsm", _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub