Закрытие окна Excel

Дата: Четверг, 25.04.2019, 08:23 | Сообщение № 1

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

Ребята! Помогите, пожалуйста, закрыть окно Excel после срабатывания UserForm.

К сообщению приложен файл: 0846108.xlsm (43.8 Kb)

RAN

Дата: Четверг, 25.04.2019, 08:52 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

Private Sub ДА_Click()
    Unload Me
    CanClose = True: NoEvents = True
    ThisWorkbook.Save 'Close savechanges:=True
    Application.Quit
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Дата: Четверг, 25.04.2019, 09:00 | Сообщение № 3

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

RAN, после подтверждения завершения работы закрывается форма, а окно программы закрывается только после закрытия. Можно ли реализовать полное закрытие программы после подтверждения завершения?

RAN

Дата: Четверг, 25.04.2019, 11:17 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Не знаю.
У меня закрывается Excel.

Быть или не быть, вот в чем загвоздка!

Дата: Четверг, 25.04.2019, 14:00 | Сообщение № 5

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

Может быть такое, что какой-то компонент VBA не задействован?

Дата: Четверг, 25.04.2019, 14:55 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

как то сумбурно, вы хотите чтобы сначала закрылось приложение, а затем форма?
или у вас приложение просто не закрывается по команде VBA?

Благими намерениями выстелена дорога в АД.

Дата: Четверг, 25.04.2019, 15:11 | Сообщение № 7

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

K-SerJC, Не силен в макросах. В книге имеются ячейки, которые заполняются пользователем, часть листа защищена от изменения. Также стоит запрет на пересохранение книги. При попытке закрыть файл появляется UserForm. При подтверждении выхода закрывается форма и окно Excel.

Дата: Четверг, 25.04.2019, 16:10 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

Цитата Starbirst, 25.04.2019 в 15:11, в сообщении № 7 ()

K-SerJC, Не силен в макросах.

так и я вас не про макрос спросил
что вы хотите?
результат работы макроса какой должен быть?
код в посте №2 закрывает форму сохраняет книгу и закрывает приложение excel

Благими намерениями выстелена дорога в АД.

Дата: Четверг, 25.04.2019, 16:15 | Сообщение № 9

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

K-SerJC, почему-то код не закрывает окно Excel, а только выгружает UserForm после подтверждения завершения. При повторной попытке закрыть окно Excel закрывается без всяких запросов.

Сообщение отредактировал Starbirst - Пятница, 26.04.2019, 07:41

Дата: Пятница, 26.04.2019, 07:43 | Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

Цитата Starbirst, 25.04.2019 в 16:15, в сообщении № 9 ()

K-SerJC, почему-то код не закрывает окно Excel, а только выгружает UserdForm после подтверждения завершения. При повторной попытке закрыть окно Excel закрывается без всяких запросов.

потому что он выполняет событие beforSave

первый раз при закрытии формы, возврат на строку end if
затем при закрытии уже установлен флаг noevents, выход из процедуры без отмены закрывает приложение

так работает?

К сообщению приложен файл: Starbirst.xlsm (24.5 Kb)

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Пятница, 26.04.2019, 08:17

Дата: Пятница, 26.04.2019, 12:27 | Сообщение № 11

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

K-SerJC, работает, но стоит только внести изменения в файле, при выходе после UserForm появляется стандартное диалоговое окно.

Сообщение отредактировал Starbirst - Пятница, 26.04.2019, 12:44

RAN

Дата: Пятница, 26.04.2019, 14:19 | Сообщение № 12

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

якщо ви, мама, не випендривалась, батька би не застрелися
[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean) '
    If MsgBox("Уверены, что хотите завершить работу?" & vbLf & _
              "ВНИМАНИЕ! Произведенные изменения & vblf & сохраняются автоматически!", _
              vbYesNo + vbQuestion + vbDefaultButton2, "ЗАВЕРШЕНИЕ РАБОТЫ") = vbNo Then Cancel = True: Exit Sub
    Me.Save
    Application.Quit
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not SaveAsUI Then Exit Sub
End Sub

[/vba]

К сообщению приложен файл: 0846108-3-.xlsm (23.3 Kb)

Быть или не быть, вот в чем загвоздка!

Дата: Пятница, 26.04.2019, 15:08 | Сообщение № 13

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

Цитата Starbirst, 26.04.2019 в 12:27, в сообщении № 11 ()

при выходе после UserForm появляется стандартное диалоговое окно.

а так?
[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean) '
    If NoEvents Then Exit Sub
        'Cancel = Not CanClose
    If Not CanClose Then
        ThisWorkbook.Sheets("Лист").Activate
        Выход.Show
    If CanClose Then
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.Quit
    Else: Cancel = True
    End If
    End If
End Sub

[/vba]

К сообщению приложен файл: 5171391.xlsm (24.8 Kb)

Благими намерениями выстелена дорога в АД.

Дата: Воскресенье, 28.04.2019, 08:10 | Сообщение № 14

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

K-SerJC, КРУТО! Огромная Вам благодарность respect