XLSX = "C:\Тест\Microsoft Excel Worksheet.xlsx"
PASS = 555

With CreateObject("Excel.Application") 
  .Workbooks.Open XLSX, 0, False, 5,, PASS
  .Visible = True
End With

Set objExcel=CreateObject("Excel.Application") 
  objExcel.Visible=False
  fileName = "Путь_к_Файлу\Название_файла_без_пробелов.xlsx"
  excelpwd="555"
Set oWorkbook=objExcel.Workbooks
Set myWkbook=objExcel.Workbooks.open (fileName,0,False,5,excelpwd,excelpwd)
  objExcel.DisplayAlerts=False
For Each wSheet in objExcel.Workbooks
  wSheet.SaveAs "Путь_к_Файлу\Название_файла_без_пробелов2.xlsx",,"",""
Next
  objExcel.Workbooks.Close
  objExcel.Quit
Set oWorkbook=Nothing
Set objExcel=Nothing