Gå til hovedindhold

Hvordan beskyttes alle regneark automatisk, når Excel-projektmappen lukkes?

Normalt kan du manuelt beskytte et regneark eller hele projektmappen med adgangskode med funktionen Beskyt ark eller Beskyt projektmappe i Excel. Men hvis du vil beskytte alle regneark automatisk med adgangskode, når projektmappen lukkes, hvad kan du gøre? Denne artikel viser dig en VBA-metode til at opnå det.

Beskyt alle regneark, når du lukker Excel-projektmappen med VBA-kode


Beskyt alle regneark, når du lukker Excel-projektmappen med VBA-kode

For at beskytte alle regneark automatisk, når du lukker projektmappen, skal du anvende følgende VBA-kode.

1. I projektmappen skal du beskytte alle regneark, når du lukker filen, skal du trykke på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer dobbeltklik på ThisWorkbook i venstre rude, og kopier derefter under VBA-kode til kodevinduet. Se skærmbillede:

VBA-kode: Beskyt alle regneark, når du lukker projektmappen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

Tips:

1) Angiv dit kodeord i koden i linjen xPsw = “”.
2) Hvis du bare vil automatisk beskytte et bestemt regneark, når du lukker projektmappen, kan nedenstående VBA-kode hjælpe dig.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Tryk derefter på andre + Q taster for at lukke vinduet Microsoft Visual Basic for Applications.

Efter ovenstående trin beskyttes alle regneark eller specificeret regneark automatisk, når du lukker projektmappen.

Noter:

1. Du skal gemme projektmappen som Excel-makroaktiveret projektmappefilformat.
2. Gå til det bestemte regneark, klik anmeldelse > Unprotect Sheet. Og skriv derefter den adgangskode, du har angivet i VBA-koden, for at fjerne beskyttelsen af ​​dette regneark.

Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations