Hoe alle werkbladen automatisch te beveiligen bij het sluiten van een Excel-werkboek?

Normaal gesproken kunt u handmatig een werkblad of het hele werkboek beveiligen met een wachtwoord via de functie Werkblad Beveiligen of Werkboek Beveiligen in Excel. Maar als u alle werkbladen automatisch met een wachtwoord wilt beveiligen bij het sluiten van het werkboek, wat kunt u dan doen? Dit artikel laat u een VBA-methode zien om dit te bereiken.

Beveilig alle werkbladen bij het sluiten van het Excel-werkboek met VBA-code

Beveilig alle werkbladen bij het sluiten van het Excel-werkboek met VBA-code

Om automatisch alle werkbladen te beveiligen bij het sluiten van een werkboek, past u de volgende VBA-code toe.

1. Druk in het werkboek waarin u alle werkbladen wilt beveiligen bij het sluiten van het bestand op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Dubbelklik in het Microsoft Visual Basic for Applications-venster op ThisWorkbook in het linkerpaneel en kopieer vervolgens de onderstaande VBA-code naar het Code-venster. Zie screenshot:

VBA-code: Beveilig alle werkbladen bij het sluiten van het werkboek

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. Druk vervolgens op de toetsen Alt + Q om het Microsoft Visual Basic for Applications-venster te sluiten.

Na de bovenstaande stap worden alle werkbladen of het opgegeven werkblad automatisch beveiligd bij het sluiten van het werkboek.

Opmerkingen:

Gerelateerde artikelen:

• Hoe een vervolgkeuzelijst te gebruiken in een beveiligd werkblad in Excel?
• Hoe specifieke cellen te vergrendelen zonder het hele werkblad te beveiligen in Excel?
• Hoe formules te verbergen maar het resultaat weer te geven zonder het werkblad te beveiligen in Excel?