Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение при закрытии без запроса / 4 сообщений из 4, страница 1 из 1
05.03.2007, 16:09:52
    #34371858
Frost_Imp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение при закрытии без запроса
Добрый день!
Собственно, вопрос в топике. При закрытии экселевского файла выводится диалоговое окно "сохранить изменения или нет". Как сделать, чтобы при закрытии конкретного файла (как я понимаю, код будет лежать не в personal а в самом файле) сохранение происходило автоматически без вывода данного диалогового окна? Так сказать в фоне.
Заранее спасибо!
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
05.03.2007, 16:33:09
    #34371939
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение при закрытии без запроса
Frost_Imp

В модуль класса ThisWorkbook (ЭтаКнига) поместите код:

Код: plaintext
1.
2.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Me.Save
End Sub
...
Рейтинг: 0 / 0
05.03.2007, 16:35:25
    #34371949
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение при закрытии без запроса
Вот в Help заглянула:

Example
This example always saves the workbook if it's been changed.

Код: plaintext
1.
2.
Private Sub Workbook_BeforeClose(Cancel as Boolean)
    If Me.Saved = False Then Me.Save
End Sub
...
Рейтинг: 0 / 0
05.03.2007, 16:46:20
    #34371991
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение при закрытии без запроса
И так

Код: plaintext
1.
2.
Private Sub Workbook_BeforeClose(Cancel as Boolean)
    ThisWorkbook.Close True
End Sub
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение при закрытии без запроса / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]