Hoe het actieve werkboek op te slaan en te sluiten zonder prompt door een Command Button in Excel?

Bent u het beu om de opslagprompt te zien wanneer u een werkboek sluit? Eigenlijk kunt u een actief werkboek opslaan en sluiten zonder enige prompt door gewoon te klikken op een Command Button. Probeer de methode in deze tutorial.

Sla het actieve werkboek op en sluit het zonder prompt door een Command Button

Sla het actieve werkboek op en sluit het zonder prompt door een Command Button

Doe als volgt om een actief werkboek op te slaan en te sluiten zonder prompt door een Command Button in Excel.

1. Klik op Ontwikkelaar > Invoegen > Command Button (ActiveX Control), en teken vervolgens een Command Button in uw werkblad. Zie screenshot:

2. Klik met de rechtermuisknop op de Command Button, en klik op Weergave Code in het rechtsklikmenu.

3. Vervolgens verschijnt het venster Microsoft Visual Basic for Applications. Vervang de originele code in het Code-venster door onderstaand VBA-script.

VBA-code: Werkboek opslaan en sluiten met Command Button

Private Sub CommandButton1_Click()
    Application.Quit
    ThisWorkbook.Save
End Sub

Opmerking: In de code is CommandButton1 de naam van uw ingevoegde Command Button.

4. Druk gelijktijdig op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te verlaten.

5. Schakel de Ontwerpmodus uit onder het tabblad Ontwikkelaar.

Vanaf nu wordt bij het klikken op de Command Button het actieve werkboek automatisch opgeslagen en gesloten zonder prompt.

Gerelateerde artikelen:

• Hoe een Command Button altijd zwevend op een werkblad in Excel te houden?
• Hoe de (huidige) datum en tijd bij te werken of in te voegen met een Command Button in Excel?
• Hoe een Command Button te gebruiken om een specifieke celwaarde in Excel te wijzigen?
• Hoe een Command Button maken om gegevens te kopiëren en plakken in Excel?
• Hoe een Command Button te gebruiken om het actieve werkblad op te slaan als PDF-bestand in Excel?
• Hoe automatisch een nieuwe lege rij in te voegen met een Command Button in Excel?