달력

3

« 2024/3 »

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
2014. 11. 26. 23:38

[ 엑셀 VBA ] 자동 저장 매크로 엑셀VBA 이야기2014. 11. 26. 23:38

728x90
반응형

 

 

 

 

[ 엑셀 VBA ] 자동 저장 매크로

 

 

엑셀 사용 시 항상  작업 중 문서가 날라 가거나 해서 어려웠던 기억이 있어 오늘을 VBA로

 

자동으로 저장되는 코드를 포스팅한다. VBA 코드로 자동저장되는 기능을 만들어 보고자

 

하는 분들에게 도움이 되기를 바란다.

 

 

 

먼저 문서가 열릴때 자동으로 저장해주는 프로세스를 실행해 준다.

 

Public Runwhen

Sub Auto_Open() 
    Call Run
End Sub

 

 

아래는 지정한 시간 간격으로 자동으로 실행하는 프로세스 이다.


Public Sub Run() 
    Runwhen = Now + TimeValue("00:10:00") ' 10분 간격
    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

728x90
반응형
:
Posted by mapagilove