Hoe beveilig ik automatisch alle werkbladen wanneer ik een Excel-werkboek sluit?
Normaal gesproken beveilig je handmatig een werkblad of de gehele werkmap met een wachtwoord via de functies *Werkblad beveiligen* of *Werkmap beveiligen* in Excel. Maar wat als je alle werkbladen automatisch met een wachtwoord wilt beveiligen zodra de werkmap wordt gesloten? In dit artikel beschrijven we een VBA-methode om dat voor elkaar te krijgen.
Beveilig alle werkbladen bij het sluiten van de Excel-werkboek met VBA-code
Beveilig alle werkbladen bij het sluiten van de Excel-werkboek met VBA-code
Om automatisch alle werkbladen te beveiligen wanneer u een werkmap sluit, past u de volgende VBA-code toe.
1. Druk in de werkmap waarvan u alle werkbladen wilt beveiligen bij het sluiten van het bestand op de Alt+F11-toetsen om het venster Microsoft Visual Basic for Applications te openen.
2. Dubbelklik in het venster Microsoft Visual Basic for Applications in het linkerdeelvenster op ThisWorkbook en plak vervolgens de onderstaande VBA-code in het codovenster. Zie schermafbeelding:
VBA-code: Beveilig alle werkbladen bij het sluiten van de werkmap
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 Sub3. Druk daarna op de Alt+Q-toetsen om het venster Microsoft Visual Basic for Applications te sluiten.
Na de bovenstaande stap worden alle werkbladen of het opgegeven werkblad automatisch beveiligd zodra de werkmap wordt gesloten.
Opmerkingen:
Beveilig snel meerdere of alle werkbladen tegelijk met een wachtwoord in Huidig werkboek |
De Werkblad beveiligen-functie van Kutools voor Excel helpt u eenvoudig meerdere of alle werkbladen tegelijk met een wachtwoord te beveiligen. Zie de onderstaande schermafbeelding:
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen |
Gerelateerde artikelen:
- Hoe gebruik ik een keuzelijst in een beveiligd werkblad in Excel?
- Hoe vergrendel ik specifieke cellen in Excel zonder het hele werkblad te beveiligen?
- Hoe verberg ik een formule in Excel terwijl het resultaat zichtbaar blijft, zonder het werkblad te beveiligen?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins