Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Закрытие рабочей книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Закрытие рабочей книги (Необходимо закртыть файл exel макросом с сохранением)
Закрытие рабочей книги
A_3485 Дата: Вторник, 28.08.2012, 23:46 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 40% ±

2007
Всем доброго времен суток!
Помогите пожалуйста разобраться. У меня есть код:

[vba]
Code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
      ThisWorkbook.Save
         if Sheets("Лист1").Cells(1,1) = "" Then Msgbox "Нужные параметры не добавлены!"
end sub
[/vba]

Можно ли сделать так, чтобы после сообщения Msgbox появилось диалоговое окно о сохранении файла или нет,
и в случае если нажимается кнопка нет, или отмена рабочая книга осталась бы открытой.
 
Ответить
СообщениеВсем доброго времен суток!
Помогите пожалуйста разобраться. У меня есть код:

[vba]
Code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
      ThisWorkbook.Save
         if Sheets("Лист1").Cells(1,1) = "" Then Msgbox "Нужные параметры не добавлены!"
end sub
[/vba]

Можно ли сделать так, чтобы после сообщения Msgbox появилось диалоговое окно о сохранении файла или нет,
и в случае если нажимается кнопка нет, или отмена рабочая книга осталась бы открытой.
Автор - A_3485
Дата добавления - 28.08.2012 в 23:46
DJ_Marker_MC Дата: Среда, 29.08.2012, 00:49 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
а может попробовать так?

[vba]
Code
Sub Workbook_BeforeClose(Cancel As Boolean)
      ThisWorkbook.Save
          If Sheets("Лист1").Cells(1, 1) = "" Then
          Cells(1, 1).Value = InputBox("Введите данные")
          End If
      ThisWorkbook.Save
End Sub
[/vba]
 
Ответить
Сообщениеа может попробовать так?

[vba]
Code
Sub Workbook_BeforeClose(Cancel As Boolean)
      ThisWorkbook.Save
          If Sheets("Лист1").Cells(1, 1) = "" Then
          Cells(1, 1).Value = InputBox("Введите данные")
          End If
      ThisWorkbook.Save
End Sub
[/vba]
Автор - DJ_Marker_MC
Дата добавления - 29.08.2012 в 00:49
Hugo Дата: Среда, 29.08.2012, 01:11 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
[vba]
Code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Dim ans As Byte
     If Sheets("Лист1").Cells(1, 1) = "" Then ans = MsgBox("Нужные параметры не добавлены!" & vbNewLine & "Отменить закрытие?", vbYesNo Or vbExclamation Or vbDefaultButton1)
     If ans = 6 Then Cancel = True Else ThisWorkbook.Save
End Sub
[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
Сообщение[vba]
Code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Dim ans As Byte
     If Sheets("Лист1").Cells(1, 1) = "" Then ans = MsgBox("Нужные параметры не добавлены!" & vbNewLine & "Отменить закрытие?", vbYesNo Or vbExclamation Or vbDefaultButton1)
     If ans = 6 Then Cancel = True Else ThisWorkbook.Save
End Sub
[/vba]
Автор - Hugo
Дата добавления - 29.08.2012 в 01:11
A_3485 Дата: Среда, 29.08.2012, 12:33 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 40% ±

2007
Всем спасибо! Работает СУПЕР. УРААААА
 
Ответить
СообщениеВсем спасибо! Работает СУПЕР. УРААААА
Автор - A_3485
Дата добавления - 29.08.2012 в 12:33
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Закрытие рабочей книги (Необходимо закртыть файл exel макросом с сохранением)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!