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

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

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

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

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

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

2. в Microsoft Visual Basic для приложений окно, дважды щелкните значок Эта рабочая тетрадь на левой панели, а затем скопируйте ниже код 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. Затем нажмите другой + Q клавиши, чтобы закрыть окно Microsoft Visual Basic для приложений.

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

Заметки:

Статьи по теме:

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