[Excel VBA] VBA로 자동 저장 기능 구현하기 (시간 간격 지정 기능)

'Excel 2016' 기준으로 작성된 글입니다. VBA(Visual Basic for Application)는 엑셀에서 사용할 수 있는 사용자 정의 함수를 구현할 때 사용합니다. 자주 사용하는 기능과 함수를 소개합니다.

 

자동 저장 기능

 

엑셀 작업 중 자동으로 해당 문서를 저장할 수 있는 기능을 구현하여 사고를 방지할 수 있도록 합니다.

 

 

Public Runwhen

Sub Auto_Open()
    Call Run
End Sub

Public Sub Run()
    Runwhen = Now + TimeValue("00:10:00")
    
    On Error Resume Next
    Application.OnTime Runwhen, "Run"
    DoEvents
    
    ThisWorkbook.Save
    On Error GoTo 0
End Sub

Sub Auto_Close()
    On Error Resume Next
        Application.OnTime Runwhen, "Run", schedule:=False
    On Error GoTo 0
End Sub

 

기능은 다음과 같습니다.

 

1) 문서가 열릴 때마다 자동으로 저장해주는 기능

2) 지정한 시간 간격으로 자동으로 저장해주는 기능 (위 소스코드는 10분마다 저장 지정)

3) 문서를 닫으면 저장기능을 해제하는 기능