Как автоматически защитить все листы при закрытии книги Excel?

Обычно вы можете вручную защитить лист или всю книгу с помощью пароля, используя функцию Защитить лист или Защитить книгу в Excel. Но если вы хотите автоматически защитить все листы паролем при закрытии книги, что вы можете сделать? В этой статье мы покажем вам метод VBA для достижения этого.

Защитите все листы при закрытии книги Excel с помощью кода VBA

Защитите все листы при закрытии книги Excel с помощью кода VBA

Чтобы автоматически защитить все листы при закрытии книги, примените следующий код VBA.

1. В книге, где вы хотите защитить все листы при закрытии файла, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щелкните ThisWorkbook в левой панели, затем скопируйте приведенный ниже код VBA в окно Код. См. скриншот:

Код VBA: Защитите все листы при закрытии книги

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

Советы:

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

3. Затем нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

После выполнения вышеуказанного шага все листы или указанный лист будут автоматически защищены при закрытии книги.

Примечания:

Связанные статьи:

• Как использовать выпадающий список в защищенном листе в Excel?
• Как заблокировать определенные ячейки без защиты всего листа в Excel?
• Как скрыть формулу, но отобразить результат без защиты листа в Excel?