Кнопка с макросом на сохранение изменений и выход

Вход

Регистрация

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

= Мир MS Excel/Кнопка с макросом на сохранение изменений и выход - Мир MS Excel

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

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

Кнопка с макросом на сохранение изменений и выход (Нужно отредактировать макрос)

Кнопка с макросом на сохранение изменений и выход

maroon333

Дата: Четверг, 10.11.2011, 10:57 | Сообщение № 1

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

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

Сообщений: 31

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

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

Есть макрос

[vba]

Код

Sub Close_1()
ActiveWindow.SelectedSheets.Visible = False
With Application
.EnableEvents = False
.DisplayAlerts = False
Dim iBook As Workbook
For Each iBook In .Workbooks
iBook.Save
Next
.Quit
End With
End Sub

[/vba]

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

Ответить

VictorM

Дата: Четверг, 10.11.2011, 11:12 | Сообщение № 2

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

Ранг: Форумчанин

Сообщений: 161

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

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

Что-то наворочано у вас
[vba]

Код

Sub tt()'закроет активную книгу
ActiveWorkbook.Close 'saveChanges:=False 'можно с сохранением или нет
End Sub
Sub tt_2()'Закроет книгу из которой запущен
ThisWorkbook.Close saveChanges:=True'
End Sub

[/vba]

Сообщение отредактировал VictorM - Четверг, 10.11.2011, 11:31

Ответить

Кнопка с макросом на сохранение изменений и выход (Нужно отредактировать макрос)

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