Dos macros de salida de EXCEL VBA fusionadas

Private Sub Workbook_BeforeClose(Cancelar como booleano)

Application.ScreenUpdating = False

Application.MenuBars(xlWorksheet).Reset

Application.DisplayFormulaBar = True

ActiveWindow.DisplayHeadings = True

Sheets("sheet3").RestoreToolBars

Worksheets("sheet1").Visible = 2

ThisWorkbook. Cerrar SaveChanges：=False

Fin Sub