有没有办法以编程方式从大量的excel工作表中删除所有vba模块？

Sub DeleteVBA()
    Dim wb As Workbook
    Dim vbComp As VBComponent
    
    Set wb = ThisWorkbook '或者指定要操作的工作簿
    
    For Each vbComp In wb.VBProject.VBComponents
        If vbComp.Type = vbext_ct_StdModule Or vbComp.Type = vbext_ct_ClassModule Then
            wb.VBProject.VBComponents.Remove vbComp
        End If
    Next vbComp
End Sub

Sub DeleteVBAFromAllSheets()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    Set wb = ThisWorkbook '或者指定要操作的工作簿
    
    For Each ws In wb.Worksheets
        ws.Activate
        Application.Run "DeleteVBA"
    Next ws
End Sub