VBA module 닫기 코드

엑세스를 사용하다 보면 MS VBA창 닫는 습관이 안들어서, 프로그램이 느려지는 현상이 있습니다. 프로그램을 실행하다가 보면 늘어지는 느낌입니다. 자동으로 VBA module 창을 닫는 코드입니다.

Public Sub CloseModules()
Dim i As Integer
Dim mAll As Modules

Set mAll = Application.Modules

For i = mAll.Count - 1 To 0 Step -1
DoCmd.Close acModule, mAll(i).Name, acSaveYes
Next i

End Sub

프로그램을 닫고 열때마다 상쾌한 기분으로 진행가능합니다.,