Сохранение свойств

[Artur KakTus]

Уважаемые знатоки,
К примеру есть процедура VBA, которая очищает ячейки диапазона без удаления формул:

'Очистить все кроме формул
Public Sub sheets_open()
On Error Resume Next
Range("H7:K12").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

Но есть один недостаток, невозможно вернуть значение ячеек после очистки. Однако, если пользователь случайно очистил ячейки, что тогда,потеря информации? Я выхожу из этой ситуации копированием диапазона в память и после могу вернуть значения ячеек, НО БЕЗ СОХРАНЕНИЯ ФОРМУЛ. Возникает закономерный вопрос - как вернуть потерянные значения. Может я просто копирую значения ячеек, а не формулы, или вообще есть другой более простой способ отмены очистки.
Прошу у Вас совета по этому вопросу.

[Vitaly1]

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