エクセルVBAでプロパティを他のモジュールからアクセスできないようにする方法

photo credit: Kecko Oberalp Pass – Lake via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

「初心者でもわかるエクセルVBAのクラスモジュール」をテーマにシリーズ連載をお伝えしています。

前回の記事はこちらです。

エクセルVBAでProperty Getプロシージャを使って簡単なプロパティを作成する方法

「初心者でもわかるエクセルVBAのクラスモジュール」をテーマにシリーズ進めております。今回はエクセルVBAでProperty Getプロシージャを使って簡単なプロパティを作成する方法をお伝えします。

Property Getプロシージャについてお伝えしました。

さて、作成してきたPersonクラスのプロパティですが、現在の仕様ではあちこちのモジュールから自由に上書きができちゃいます。

ほら、例えばIdプロパティとかは、上書きしちゃったら、そもそものIdとしての意味がないじゃないですか。

今回と次回とで、その点について解決をしていきます。

まず、今回はエクセルVBAでプロパティを他のモジュールからアクセスできないようにする方法です。

では、行ってみましょう！

前回のおさらい
プロパティの上書きができないようにするには
まとめ
連載目次：初心者でもわかる！エクセルVBAでクラスを作ろう

前回のおさらい

では、まず前回のおさらいからです。

以下のようなエクセル表がありまして、この1行分のデータを表すクラスを作成したんでしたね。

実際のクラスモジュールPersonは以下のようなコードで構成しています。

Public Id As String
Public FirstName As String
Public Gender As String
Public Birthday As Date

Public Sub Greet()
    MsgBox Me.FirstName & "です、こんにちは！"
End Sub

Public Property Get IsMale() As Boolean
    IsMale = (Me.Gender = "male")
End Property

モジュール変数によるプロパティが5つ、Greetメソッド、そして前回Property Getプロシージャで作成したIsMaleプロパティという構成です。

それで、そのクラスの動作を確認するための標準モジュールModule1のコードがこちらです。

Sub MySub()

Dim p As Person: Set p = New Person

Dim i As Long: i = 2
With Sheet1
    p.Id = .Cells(i, 1).Value
    p.FirstName = .Cells(i, 2).Value
    p.Gender = .Cells(i, 3).Value
    p.Birthday = .Cells(i, 4).Value
End With

Stop
'p.Greet

End Sub

処理としては、クラスPersonのインスタンスを生成して、そのプロパティに前述のエクセル表のデータをポコポコと代入していって、Stopステートメントで中断時にローカルウィンドウでその内容を確認できるというわけです。