如何在VBA中查找和取消隐藏隐藏的模块

Sub FindAndDeleteHiddenModules()
    Dim objModule As Module
    Dim objWorkbook As Workbook
    Dim objWorksheet As Worksheet
    Dim lngIndex As Long
    Dim strModuleName As String
    
    '创建一个 Workbook 对象
    Set objWorkbook = ThisWorkbook
    
    '遍历所有模块对象
    For Each objModule In objWorkbook.Modules
        '检查模块是否包含需要取消隐藏的模块名称
        If objModule.Name Like "*Hidden*" Then
            '如果找到需要取消隐藏的模块，将其删除
            objModule.Delete
            lngIndex = lngIndex + 1
            strModuleName = objModule.Name
        End If
    Next objModule
    
    '输出取消隐藏的模块数量
    Debug.Print "Total hidden modules deleted: " & lngIndex
    
    '释放对象
    Set objWorkbook = Nothing
    Set objWorksheet = Nothing
    Set objModule = Nothing
End Sub