Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.16.137.232] |
|
Сообщ.
#1
,
|
|
|
Всем привет.
При загрузке книги хочу, чтобы на всех листах, если они защищены (или если будут защищены), можно было использовать группировку. Делаю так: Private Sub Workbook_Open() Dim Sheet As Object For Each Sheet In Me.Sheets ReProtectSheet Sheet Next Sheet End Sub Sub ReProtectSheet(Sheet As Worksheet) Dim Protected As Boolean Protected = Sheet.ProtectContents If Protected Then Sheet.Unprotect Sheet.EnableOutlining = True Sheet.Protect UserInterfaceOnly:=True If Not Protected And Sheet.Name <> "Настройки" Then Sheet.Unprotect End Sub Т.е. если лист защищён, он разблокируется, затем защищается и снова разблокируется, если изначально не был защищён. Проблема в том, что после снятия защиты (неважно – программно или вручную) я могу выделить любую ячейку мышью, однако курсор (при перемещении стрелками) прыгает только по тем ячейкам, у которых опция "Защищаемая ячейка" сброшена. Ещё раз: это происходит даже после отключения защиты! Как от этого глюка избавиться? |
Сообщ.
#2
,
|
|
|
Решил:
Set Sheet = Me.ActiveSheet Sheets("Настройки").Activate Sheet.Activate Оказывается, достаточно переключиться на другой лист и обратно... |