求大佬帮忙怎样用vba删除vba中窗体及窗体代码？

cwdc000 · 发表于 2023-3-10 10:43

本帖最后由 cwdc000 于 2023-3-10 10:46 编辑

用了新电脑后，office 2021打开以前的excel文件后跳出提示说隐藏模块编译错误，然后我找到是vba中窗体的代码不兼容，我不可能将所有的文件都手动删除，很累，所以急求大佬帮忙怎样用vba删除vba中窗体及窗体代码，谢谢! 只删除窗体或窗体中代码

胡马 · 发表于 2023-3-10 11:54

如果你的窗体名字是默认的userform+数字，你可以试试下面的代码
Sub DeleteUserforms()
Dim c As Object
For Each c In ThisWorkbook.VBProject.VBComponents
      If c.Type = 3 Then
         CountUserForms = CountUserForms + 1
      End If
Next c
For i = 1 To CountUserForms
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm" & i)
Next
End Sub

smsn · 发表于 2023-3-10 12:46

录个宏，另存为xlsx

		自动登录	找回密码
密码			免费注册

[求助] 求大佬帮忙怎样用vba删除vba中窗体及窗体代码？