Ett Excel-makro för att spara en arbetsbok innan du stänger

Makrot som presenteras här är ett utmärkt sätt att skydda användare från att oavsiktligt stänga sin fil innan de sparas. När det är implementerat säkerställer detta makro att Excel automatiskt sparar arbetsboken innan den stänger den.

Excel kommer normalt att varna användare som försöker stänga en osparad arbetsbok, vilket ger dem möjlighet att spara innan de stänger. Men många användare kan blåsa förbi varningen och oavsiktligt klicka på Nej, vilket säger åt Excel att stänga utan att spara. Med detta makro skyddar du dig mot detta genom att automatiskt spara innan du stänger.

Hur makrot fungerar

Koden utlöses av arbetsbokens BeforeClose-händelse. När du försöker stänga arbetsboken utlöses den här händelsen och kör koden inom. Kärnan i koden är enkel - den frågar användarna om de vill stänga arbetsboken. Makrot utvärderar sedan om användaren klickade på OK eller Avbryt.

Ett Excel-makro för att spara en arbetsbok innan du stänger

Meddelandet du ser när du försöker stänga arbetsboken.

Utvärderingen görs med ett Select Case-uttalande. Select Case-satsen är ett alternativ till If-Then-Else-satsen, som låter dig utföra tillståndskontroller i dina makron. Den grundläggande konstruktionen av en Select Case-sats är enkel:

Välj Fall 
Fallet är = 
       
Fallet är=
       
Fallet är=
       
Avsluta Välj

Med ett Select Case-uttalande kan du utföra många villkorskontroller. I det här fallet letar du helt enkelt efter OK eller Avbryt. Ta en titt på koden:

Privat underarbetsbok_BeforeClose(Avbryt som boolesk)
'Steg 1: Aktivera meddelanderutan och starta kontrollen
    Välj Case MsgBox("Spara och stäng?", vbOKCancel)
'Steg 2: Avbryt-knappen nedtryckt, så avbryt stängningen
    Case Is = vbCancel
    Avbryt = Sant
'Steg 3: OK-knappen nedtryckt, så spara arbetsboken och stäng
    Case Is = vbOK
    ActiveWorkbook.Save
'Steg 4: Stäng ditt Select Case-uttalande
Avsluta Välj
Avsluta Sub

I steg 1 aktiverar du meddelanderutan som villkorskontrollen för Select Case-satsen. Du använder argumentet vbOKCancel för att säkerställa att knapparna OK och Avbryt visas som val.

I steg 2, om användaren klickade på Avbryt i meddelanderutan, säger makrot till Excel att avbryta Workbook_Close-händelsen genom att skicka True till Cancel Boolean.

Om användaren klickade på OK-knappen i meddelanderutan träder steg 3 i kraft. Här ber du Excel att spara arbetsboken. Och eftersom du inte ställde in Cancel Boolean till True, fortsätter Excel med stängningen.

I steg 4 stänger du helt enkelt ut Select Case-satsen. Varje gång du instansierar ett Select Case måste du stänga det med ett motsvarande End Select.

Hur man använder makrot

För att implementera detta makro måste du kopiera och klistra in det i Workbook_BeforeClose-händelsekodfönstret. Genom att placera makrot där kan det köras varje gång du försöker stänga arbetsboken:

Aktivera Visual Basic Editor genom att trycka på Alt+F11.

I projektfönstret hittar du ditt projekt-/arbetsboksnamn och klickar på plustecknet bredvid för att se alla ark.

Klicka på ThisWorkbook.

I listrutan Händelse väljer du händelsen BeforeClose.

Skriv eller klistra in koden i den nyskapade modulen.

Ett Excel-makro för att spara en arbetsbok innan du stänger

Ange din kod i händelsen Workbook BeforeClose.

Leave a Comment

Hur man använder kommandona Gör om och upprepa i Word 2016

Hur man använder kommandona Gör om och upprepa i Word 2016

Lär dig att använda kommandona Gör om och Upprepa i Word 2016 för att effektivt hantera dina dokument. Dessa funktioner hjälper dig att enkelt ångra och återställa ändringar.

Hur man blockerar Microsoft Word från att öppna filer i skrivskyddat läge på Windows

Hur man blockerar Microsoft Word från att öppna filer i skrivskyddat läge på Windows

Hur man blockerar Microsoft Word från att öppna filer i skrivskyddat läge på Windows Microsoft Word öppnar filer i skrivskyddat läge, vilket gör det omöjligt att redigera dem? Oroa dig inte, metoderna finns nedan

Hur man åtgärdar felaktig utskrift av Microsoft Word-dokument

Hur man åtgärdar felaktig utskrift av Microsoft Word-dokument

Så här åtgärdar du fel vid utskrift av felaktiga Microsoft Word-dokument Fel vid utskrift av Word-dokument med ändrade teckensnitt, röriga stycken, saknad text eller förlorat innehåll är ganska vanligt. Men gör det inte

Radera ritningar med penna och överstrykningspenna på dina PowerPoint-bilder

Radera ritningar med penna och överstrykningspenna på dina PowerPoint-bilder

Om du har använt pennan eller överstrykningspennan för att rita på dina PowerPoint-bilder under en presentation, kan du spara ritningarna till nästa presentation eller radera dem så att nästa gång du visar den börjar du med rena PowerPoint-bilder. Följ dessa instruktioner för att radera ritningar med penna och överstrykningspenna: Radera linjer ett på […]

Stilbiblioteksinnehåll i SharePoint 2010

Stilbiblioteksinnehåll i SharePoint 2010

Stilbiblioteket innehåller CSS-filer, XSL-filer (Extensible Stylesheet Language) och bilder som används av fördefinierade mallsidor, sidlayouter och kontroller i SharePoint 2010. För att hitta CSS-filer i stilbiblioteket på en publiceringswebbplats: Välj Webbplatsåtgärder→Visa Allt webbplatsinnehåll. Innehållet på webbplatsen visas. Style-biblioteket ligger i […]

Formatera siffror i tusentals och miljoner i Excel-rapporter

Formatera siffror i tusentals och miljoner i Excel-rapporter

Överväldiga inte din publik med gigantiska siffror. I Microsoft Excel kan du förbättra läsbarheten för dina instrumentpaneler och rapporter genom att formatera dina siffror så att de visas i tusentals eller miljoner.

Hur man delar och följer SharePoint-webbplatser

Hur man delar och följer SharePoint-webbplatser

Lär dig hur du använder SharePoints sociala nätverksverktyg som låter individer och grupper kommunicera, samarbeta, dela och ansluta.

Hur man konverterar datum till Julian-format i Excel

Hur man konverterar datum till Julian-format i Excel

Julianska datum används ofta i tillverkningsmiljöer som en tidsstämpel och snabbreferens för ett batchnummer. Denna typ av datumkodning tillåter återförsäljare, konsumenter och serviceagenter att identifiera när en produkt tillverkades och därmed produktens ålder. Julianska datum används också i programmering, militären och astronomi. Annorlunda […]

Hur man skapar en Access Web App

Hur man skapar en Access Web App

Du kan skapa en webbapp i Access 2016. Så vad är en webbapp egentligen? Tja, webben betyder att den är online, och appen är bara en förkortning för "applikation". En anpassad webbapp är en onlinedatabasapplikation som nås från molnet med en webbläsare. Du bygger och underhåller webbappen i skrivbordsversionen […]

Snabbstartsfält i SharePoint 2010

Snabbstartsfält i SharePoint 2010

De flesta sidor i SharePoint 2010 visar en lista med navigeringslänkar i snabbstartsfältet till vänster på sidan. Snabbstartsfältet visar länkar till utvalt webbplatsinnehåll som listor, bibliotek, webbplatser och publiceringssidor. Snabbstartsfältet innehåller två mycket viktiga länkar: Länken Allt webbplatsinnehåll: […]