怎样遍历文件夹下的文件删除其中vbe窗体代码，谢谢！

cwdc000

用了新电脑后，office 2021打开以前的excel文件后跳出提示说 隐藏模块编译错误 ，然后我找到是vba中窗体的代码不兼容，我不可能将所有的文件都手动删除，很累，而且以前的文件很多也不可能一一打开删除。我做了一个删除窗体代码的文件，但必须将要处理的文件都打开才行。但是文件太多了。所以恳请大佬帮忙怎样用vba遍历文件夹如aaa下及子文件夹下的的xls文件和xlsm（其中有的文件有工程密码为w）文件，自动将其中vbe中的窗体或窗体代码删除，在这里先谢谢大佬们！
我的代码如下：只能处理打开的文件
Sub 删除vbe窗体代码需打开要处理的文件()
  Dim wb As Workbook
  For Each wb In Workbooks
       For Each m In wb.VBProject.VBComponents
         If m.Type = 3 Then '模块的值为1，类模块为2，窗体type值为3，Sheet及Thisworkbook为100
            m.CodeModule.DeleteLines 1, m.CodeModule.CountOfLines
         End If
       Next
  Next
End Sub