Kako samodejno zaščititi vse delovne liste pri zapiranju Excelovega delovnega zvezka?

Običajno lahko delovni list ali celoten delovni zvezek ročno zaščitite z geslom s funkcijo Protect Sheet ali Protect Workbook v Excelu. Kaj pa lahko storite, če želite ob zapiranju delovnega zvezka vse delovne liste samodejno zaščititi z geslom? Ta članek vam bo prikazal metodo VBA, kako jo doseči.

Zaščitite vse delovne liste, ko zaprete Excelov delovni zvezek s kodo VBA

Zaščitite vse delovne liste, ko zaprete Excelov delovni zvezek s kodo VBA

Za samodejno zaščito vseh delovnih listov pri zapiranju delovnega zvezka uporabite naslednjo kodo VBA.

1. V delovnem zvezku, ki ga želite zapreti pri zapiranju datoteke, pritisnite na druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije dvokliknite okno Ta delovni zvezek v levem podoknu in nato pod kodo VBA kopirajte v okno Code. Oglejte si posnetek zaslona:

Koda VBA: Zaščitite vse delovne liste, ko zapirate delovni zvezek

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

nasveti:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Nato pritisnite druga + Q tipke za zapiranje okna Microsoft Visual Basic for Applications.

Po zgornjem koraku bodo vsi delovni ali določeni delovni listi samodejno zaščiteni, ko zaprete delovni zvezek.

Opombe:

Sorodni članki:

• Kako uporabiti spustni seznam na zaščitenem delovnem listu v Excelu?
• Kako zakleniti določene celice, ne da bi v Excelu zaščitili celoten delovni list?
• Kako skriti formulo, a prikazati rezultat brez zaščite delovnega lista v Excelu?