Сохранение и закрытие файлов Xlsx

Question

Хорошо, я создал рабочую книгу по Xlsm , которую нужно отключить для некоторых вкладок, а затем мне нужно только сохранить ее как Xlsx на рабочем столе. Мне не нужен файл, чтобы открыть. Мне нужно, чтобы исходный файл Xlsm оставался открытым, чтобы я мог очистить данные, ввести другую информацию и сохранить ее. Могу ли я сделать это с одним макросом? Вот что у меня так далеко. Все работает хорошо, за исключением того, что мне приходится закрывать Xlsx и снова открывать Xlsm вручную, а когда я делаю несколько десятков в день, это становится утомительным.

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

Попробуйте что-то вроде:

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