Кнопка «Отменить» в VBA, которая восстанавливает всю версию рабочего листа

Question

В настоящее время у меня есть макросетка с поддержкой макросов, которая выполняет различные функции, включая обновление, создание и удаление сотен строк. Если по какой-либо причине одна из этих функций переходит в haywire и удаляет информацию, предназначенную для хранения, я хотел бы реализовать кнопку «Отменить», которая восстанавливает версию этой таблицы, которая была просто изменена макросом.

Я предполагаю, что это будет выглядеть следующим образом:

Public InstanceOfWorksheet As Range 

Sub Button_Click() 
    InstanceOfWorksheet = CurrentWorksheet.UsedRange 'Or something like this 
    'Macro functionality here 
    CurrentWorksheet.Update() 'Worksheet has now been updated 
    End Sub 

Sub Button2_Click() 
    InstanceOfWorksheet = CurrentWorksheet.UsedRange 'Or something like this 
    'Second Macro functionality here 
    CurrentWorksheet.Update() 'Worksheet has now been updated 
    End Sub 

Sub UndoLastMacro_Click() 
    CurrentWorksheet = InstanceOfWorksheet 
    End Sub 

Таким образом, в этом случае, когда вы активировали команду UndoLastMacro, вы бы эффективно «восстановить» версию рабочего листа вы имели до последнего Macro называется.

Мой вопрос: какой тип переменной должен быть InstanceOfWorksheet, и каким будет самый простой способ скопировать содержимое InstanceOfWorksheet в текущий рабочий лист?

Заранее благодарен! :)

Answer 1

Я хотел бы сделать что-то вроде этого в коде

Sub Button_Click() 
    Dim TemporaryFileName as String 
    TemporaryFileName = "FileName" 'You can include a path here too like "C:\Wherever\FileName" 
    ThisWorkbook.SaveAs(TemporaryFileName) 
    ... (code to be run 
End Sub 

Sub Restore_Button_Click() 
    Workbooks.Open(TemporaryFileName) 
    ThisWorkbook.Close False ' Won't save. Maybe set to true if you don't want to lose it just yet 

End Sub 

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

Надеется, что это помогает