Приватное Sub Workbook_Open ()
Тусклый ws как рабочий лист
Тусклое MyPassword как шнур
MyPassword = «abc»
Для каждого ws в ActiveWorkbook.Worksheets
ws. Защитите пароль: =MyPassword, UserInterfaceOnly: =True, содержание: =True
Затем
Подводная лодка конца
|