Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Надстройка для сохранения документа с назначенной периодичностью
 
#1
13.03.2013 20:21:28
Всем привет! Помогите создать надстройку для excel 2007, чтобы при работе с документом каждые 10,15,20 минут (или задаваемое время) выскакивала табличка с сообщением "вы хотите сохранить изменения в файле таком то?"...."да" "нет". Либо подскажите где можно почитать похожую тему? Спасибо.
 
 
 
#2
13.03.2013 20:22:51
А штатное автосохранение не нравится?
 
 
 
#3
13.03.2013 20:24:46
нужна именно надстройка, чтобы возможно было установить выборочно ее для особо одаренных людей...
 
 
 
#4
14.03.2013 14:13:11
Нашел макрос..., возможно ли код автосохранения переписать на ручной режим с запросом что то типа r = MsgBox("Сохранить файл?", vbYesNoCancel)?


Книга
Код
[/CODE]
Private Sub Workbook_Open()
Автосохранение
End Sub
[CODE]


Модуль AutoSave
Код
[/CODE]
Sub Автосохранение()
' Автосохранение через заданный период времени
Dim W As Workbook
Application.OnTime Now + TimeValue("00:15:00"  ;)  , "Автосохранение"
For Each W In Application.Workbooks
W.Save
Next W
[CODE]
Изменено: rodion - 14.03.2013 14:29:55
 
 
 
#5
14.03.2013 14:26:03
!. Для отправки кода на форму используйте тег КОД.
2. С какой целью столько межстрочных пробелов?
 
 
 
#6
14.03.2013 14:39:21
Поправил..., Юрий М подскажите пожалуйста с кодом?
Изменено: rodion - 14.03.2013 14:39:46
 
 
 
#7
14.03.2013 14:45:37
А запрос когда нужен - на открытие книги?
 
 
 
#8
14.03.2013 14:57:06
Нужно только для активной (с которым работаешь не посредственно) открытой книги, если одновременно открыты другие книги файла excel, то к ним (им) не нужно обращаться.
 
 
 
#9
14.03.2013 15:00:11
Попробуйте так (в модуль книги):
Код
Private Sub Workbook_Open()
    If MsgBox("Запустить макрос автосохранения?", vbYesNo + 32) = vbNo Then
        Exit Sub
    Else
        Call Автосохранение
    End If
End Sub
 
 
 
#10
14.03.2013 15:26:23
Юрий М, нужен макрос, который автоматически после 15 минуты открытия книги (а в последующем и каждые 15 минут этой открытой книги) выдавал сообщение "вы хотите сохранить изменения в этом файле? и мне в этом сообщении давал бы выбор кнопками ДА, НЕТ или ОТМЕНА. При нажатии на кнопку с ДА, документ бы сохранялся.
В представленном мною макросе автосохранение происходит автоматически и это хорошо... где то это мне даже устраивает, но мне нужно, чтобы был такой макрос который предлагал мне самому сохранять или нет... открытый файл.
Изменено: rodion - 14.03.2013 15:30:33
 
 
 
#11
14.03.2013 15:29:56
Ну так и выводите этот запрос после Application.OnTime
 
 
 
#12
14.03.2013 15:34:57
Простите Юрий М, но мне сложно сделать (я не совсем в этом разбираюсь), прошу Вашей помощи, напишите пожалуйста полный код?
 
 
 
#13
14.03.2013 15:56:18
Попробуйте так: В стандартный модуль:
Код
Public Flag As Boolean
Sub Автосохранение()
' Автосохранение через заданный период времени
Dim W As Workbook
    If Flag Then
        Application.OnTime Now + TimeValue("00:00:05"), "Автосохранение"
        If MsgBox("Продолжить автосохранения?", vbYesNo + 32) = vbNo Then
            Flag = False
        End If
    End If
    For Each W In Application.Workbooks
        W.Save
    Next
End Sub


В модуль книги:
Код
Private Sub Workbook_Open()
    Flag = True
    Call Автосохранение
End Sub
 
 
 
#14
14.03.2013 16:37:49
Юрий М, спасибо Вам большое, попробую по испытать несколько дней
 
 
 
#15
15.03.2013 09:49:40
Юрий М доброе утро! Очень помогли, спасибо Вам. Подскажите пожалуйста, при сообщении "Продолжить автосохранения?" нажимаю ДА сохраняет, нажимаю НЕТ тоже сохраняет, а нельзя ли, чтобы при нажатии кнопки ДА документ сохранялся, а при нажатии кнопки НЕТ, документ не сохранялся, и чтобы появилась команда ОТМЕНА, при нажатии которой макрос отменялся и не тревожил пока не запустился по новому любой документ EXCEL. Я понял, что нужно изменить vbYesNoCancel и дополнительная кнопка появится, но команда не выполняется и что такое +32?
 
 
 
#16
15.03.2013 10:13:51
Попробуйте (не проверял):
Код
If MsgBox("Продолжить автосохранения?", vbYesNo + 32) = vbNo Then
    Flag = False
    exit sub
End If

32 - это иконка знака вопроса.
 
 
 
#17
15.03.2013 11:44:43
Отлично, спасибо, а как чтобы при нажатии на кнопку ОТМЕНА макрос автосохранения не срабатывал больше, если я изменяю строчку:
Код
If MsgBox("Продолжить автосохранения?", vbYesNoCancel + 32) = vbNo Then
 
 
 
#18
15.03.2013 11:50:15
В данном случае я не понимаю необходимости в кнопке "Отмена": "Да" - запросы продолжаются, "Нет" - запросы прекращаются. Что будет делать "Отмена"?
В общем случае следует добавить проверку:
If MsgBox("Продолжить автосохранения?", vbYesNoCancel + 32) = vbCancel Then 'Тут Ваши действия.
Поэкспериментируйте сами - пользы больше будет )
 
 
 
#19
15.03.2013 11:53:24
Ок, спасибо
 
 
 
Страницы: 1
Читают тему
Наверх