엑셀 파일에서 모든 VBA 모듈을 제거 하시겠습니까?

Question

VBA를 사용하여 Excel 파일에서 모든 VBA 모듈을 제거 할 수 있습니까?

모듈이 존재하는 경우 모듈의 이름은이 스크립트를 실행하기 전에 알 수 없습니다.

Answer 1

분명히 할 수 있습니다. 다음 코드는 일을 할 것입니다 :

Sub compact_code() 

On Error Resume Next 
    Dim Element As Object 
    For Each Element In ActiveWorkbook.VBProject.VBComponents 
     ActiveWorkbook.VBProject.VBComponents.Remove Element 
    Next 

End Sub 

이 ClassModules 및 사용자 정의 폼을 포함한 모든 모듈을 제거하지만, 모든 오브젝트 모듈 (시트, 통합 문서)를 유지합니다.

On Error Resume Next 
With wbk.VBProject 
    For x = .VBComponents.Count To 1 Step -1 
     If .VBComponents(x).Type = vbext_ct_StdModule Then 
      .VBComponents.Remove .VBComponents(x) 
     End If 
    Next x 
End With 
On Error GoTo 0 

Answer 2

만 ClassModules을 제거하는 유사한 대안입니다. 모든 모듈, 사용자 폼 및 클래스 모듈이 제거됩니다.