Макросы на снятие и установку защиты паролей

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макросы на снятие и установку защиты паролей (Макросы на снятие и установку защиты паролей)

Макросы на снятие и установку защиты паролей

Janis

Дата: Понедельник, 08.10.2012, 13:50 | Сообщение № 1

Группа: Гости

Где здесь ошибка, почему код неразрешает пользоваться группировкой (символы плюс-минус для сворачивания-разворачивания строк и столбцов) на защищенном листе???

[vba]

Code

Private Sub Workbook_Open()
Dim ProtectAllSheets()
Dim MyPassWord As String
Dim wsh As Worksheet
MyPassWord = "123456"
For Each wsh In ThisWorkbook.Worksheets
EnableOutlining = True
wsh.Protect Password:=MyPassWord, _
DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, UserInterfaceOnly:=True
Next
End Sub

[/vba]

Ответить

Serge_007

Дата: Понедельник, 08.10.2012, 14:09 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Janis)

почему код не разрешает пользоваться группировкой на защищенном листе???

А почему он должен разрешать?
При включении защиты листа не работает группировка

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Janis

Дата: Понедельник, 08.10.2012, 14:25 | Сообщение № 3

Группа: Гости

Serge_007,

В рабочей книге, каждый лист имеет свой номер, а на листе вводятся данные на каждый месяц, и чтоб не было неразберихи, каждый месяц сгруппирован по неделям. А защита необходима на формулы.