Сохранение, закрыть Excel. Выключить ПК

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сохранение, закрыть Excel. Выключить ПК (Макросы/Sub)

IIe4kuH

Дата: Пятница, 08.07.2022, 19:17 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Приветствую ! Знающие люди выручайте. У меня есть работающий макрос. После того, как он закончит свою работу, нужно чтобы сохранился + закрылся Excel и принудительно выключился компьютер.
У кого есть наработки, поделитесь. И код нужно вставлять в конце уже существующего макроса, или создать новый в этом же файле ?

Ответить

ВладимирС

Дата: Понедельник, 11.07.2022, 12:45 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

2016

[vba]

Код

ActiveWorkbook.Save 'сохранить
ActiveWorkbook.Close' закрыть рабочую книгу

[/vba]
Как выключить не знаю, но можно попробовать:
[vba]

Код

Shell ("Shutdown -s")

[/vba]

Владимир

Сообщение отредактировал ВладимирС - Понедельник, 11.07.2022, 14:54

Ответить

boa

Дата: Понедельник, 11.07.2022, 18:28 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

Репутация: 167 ±

Замечаний: 0% ±

365

IIe4kuH,
[vba]

Код

Sub ShutdownComp()
'выключение/перезагрузка/смена пользователя
Dim CompName As String, objService As Object, objOS As Object
    CompName = "." 'точка - текущий компьютер; сюда можно подставить любое сетевое имя компьютера
    Set objService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" & CompName & "\root\CIMV2")
    For Each objOS In objService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
        Exit For
    Next
    'objOS.Reboot 'перезагрузка
    objOS.Shutdown 'выключение
    'objOS.Win32Shutdown 0 'Log Off
End Sub

[/vba]

Ответить

Сохранение, закрыть Excel. Выключить ПК (Макросы/Sub)

Страница 1 из 1
1