Макрос по кнопке закрыть

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

Макрос по кнопке закрыть (Формулы)

diivika

Дата: Понедельник, 03.02.2014, 13:41 | Сообщение № 1

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

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

Сообщений: 9

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

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

Всем добрый день.
Никак не могу найти, как задать выполнение макроса по кнопке закрыть, а именно нужно, чтобы при закрытии книги активным был первый лист (переход пользователь не видел) и книга закрывалась с сохранением без вопроса, но выводилось сообщение "Идет сохранение книги "Наименование книги".

Пишу такой код - не работает....

[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
ActiveWindow.Close
Sheets("Содержание").Select
Range("A4").SelectApplication.DisplayAlerts = False
ThisWorkbook.Save
End Sub

[/vba]

Сообщение отредактировал Serge_007 - Понедельник, 03.02.2014, 16:08

Ответить

Stormy

Дата: Понедельник, 03.02.2014, 13:51 | Сообщение № 2

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

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

Сообщений: 366

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

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

Excel 2010

[vba]

Код

ThisWorkbook.Close

[/vba] А это разве не надо писать после [vba]

Код

ThisWorkbook.Save

[/vba]

Место для рекламы.

Ответить

diivika

Дата: Понедельник, 03.02.2014, 14:32 | Сообщение № 3

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

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

Сообщений: 9

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

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

Не работает... хоть так, хоть так...

Ответить

Stormy

Дата: Понедельник, 03.02.2014, 15:29 | Сообщение № 4

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

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

Сообщений: 366

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

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

Excel 2010

[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
Sheets("Содержание").Select
MsgBox "Идет сохранение файла " & ThisWorkbook.Name
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

[/vba]
У меня так работает

Место для рекламы.

Ответить

KuklP

Дата: Понедельник, 03.02.2014, 20:03 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Кросс:
http://www.planetaexcel.ru/forum....f_fid=5

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Вторник, 04.02.2014, 06:29

Ответить

RAN

Дата: Понедельник, 03.02.2014, 20:52 | Сообщение № 6

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

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

Сообщений: 5660

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

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

2010

А самая бессмысленная строка
[vba]

Код

ActiveWorkbook.Saved = True

[/vba]
Сначала делаем вид, что книга сохранена, а затем ее сохраняем.

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

Ответить

SkyPro

Дата: Вторник, 04.02.2014, 12:21 | Сообщение № 7

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

Ранг: Старожил

Сообщений: 1206

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

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

2010

[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
     Sheets("Содержание").Activate
     ThisWorkbook.Save
     ThisWorkbook.Close False
Application.ScreenUpdating = True
     MsgBox "Идет сохранение файла " & ThisWorkbook.Name
End Sub

[/vba]

skypro1111@gmail.com

Ответить

Макрос по кнопке закрыть (Формулы)

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