Dim objExcel As Excel.Workbook
    Dim objVBProject As VBIDE.VBProject
    Dim objVBComponent As VBIDE.VBComponent
    Dim objWindow As VBIDE.Window
    
    Set objExcel = GetObject("C:\test.xls")
    Set objVBProject = objExcel.VBProject
    For Each objWindow In objVBProject.VBE.Windows
        If objWindow.Type = vbext_wt_ProjectWindow Then ' vbext_wt_ProjectWindow =6
            objWindow.Visible = True
            objWindow.SetFocus
        End If
    Next
    Set objVBProject.VBE.ActiveVBProject = objVBProject
    SendKeys "~password~", True
    
    DoEvents
    For Each objVBComponent In objVBProject.VBComponents
        Debug.Print objVBComponent.Name
    Next
    Set objVBProject = Nothing
    objExcel.Close
    Set objExcel = Nothing