|
Действия ...
|
20.10.2008, 16:38
|
|||
|---|---|---|---|
|
|||
Сохранение книги при любом изменении |
|||
|
|
|
20.10.2008, 17:32
|
|||
|---|---|---|---|
|
|||
Сохранение книги при любом изменении |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
20.10.2008, 16:23
|
|||
|---|---|---|---|
|
|||
Сохранение книги при любом изменении |
|||
|
#18+
Здравствуйте, есть книга, с одним листом. Нужно, чтобы при любом, хоть мало-мальском изменении, происходило сохранение книги. Я написала следующее, но не работает. Где ошибка? Private Sub Macro8() '' Do If cellVal <> cellvall Then Msg = MsgBox("Ñîõðàíèòü êíèãó?", 4) If Msg = vbYes Then 'íàæàòà êíîïêà "ÄÀ" (Yes) ActiveWorkbook.Save Else 'íàæàòà êíîïêà "Íåò" (NO) End If End If End Sub У меня еще сообщение появляется, но на это можно не обращать внимание. Главное, чтобы происходило сохранение -Мгновенно!!! Спасибо!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.10.2008, 16:38
|
|||
|---|---|---|---|
|
|||
Сохранение книги при любом изменении |
|||
|
#18+
> Автор: kaol > Здравствуйте, > Главное, чтобы происходило сохранение -Мгновенно!!!Спасибо!! Настрой в Сервис-> Параметры->Закладка Сохранение параметр автосохранения. Еще можно посмотреть в сторону "создавать резервную копию при сохранении" Мгновенно сохранятся не получится, разве что у тебя будет какой-нить промышленный сервер, и файлики по 100Кб. Даже на мощных десктопах, файлы размером около сотни мегабайт сохраняются несколько секунд, в самом лучшем случае, и в любом случае это заметно для пользователя. -- С уважением Горбонос Игорь Леонидович Posted via ActualForum NNTP Server 1.4 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.10.2008, 17:15
|
|||
|---|---|---|---|
|
|||
Сохранение книги при любом изменении |
|||
|
#18+
Игорь Горбонос, спасибо за быстрый ответ. Скажите, как написать командную строку, что если произошло изменение в книги, то Спасибо, Ольга ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.10.2008, 17:32
|
|||
|---|---|---|---|
|
|||
Сохранение книги при любом изменении |
|||
|
#18+
> Автор: kaol > Скажите, как написать командную строку, что если произошло изменение в книги, то [src vba]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.DisplayAlerts = False ActiveWorkbook.Save Application.DisplayAlerts = True End Sub[src] писать в модуле книги, только пользователи потом придут и настучат, во всяком случае, я бы так сделал. По подробнее можно, зачем такая параноидальность? > Спасибо, Ольга Да как раз не за что :( -- С уважением Горбонос Игорь Леонидович Posted via ActualForum NNTP Server 1.4 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.10.2008, 18:23
|
|||
|---|---|---|---|
Сохранение книги при любом изменении |
|||
|
#18+
Игорь Горбонос Решение не првильное. Автор же четко по-русски написал, что ему нужно: Код: plaintext 1. 2. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.10.2008, 18:41
|
|||
|---|---|---|---|
|
|||
Сохранение книги при любом изменении |
|||
|
#18+
> Автор: Antonariy > Игорь Горбонос > Решение не првильное. Признаю и посыпаю голову пеплом З.Ы. Спасибо за разрядку, повелитель ИЕ. -- С уважением Горбонос Игорь Леонидович Posted via ActualForum NNTP Server 1.4 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&tablet=1&tid=2161726]: |
0ms |
get settings: |
5ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
140ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
37ms |
get tp. blocked users: |
1ms |
| others: | 197ms |
| total: | 405ms |
| 0 / 0 |
