Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=414425&view=findpost&p=3793751 Fri, 22 Mar 2019 10:30:13 +0000 "Прыжки" курсора при снятии защиты листа https://forum.sources.ru/index.php?showtopic=414425&view=findpost&p=3793751
      Set Sheet = Me.ActiveSheet
      Sheets("Настройки").Activate
      Sheet.Activate

Оказывается, достаточно переключиться на другой лист и обратно...]]> Jin X VB for Application https://forum.sources.ru/index.php?showtopic=414425&view=findpost&p=3793645 Thu, 21 Mar 2019 08:45:48 +0000 "Прыжки" курсора при снятии защиты листа https://forum.sources.ru/index.php?showtopic=414425&view=findpost&p=3793645
При загрузке книги хочу, чтобы на всех листах, если они защищены (или если будут защищены), можно было использовать группировку.

Делаю так:
    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

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

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

Как от этого глюка избавиться?]]> Jin X VB for Application