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:
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:
Relaterede artikler:
- Hvordan bruges rullelisten i et beskyttet regneark i Excel?
- Hvordan låses angivne celler uden at beskytte hele regnearket i Excel?
- Hvordan skjules formel, men viser resultatet uden at beskytte regneark i Excel?
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super Formula Bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2019 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60-dages pengene tilbage garanti.

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!

You are guest
or post as a guest, but your post won't be published automatically.
Be the first to comment.