Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

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:


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.
kte-fane 201905

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!
officetab bund
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.