Halo allemaal,
Ik wil m.b.v. het kruisje rechts boven excel afsluiten zonder de vraag om geopende document op te slaan. Ik heb hierbij de volgende code staan in This Workbook. Maar het werkt niet, ik krijg de vraag niet
Code:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_BeforeClose()
Application.ScreenUpdating = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
Application.ScreenUpdating = False
Application.Quit
End Sub
Ik wil m.b.v. het kruisje rechts boven excel afsluiten zonder de vraag om geopende document op te slaan. Ik heb hierbij de volgende code staan in This Workbook. Maar het werkt niet, ik krijg de vraag niet
Code:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_BeforeClose()
Application.ScreenUpdating = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
Application.ScreenUpdating = False
Application.Quit
End Sub