全てのコードウィンドウがオープン

'大勝利ですぞ！これで全てのコードウィンドウがオープンできます
Function testopen()
Dim c As Object
For Each c In VBE.VBProjects(1).VBComponents
c.CodeModule.CodePane.Show
Next
End Function

やったー！！！勝利の秘訣はVBEだったよー、CurrentProjectとかAllFormsとか役にたたなかったよー（泣