2019 - VBA. Выполнение макроса при блокировке ОС

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

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

С уважением, ваш призрачный админ, BigMac...

2019 - VBA. Выполнение макроса при блокировке ОС

drovosek1988

Новый участник

Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать

Добрый день!

Вопрос касается выполнения макроса, который копирует таблицу и отправляет её в телеграм при заблокированной операционной системе(ОС). При разблокированной ОС всё работает как надо.

Ранее макрос работал без проблем, однако после НГ, что- то изменилось и при блокировке ОС(WIN+L), при выполнении макроса стала вылезать ошибка (RUN TIME ERROR 1004) c описаниями:
https://radikal.host/i/JeCeUg
до этого тоже была 1004 ошибка но с описанием не верный метод Range.....
Когда разблокирую ОС и нажму Debug в окошке - подсвечивает строку CopyPicture:

Код:

Function Range_to_Picture(rng)
    Dim sName As String, wsTmpSh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With rng
     .CopyPicture
        Set wsTmpSh = ThisWorkbook.Sheets.Add
        sName = ActiveWorkbook.FullName & "_" & ActiveSheet.Name & "_Range"
        With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
            .ChartArea.Border.LineStyle = 0
            .Parent.Select
            .Paste
            .Export Filename:=sName & ".gif", FilterName:="GIF"
            .Parent.Delete
        End With
    End With
    wsTmpSh.Delete
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    Range_to_Picture = sName & ".gif"

End Function

Нашел похожую проблему:https://translated.turbopages.org/proxy_u....xceldev

Но не совсем понимаю, что надо сделать.
Плюс еще добавлю: Если я предварительно зайду удалённо на данный рабочий стол и потом выйду из него, то макрос будет работать при заблокированной ОС. Но если блокирую ОС сидя у ноутбука, то не работает.
Кто- то еще сталкивался с данной проблемой?
WIN10
Office 2019

Отправлено: 13:07, 30-01-2023