Indholdsfortegnelse:
Video: How to Protect A Workbook in Microsoft Excel 2016 Tutorial | The Teacher 2024
Nogle gange skal du sende din Excel-projektmappe ud i verden med bestemte beskyttede regneark. Hvis du opdager, at du konstant beskytter og beskytter ark uden at distribuere dine arbejdsbøger, kan makroen her hjælpe dig.
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. Makroen beskytter automatisk det specificerede ark med den givne adgangskode og gemmer derefter projektmappen:
Privat Sub Workbook_BeforeClose (Annuller som Boolean) 'Trin 1: Beskyt arket med et kodeord Sheets ("Sheet1"). Beskyt kodeord: = "RED" 'Trin 2: Gem arbejdsbogen ActiveWorkbook. Gem End Sub
I trin 1 angiver du eksplicit, hvilket ark der skal beskyttes - Sheet1, i dette tilfælde. Du giver også adgangskode argumentet, Password: = "RED", som definerer den adgangskode, der er nødvendig for at fjerne beskyttelsen.
Denne adgangskode argument er valgfri. Hvis du udelader det, vil arket stadig være beskyttet, men du behøver ikke et kodeord for at beskytte det.
Excel-adgangskoder er store bogstaver, så du vil være opmærksom på den nøjagtige adgangskode og kapitalisering, du bruger.
Trin 2 fortæller Excel for at gemme projektmappen. Hvis du ikke gemmer projektmappen, vil arkbeskyttelsen, du lige har anvendt, ikke være i kraft næste gang arbejdsbogen åbnes.
Sådan bruger du makroen
For at implementere denne makro skal du kopiere og indsætte den i vinduet Workbook_BeforeClose event code. 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, ændre arknavnet (hvis nødvendigt) og adgangskoden.
Indtast din kode i Workbook BeforeClose-begivenheden.
Bemærk, at du kan beskytte ekstra ark ved at tilføje tilføjelseserklæringer før Activeworkbook. Gem udsagn.