워크 시트의 전체 버전을 복원하는 VBA의 "실행 취소"단추

Question

현재 수백 개의 행을 업데이트, 작성 및 제거하는 등의 다양한 기능을 수행하는 매크로 사용 스프레드 시트가 있습니다. 어떤 이유로 든이 함수 중 하나가 엉망이되어 보관하려는 정보를 삭제하는 경우 - 매크로에 의해 방금 변경된 스프레드 시트의 버전을 복원하는 "실행 취소"버튼을 구현하고 싶습니다.

이 나는 ​​모양을 가정 다음 : 당신이 UndoLastMacro 명령을 활성화 할 때

는

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 

이 경우에, 당신은 효과적으로 당신이 마지막 매크로 전과 워크 시트의 버전을 "복원"것 라는.

내 질문에 어떤 변수 유형이 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 

당신은 아마 "새로운"백업 통합 문서를 대체 할 파일이 원래 불렀다 어떤 파일로 저장하기 버튼을 추가해야합니다 매크로에 의해 손상된 것.

희망이