VBProject プロパティ
指定されたブックの VisualBasic プロジェクトを表す VBProject オブジェクトを返します。VBProject プロパティを使用するには、事前に設定が必要です。詳細は、VBE をマクロで操作する時の設定（VBProject プロパティ、VBE プロパティ） を参照してください。
＜取得＞
object.VBProject
引数・戻り値
- object ・・・ 対象となる Workbook オブジェクトを指定します。
VBProject の主なメンバー
VBProject.Name プロパティ
VisualBasic プロジェクトの名前を取得および設定します。
object.Name
引数・戻り値
- object ・・・ 対象となる VBProject オブジェクトを指定します。
VBProject.FileName プロパティ
VisualBasic プロジェクト を含むブックのパスとファイル名を返します。
object.FileName
引数・戻り値
- object ・・・ 対象となる VBProject オブジェクトを指定します。
VBProject.Protection プロパティ
VBProject にパスワードが設定されていて内容が表示できない場合、1 を返します。
パスワードが設定されていない場合や設定されていてもパスワードが入力されて解除されている状態の場合（つまり VBProject の内容が表示されている場合）は、0 を返します。
object.Protection
引数・戻り値
- object ・・・ 対象となる VBProject オブジェクトを指定します。
VBProject.VBComponents プロパティ
VBComponets は、VBProject 内の全モジュールを表します。index で、個別のモジュールを参照することができます。
＜モジュール（全体）を参照＞
object.VBProject.VBComponents
＜モジュールの総数を取得＞
object.VBProject.VBComponents.Count
＜モジュール（個別）を参照＞
object.VBProject.VBComponents ( index )
引数・戻り値
- object ・・・ 対象となる VBProject オブジェクトを指定します。
- index ・・・ 1 からはじまる整数値、またはモジュールの名前を指定します。
VBComponentsのメンバー（メソッド・プロパティ）の詳細に関しては、VBEのモジュールを参照する（VBComponents コレクション） を参照してください。
VBComponentのメンバー（メソッド・プロパティ）の詳細に関しては、 VBEのモジュールを参照する（VBComponent オブジェクト） を参照してください。
VBProject プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Sub Sample_VBProject() Dim str As String Dim num As Integer Dim i As Integer With ActiveWorkbook str = "【パス＆ファイル名】：" & .VBProject.FileName & vbCrLf str = str & "【プロジェクトの名前】：" & .VBProject.Name & vbCrLf str = str & "【パスワードの有無】：" If .VBProject.Protection = 1 Then str = str & "有" & vbCrLf Else str = str & "無" & vbCrLf End If str = str & "【モジュールの総数】：" & .VBProject.VBComponents.Count End With MsgBox str End Sub |
実行結果
