Макрос записать файл после каждого изменения

[Konstantin_Z]

В некоторых случаях (например, когда комп глючит и может перестать работать/перезагрузиться в любой момент) есть смысл сохранять файл после каждого действия (под действием в данном случаеподразумевается изменение содержимого одной или более ячеек).
Скорее всего, эта задача уже не раз обсуждалась/решалась или здесь на форуме, или уважаемые форумчане видели ее решение/решали...
Если я прав, пожалуйста, кинте ссылочками!
Макрос под 2003 эксель, но если есть универсальный макрос, типа, под любую версию, то еще лучше.
Самый же предпочтительный вариант это надстройка, но которая бы позволяла активировать и дезактивировать сохранения после каждого действтия в зависимости от того нужно ли это

[Hugo121]

Думаю такого макроса нет, ибо бестолково. Хотя конечно написать можно...
1. будет безбожно тормозить при активной работе.
2. будет сохранять то, что сохранять не следовало (например ошибки ввода)
3. сам код будет непростым, если действительно нужно сохранить каждый чих (например изменение заливки).

Не ленитесь нажимать на дискетку (знаете, что это такое? )

[Скрипт]

Konstantin_Z, нужно использовать события.
В вашем случае возможно использование двух событий Change и Calculate.

Событие Change срабатывает в следующих случаях:

1. вы вносите изменения в ячейки вручную;
2. данные в ячейках изменяются макросами.

Событие Calculate срабатывает в следующих случаях:

1. в ячейках находятся формулы и происходят изменения в ячейках, с которыми формулы связаны;
2. в ячейках находятся формулы и эти формулы связаны с базами данных (что-то в этом роде).

Примечание

События Change и Calculate не срабатывают, если изменяется форматирование ячеек (ширина ячеек, размер и цвет текста и др.).

[Konstantin_Z]

Сообщение от Hugo121

Думаю ...

1 - знаю
2 - знаю и отдаю себе отчет
3 - устроит только отслеживание изменения содержимого ячейки (без форматирований, заливок, измений шири столбцов и прочего)

я про дискетку то ведаю, конечно! но мне немного удобнее давить на шифт ф12, но сами понимаете, что это муторно - постоянно жать сочетание клавишь сохранения файла )

сам же я, к сожалению, макросы пока не пишу, поэтому пришел за советом/помощью на форум (а ведь все планирую, вот думаю, надо начинать уже писать - надеюсь, что таки дойдут руки и начну в ближайшее время)

[Hugo121]

Ну это просто - в модуле книги есть события, выбираем нужное в выпадающих списках, пишем одну строку:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ThisWorkbook.Save
End Sub

[Hugo121]

Продвинутее - ставим чекбокс на первый лист, связываем с А1:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Worksheets("Sheet1").Range("A1") Then ThisWorkbook.Save
End Sub

[Konstantin_Z]

спасибо! буду пробовать! постараюсь отписаться о результатах!