How to save and close active workbook without prompt by a Command Button in Excel?
Are you fed up with the saving prompt when closing a workbook? Actually, you can save and close an active workbook without any prompt by just clicking on a Command Button. Please try the method in this tutorial.
Excel Productivity Tools
Office Tab: Bring powerful tabs to Office (include Excel), just like Chrome, Safari, Firefox and Internet Explorer. Save you half the time, and reduce thousands of mouse clicks for you. 30-day Unlimited Free Trial
Kutools for Excel: Save 70% of your time and solve 80% Excel problems for you. 300+ advanced features designed for 1500+ work scenario, make Excel much easy and increase productivity immediately.60-day Unlimited Free Trial
Please do as follows to save and close an active workbook without prompt by a Command Button in Excel.
1. Click Developer > Insert > Command Button (ActiveX Control), then draw a Command Button in your worksheet. See screenshot:
2. Right click the Command Button, and click View Code from the right-clicking menu.
3. Then the Microsoft Visual Basic for Applications window pops up, please replace the original code in the Code window with below VBA script.
VBA code: Save and close workbook by Command Button
Private Sub CommandButton1_Click() Application.Quit ThisWorkbook.Save End Sub
Note: In the code, CommandButton1 is the name of your inserted Command Button.
4. Press Alt + Q keys simultaneously to quit the Microsoft Visual Basic for Applications window.
5. Turn off the Design Mode under the Developer tab.
From now on, when clicking the Command Button, the active workbook will be saved and closed automatically without prompt.
- How to always floating a Command Button on worksheet in Excel?
- How to update or insert (current) date and time by a Command Button in Excel?
- How to use a Command Button to change a specified cell value in Excel?
- How to create a Command Button to copy and paste data in Excel?
- How to use Command Button to save active worksheet as PDF file in Excel?
- How to insert a blank new row automatically by Command Button in Excel?