Как автоматично да защитите всички работни листове при затваряне на работната книга на 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?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!