"Прыжки" курсора при снятии защиты листа

[7in]

Всем привет.

При загрузке книги хочу, чтобы на всех листах, если они защищены (или если будут защищены), можно было использовать группировку.

Делаю так:

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

Т.е. если лист защищён, он разблокируется, затем защищается и снова разблокируется, если изначально не был защищён.

Проблема в том, что после снятия защиты (неважно – программно или вручную) я могу выделить любую ячейку мышью, однако курсор (при перемещении стрелками) прыгает только по тем ячейкам, у которых опция "Защищаемая ячейка" сброшена. Ещё раз: это происходит даже после отключения защиты!

Как от этого глюка избавиться?

[7in]

Решил:

  Set Sheet = Me.ActiveSheet
  Sheets("Настройки").Activate
  Sheet.Activate

Оказывается, достаточно переключиться на другой лист и обратно...