Как правильно заблокировать/разблокировать экран?

[eeigor]

Код Выделить Развернуть

Sub ScreenUpdatingOff()
With ThisComponent
.CurrentController.Frame.ContainerWindow.Enable = False
If Not .isActionLocked Then .AddActionLock
If Not .hasControllersLocked Then .lockControllers
End With
End Sub

Sub ScreenUpdatingOn()
With ThisComponent
If .hasControllersLocked Then .unlockControllers
If .isActionLocked Then .removeActionLock
.CurrentController.Frame.ContainerWindow.Enable = True
End With
End Sub

Есть ли в коде избыточность?
До сих пор я использовал два метода, lockControllers и unlockControllers, но полной блокировки, кажется, не было. Код выше не тестировал.

[mikekaganski]

Избыточности нет. Все три метода делают разные вещи.

[eeigor]

КМК, выполнять эту задачу (блокировки экрана) надо всем единообразно.
Метод lockControllers, помнится, допускал ввод данных на лист в процедуре, но блокировал некоторые функции (например, заполнение FillAuto)... Я не разобрался до конца.
Уже не помню, где подсмотрел этот код, но, очевидно, что автор понимал, что делал.

В общем, ищу аналог свойства Excel:
Application.ScreenUpdating = True|False

Михаил, каким будет вердикт?

[mikekaganski]

Я не помню деталей, что именно делает Application.ScreenUpdating. Кроме того, использование CurrentController.Frame.ContainerWindow.Enable я увидел впервые сегодня здесь

В любом случае код имеет смысл. Что касается нужности функции единообразной блокировки на время выполнения - я согласен, но это для начала можно было бы реализовать в рамках ScriptForge - кмк, иметь такое там было бы уже шагом вперёд.

[sokol92]

В общем, ищу аналог свойства Excel:

Я тоже ищу с момента знакомства с LO. На данный момент не нашел. Пока используются StatusIndicator и Infobar для просьбы пользователю дождаться завершения работы макроса и ничего не трогать.
Все методы, указанные в стартовом соообщении, разумеется, пробовались. lockControllers заметно снижает "мелькание" экрана. Манипуляции с окнами обычно заканчиваются на каком-то этапе или аварийным завершением, или неработоспособностью системы.
Для некоторых задач удается открыть документ/шаблон с опцией Hidden=True и в конце работы макроса сделать его видимым (или закрыть, если он в дальнейшем не нужен). Этот метод стабилен (если работает).
Михаил где-то писал, что поток выполнения макросов на Python блокирует пользовательский интерфейс - возможно, этот путь имеет перспективу.

Об Excel. Свойство Application.ScreenUpdating дает возможность блокировать показ изменений экрана пользователю. Как правило, применяется вместе со свойством StatusBar (или немодальными формами) для информирования пользователя о ходе выполнения макросов. Установка этого свойства в True само по себе не блокирует действия пользователя по, например, редактированию ячеек (хотя результаты своих действий он увидит после завершения работы макроса).

[eeigor]

Метод lockControllers, помнится, допускал ввод данных на лист в процедуре, но блокировал некоторые функции (например, заполнение FillAuto)... Я не разобрался до конца.

Должен оговориться: я перепутал блокировку с защитой листа. Всё вышесказанное относится к методу protect, который тоже явно "не дотягивает" до своего названия.