Indholdsfortegnelse:
- Sådan virker makroen
- For at implementere denne makro skal du kopiere og indsætte den i Workbook_BeforeClose-begivenhedskodevinduet. Placeringen af makroen gør det muligt at køre hver gang du forsøger at lukke projektmappen:
Video: How To Password Protect Workbook | Microsoft Excel 2016 Tutorial | The Teacher 2024
Den makro, der præsenteres her, er en glimrende måde at beskytte brugerne på ved uheld at lukke deres fil, før de gemmes. Når den implementeres, sikrer denne makro, at Excel automatisk gemmer projektmappen, inden den lukkes.
Excel vil normalt advare brugere, der forsøger at lukke en ubesvaret arbejdsbog, hvilket giver dem mulighed for at gemme, før de lukkes. Imidlertid kan mange brugere blæse forbi advarslen og ved et uheld klikke No, fortæller Excel at lukke uden at gemme. Med denne makro beskytter du mod dette ved automatisk at gemme, før du lukker.
Sådan virker makroen
Koden udløses af arbejdsbogen før Close-begivenheden. Når du forsøger at lukke projektmappen, brænder denne begivenhed, kører koden indenfor. Kernen i koden er enkel - det spørger brugerne, om de vil lukke projektmappen. Makroen vurderer derefter, om brugeren har klikket på OK eller Annuller.
Evalueringen sker med en Select Case-sætning. Select Case-erklæringen er et alternativ til If-Then-Else-sætningen, så du kan udføre tilstandskontrol i dine makroer. Grundkonstruktionen af en Select Case-erklæring er enkel:
Vælg Case Case Er = Case Is = Case Is = End Select
Med en Select Case-sætning kan du udføre mange betingede checks. I dette tilfælde søger du simpelthen efter OK eller Annuller. Se koden:
I trin 1 aktiverer du meddelelsesboksen som tilstandskontrollen for Select Case-sætningen. Du bruger vbOKCancel argument for at sikre, at OK og Annuller knapperne vises som valg.Hvis brugeren klikker på Cancel i meddelelsesboksen, fortæller makroen Excel for at annullere Workbook_Close-arrangementet ved at sende True til Cancel Boolean.
Hvis brugeren klikker på OK-knappen i meddelelsesboksen, træder Trin 3 i kraft. Her fortæller du Excel for at gemme projektmappen. Og fordi du ikke har indstillet Annuller Boolean til True, fortsætter Excel med Luk.
I trin 4 lukker du blot Select Case-sætningen. Hver gang du instantierer et Select-tilfælde, skal du lukke det ud med et tilsvarende slutvalg.
Sådan bruger du makroen
For at implementere denne makro skal du kopiere og indsætte den i Workbook_BeforeClose-begivenhedskodevinduet. Placeringen af makroen gør det muligt at køre hver gang du forsøger at lukke projektmappen:
Aktiver Visual Basic Editor ved at trykke på Alt + F11.
-
I projektvinduet skal du finde dit projekt / projektmappe og klikke på plustegnet ved siden af det for at se alle arkene.
-
Klik på ThisWorkbook.
-
Vælg begivenheden BeforeClose i rullemenuen Begivenhed.
-
Skriv eller indsæt koden i det nyoprettede modul.
-
Indtast din kode i Workbook BeforeClose-begivenheden.