Работа макроса на защищенном листе

Дата: Пятница, 16.03.2018, 13:02 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

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

Замечаний: 0% ±

Excel 2016

есть файл с макросом на листе
отформатировал ячейки - разрешив в них вносить данные при защищенном листе
защитил лист

Макрос выдает ошибку. Поискал в инете решения - нашел пару. Не помогли. В чем я ошибаюсь.

[vba]

Код

Private Sub Workbook_Open()

    Dim Sh As Worksheet, i As Integer
    For i = 1 To Sheets.Count
        With Sheets(i)
            .Unprotect Password (123)
            .Protect Scenarios:=True, UserInterfaceOnly:=True
        End With
    Next

End Sub

[/vba]

Все равно выдает ошибку. Помогите разобраться. У меня в файле все листы будут защищены, с отдельных ячеек на листах будут сняты защиты. Макросы будут идентичны на каждом листе

К сообщению приложен файл: _8908960-1-.xlsm (22.3 Kb)

Дата: Пятница, 16.03.2018, 13:28 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 80

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

Замечаний: 0% ±

Excel 2010

mitox, добрый день.

[vba]

Код

Private Sub Workbook_Open()

    Dim Sh As Worksheet, i As Integer
    For i = 1 To Sheets.Count
        With Sheets(i)
            .Unprotect "123"
            .Protect Password:="123", Scenarios:=True, UserInterfaceOnly:=True
        End With
    Next

End Sub

[/vba]

К сообщению приложен файл: 5610276.xlsm (22.0 Kb)

Сообщение отредактировал Mikael - Пятница, 16.03.2018, 13:36

Дата: Пятница, 16.03.2018, 15:09 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

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

Замечаний: 0% ±

Excel 2016

Спасибо. Я и сам затупил - макрос то срабатывает после открытия файла? Я прав?

Дата: Пятница, 16.03.2018, 15:20 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 80

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

Замечаний: 0% ±

Excel 2010

Да, это обработчик события открытие книги.
Но ошибка вылетала из-за вот этой строчки
[vba]

Код

.Unprotect Password (123)

[/vba]
Правильно будет так:
[vba]

Код

.Unprotect Password:="123"

[/vba]
или как у меня.
Так же, после снятия защиты, Вы ставите защиту, но без пароля, поэтому я добавил в следующую строчку еще и пароль.

Сообщение отредактировал Mikael - Пятница, 16.03.2018, 15:39

Дата: Пятница, 23.03.2018, 06:32 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

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

Замечаний: 0% ±

Excel 2016

Подскажите что в коде нужно дописать чтобы макрос менял цвета ячеек на защищенном листе
[vba]

Код

Private Sub Workbook_Open()

    Dim Sh As Worksheet, i As Integer
    For i = 1 To Sheets.Count
        With Sheets(i)
            .Unprotect "пароль"
            .EnableOutlining = True
            .Protect Password:="пароль", Scenarios:=True, UserInterfaceOnly:=True
        End With
    Next

End Sub

[/vba]

Дата: Пятница, 23.03.2018, 10:41 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 80

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

Замечаний: 0% ±

Excel 2010

Цитата mitox, 23.03.2018 в 06:32, в сообщении № 5 ()

что в коде нужно дописать чтобы макрос менял цвета ячеек

Нужно написать код который будет менять цвета ячеек.
[vba]

Код

Range("a1:b2").Interior.Color = RGB(0, 255, 0)

[/vba]
Какие ячейки вы хотите менять при открытии книги?

Дата: Пятница, 23.03.2018, 11:40 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

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

Замечаний: 0% ±

Excel 2016

Код который меняет цвет имеется и другой.
А проблему снял добавив в строку
[vba]

Код

,AllowFormattingCells:=True

[/vba]

Дата: Пятница, 23.03.2018, 14:36 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 80

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

Замечаний: 0% ±

Excel 2010

Цитата mitox, 23.03.2018 в 11:40, в сообщении № 7 ()

Код который меняет цвет имеется и другой.

Тогда не понимаю в чем был Ваш вопрос.
Для того чтобы процедура могла менять цвет ячеек достаточно параметра UserInterfaceOnly:=True
Параметр AllowFormattingCells:=True нужен чтобы пользователь мог менять цвет заливки/шрифта.

Цитата mitox, 23.03.2018 в 11:40, в сообщении № 7 ()

А проблему снял

Рад, что у Вас все получилось.