Hoe automatisch alle werkbladen beveiligen bij het sluiten van de Excel-werkmap?
Normaal gesproken kunt u een werkblad of de hele werkmap handmatig met een wachtwoord beveiligen met de functie Blad beveiligen of Werkmap beveiligen in Excel. Maar als u alle werkbladen automatisch met een wachtwoord wilt beveiligen bij het sluiten van de werkmap, wat kunt u dan doen? Dit artikel laat je een VBA-methode zien om dit te bereiken.
Bescherm alle werkbladen bij het sluiten van de Excel-werkmap met VBA-code
Bescherm alle werkbladen bij het sluiten van de Excel-werkmap met VBA-code
Pas de volgende VBA-code toe om automatisch alle werkbladen te beschermen bij het sluiten van de werkmap.
1. In de werkmap die u alle werkbladen wilt beschermen bij het sluiten van het bestand, drukt u op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen dubbelklik op het Dit Werkboek in het linkerdeelvenster en kopieer vervolgens de VBA-code naar het codevenster. Zie screenshot:
VBA-code: bescherm 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 vervolgens op anders + Q -toetsen om het venster Microsoft Visual Basic for Applications te sluiten.
Na de bovenstaande stap worden alle werkbladen of het opgegeven werkblad automatisch beschermd bij het sluiten van de werkmap.
Opmerkingen:
Gerelateerde artikelen:
- Hoe gebruik ik de vervolgkeuzelijst in een beschermd werkblad in Excel?
- Hoe bepaalde cellen te vergrendelen zonder het hele werkblad in Excel te beschermen?
- Hoe de formule te verbergen maar het resultaat weer te geven zonder het werkblad in Excel te beschermen?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
