The following VBScript code opens the Excel file ("%ExcelFile%"), unhides all the available worksheets, and then saves and closes the Excel:


Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("%ExcelFile%")
objExcel.Application.Visible = True

For i=1 To objWorkbook.Sheets.Count
    objWorkbook.Sheets(i).Visible = True
Next

objWorkbook.Save
objWorkbook.Close SaveChanges = True