En Excel-makro til at gemme en projektmappe før lukning

Makroen præsenteret her er en glimrende måde at beskytte brugere mod utilsigtet at lukke deres fil, før de gemmer. Når den er implementeret, sikrer denne makro, at Excel automatisk gemmer projektmappen, før den lukkes.

Excel vil normalt advare brugere, der forsøger at lukke en ikke-gemt projektmappe, hvilket giver dem mulighed for at gemme, før de lukkes. Men mange brugere kan blæse forbi advarslen og utilsigtet klikke på Nej, hvilket beder Excel om at lukke uden at gemme. Med denne makro beskytter du dig mod dette ved automatisk at gemme før lukning.

Sådan fungerer makroen

Koden udløses af projektmappens BeforeClose-hændelse. Når du forsøger at lukke projektmappen, udløses denne hændelse og kører koden indeni. Kernen i koden er enkel - den spørger brugerne, om de vil lukke projektmappen. Makroen vurderer derefter, om brugeren har klikket på OK eller Annuller.

En Excel-makro til at gemme en projektmappe før lukning

Den besked, du ser, når du forsøger at lukke projektmappen.

Evalueringen foretages med en Select Case-erklæring. Select Case-sætningen er et alternativ til If-Then-Else-sætningen, som giver dig mulighed for at udføre tilstandstjek i dine makroer. Den grundlæggende konstruktion af en Select Case-erklæring er enkel:

Vælg Sag 
Sagen er = 
       
Sagen er=
       
Sagen er=
       
Afslut Vælg

Med en Select Case-erklæring kan du udføre mange betingede kontroller. I dette tilfælde tjekker du blot for OK eller Annuller. Tag et kig på koden:

Privat underarbejdsbog_BeforeClose(Annuller som boolesk)
Trin 1: Aktiver meddelelsesboksen og start kontrollen
    Vælg Case MsgBox("Gem og luk?", vbOKCancel)
Trin 2: Annuller knappen trykket, så annuller lukningen
    Sagen er = vbCancel
    Annuller = Sandt
Trin 3: OK-knappen trykket, så gem projektmappen og luk
    Case Is = vbOK
    ActiveWorkbook.Save
'Trin 4: Luk din Select Case-erklæring
Afslut Vælg
Slut Sub

I trin 1 aktiverer du meddelelsesboksen som tilstandskontrol for Select Case-erklæringen. Du bruger argumentet vbOKCancel for at sikre, at knapperne OK og Cancel vises som valg.

I trin 2, hvis brugeren klikkede på Annuller i meddelelsesboksen, fortæller makroen Excel om at annullere Workbook_Close-hændelsen ved at overføre True til Annuller Boolean.

Hvis brugeren klikkede på knappen OK i meddelelsesboksen, træder trin 3 i kraft. Her beder du Excel om at gemme projektmappen. Og fordi du ikke har indstillet Annuller Boolean til True, fortsætter Excel med afslutningen.

I trin 4 lukker du blot Select Case-erklæringen. Hver gang du instansierer en Select-sag, skal du lukke den ud med en tilsvarende End Select.

Sådan bruger du makroen

For at implementere denne makro skal du kopiere og indsætte den i vinduet Workbook_BeforeClose begivenhedskode. Hvis du placerer makroen der, kan den køre hver gang du prøver at lukke projektmappen:

Aktiver Visual Basic Editor ved at trykke på Alt+F11.

Find dit projekt-/projektmappenavn i projektvinduet og klik på plustegnet ved siden af ​​det for at se alle arkene.

Klik på ThisWorkbook.

På rullelisten Begivenhed skal du vælge begivenheden Før Luk.

Indtast eller indsæt koden i det nyoprettede modul.

En Excel-makro til at gemme en projektmappe før lukning

Indtast din kode i begivenheden Workbook BeforeClose.


Sådan blokerer du Microsoft Word fra at åbne filer i skrivebeskyttet tilstand på Windows

Sådan blokerer du Microsoft Word fra at åbne filer i skrivebeskyttet tilstand på Windows

Sådan blokerer du Microsoft Word fra at åbne filer i skrivebeskyttet tilstand på Windows Microsoft Word åbner filer i skrivebeskyttet tilstand, hvilket gør det umuligt at redigere det? Bare rolig, metoderne er nedenfor

Sådan rettes forkert udskrivning af Microsoft Word-dokumenter

Sådan rettes forkert udskrivning af Microsoft Word-dokumenter

Sådan rettes fejl ved udskrivning af forkerte Microsoft Word-dokumenter Fejl ved udskrivning af Word-dokumenter med ændrede skrifttyper, rodede afsnit, manglende tekst eller tabt indhold er ret almindelige. Men lad være

Slet pen- og highlighter-tegninger på dine PowerPoint-dias

Slet pen- og highlighter-tegninger på dine PowerPoint-dias

Hvis du har brugt pennen eller highlighteren til at tegne på dine PowerPoint-dias under en præsentation, kan du gemme tegningerne til næste præsentation eller slette dem, så næste gang du viser den, starter du med rene PowerPoint-dias. Følg disse instruktioner for at slette pen- og highlighter-tegninger: Sletning af linjer en ved […]

Indhold af stilbibliotek i SharePoint 2010

Indhold af stilbibliotek i SharePoint 2010

Style-biblioteket indeholder CSS-filer, Extensible Stylesheet Language-filer (XSL) og billeder, der bruges af foruddefinerede mastersider, sidelayouts og kontrolelementer i SharePoint 2010. For at finde CSS-filer i Style-biblioteket på et udgivelsessted: Vælg Site Actions→ View Alt webstedsindhold. Indholdet af webstedet vises. Style-biblioteket ligger i […]

Formater tal i tusinder og millioner i Excel-rapporter

Formater tal i tusinder og millioner i Excel-rapporter

Overvæld ikke dit publikum med gigantiske tal. I Microsoft Excel kan du forbedre læsbarheden af ​​dine dashboards og rapporter ved at formatere dine tal, så de vises i tusinder eller millioner.

Sådan deler og følger du SharePoint-websteder

Sådan deler og følger du SharePoint-websteder

Lær, hvordan du bruger SharePoints sociale netværksværktøjer, der lader enkeltpersoner og grupper kommunikere, samarbejde, dele og forbinde.

Sådan konverteres datoer til julianske formater i Excel

Sådan konverteres datoer til julianske formater i Excel

Julianske datoer bruges ofte i produktionsmiljøer som et tidsstempel og hurtig reference for et batchnummer. Denne type datokodning giver detailhandlere, forbrugere og serviceagenter mulighed for at identificere, hvornår et produkt blev fremstillet, og dermed produktets alder. Julianske datoer bruges også i programmering, militæret og astronomi. Forskellige […]

Sådan opretter du en Access Web App

Sådan opretter du en Access Web App

Du kan oprette en webapp i Access 2016. Så hvad er en webapp overhovedet? Nå, web betyder, at det er online, og app er kun en forkortelse for "applikation". En Custom Web App er en online databaseapplikation, der tilgås fra skyen ved hjælp af en browser. Du bygger og vedligeholder webappen i desktopversionen […]

Hurtig startlinje i SharePoint 2010

Hurtig startlinje i SharePoint 2010

De fleste sider i SharePoint 2010 viser en liste over navigationslinks på linjen Hurtig start langs venstre side af siden. Hurtig startlinjen viser links til fremhævet webstedsindhold såsom lister, biblioteker, websteder og udgivelsessider. Hurtigstartlinjen indeholder to meget vigtige links: Linket Alt webstedsindhold: […]

Hvad betyder Solver-fejlmeddelelserne i Excel?

Hvad betyder Solver-fejlmeddelelserne i Excel?

Ved simple problemer finder Solver i Excel som regel hurtigt de optimale Solver-variableværdier for objektivfunktionen. Men i nogle tilfælde har Solver problemer med at finde de Solver-variableværdier, der optimerer objektivfunktionen. I disse tilfælde viser Solver typisk en meddelelse eller en fejlmeddelelse, der beskriver eller diskuterer det problem, der […]