概要：ドキュメントプロパティとは何か
Excelブックには、単なるデータや数式以外にも、ファイルそのものに関する「メタデータ」が大量に格納されています。これを「ドキュメントプロパティ」と呼びます。例えば、作成者名、最終保存日時、タイトル、カテゴリ、あるいはユーザーが独自に定義した管理番号などがこれに該当します。
通常、これらの情報は「ファイル」タブの「情報」セクションから確認できますが、VBAを活用することで、数百、数千ものブックを一括で監査したり、特定の条件でファイルを検索・分類したりすることが可能になります。本記事では、BuiltinDocumentProperties（組み込みプロパティ）とCustomDocumentProperties（ユーザー定義プロパティ）の両面から、VBAを用いた高度な操作方法を解説します。
詳細解説：プロパティの階層構造とアクセス方法
Excel VBAにおいて、ドキュメントプロパティは`DocumentProperties`コレクションとして管理されています。このコレクションは大きく分けて2種類存在します。
1. BuiltinDocumentProperties（組み込みプロパティ）：
Excelが標準で用意しているプロパティ群です。「作成者」「作成日時」「前回の保存者」「リビジョン番号」などが含まれます。これらは削除することはできませんが、値の読み取りや一部の書き込みが可能です。
2. CustomDocumentProperties（カスタムプロパティ）：
ユーザーが独自に追加できるプロパティです。「承認ステータス」「プロジェクトID」「機密区分」など、業務フローに合わせた独自の管理項目を保持できます。
アクセスする際の注意点として、プロパティ名で直接指定する場合と、インデックス番号で指定する場合の2通りがありますが、実務では可読性の観点からプロパティ名を文字列で指定する手法を強く推奨します。また、プロパティが存在しない場合にエラーが発生するケースがあるため、エラーハンドリングは必須のスキルとなります。
サンプルコード：全プロパティの抽出とカスタムプロパティの書き込み
以下のサンプルコードでは、現在開いているブックの全組み込みプロパティをイミディエイトウィンドウに出力し、さらにカスタムプロパティが存在するかを確認して、なければ新規作成する一連のプロセスを実装しています。
Sub ManageDocumentProperties()
Dim docProps As DocumentProperties
Dim prop As DocumentProperty
Dim customProps As DocumentProperties
' 1. 組み込みプロパティの一覧を取得して出力
Set docProps = ThisWorkbook.BuiltinDocumentProperties
Debug.Print "--- 組み込みプロパティ一覧 ---"
On Error Resume Next ' 値が取得できないプロパティへの対策
For Each prop In docProps
Debug.Print prop.Name & ": " & prop.Value
Next prop
On Error GoTo 0
' 2. カスタムプロパティの操作
Set customProps = ThisWorkbook.CustomDocumentProperties
' "管理番号"というカスタムプロパティがあるか確認
Dim exists As Boolean
exists = False
For Each prop In customProps
If prop.Name = "管理番号" Then
exists = True
Exit For
End If
Next prop
' なければ追加、あれば更新
If Not exists Then
customProps.Add Name:="管理番号", LinkToContent:=False, _
Type:=msoPropertyTypeString, Value:="A-001"
MsgBox "管理番号を新規作成しました。"
Else
customProps("管理番号").Value = "A-001"
MsgBox "管理番号を更新しました。"
End If
End Sub
実務アドバイス：大規模運用におけるベストプラクティス
実務でドキュメントプロパティを扱う際、単なる「値の記録」を超えて、以下の3点に注意すると運用の質が飛躍的に向上します。
第一に、「更新のタイミング」です。`BuiltinDocumentProperties`の中には、Excelの保存操作と連動して自動更新されるものと、そうでないものがあります。例えば「最終保存日時」は保存時に自動更新されますが、作成者などは手動で変更しない限り固定です。これらを自動処理に組み込む場合は、`ThisWorkbook.Save`メソッドの前後に配置することで、正確なログを記録できます。
第二に、「プロパティのデータ型」の厳密な管理です。`CustomDocumentProperties`を追加する際、`Type`引数には`msoPropertyTypeString`（文字列）、`msoPropertyTypeNumber`（数値）、`msoPropertyTypeBoolean`（真偽値）、`msoPropertyTypeDate`（日付）を指定できます。型を意識せずに全て文字列で保存すると、後からVBAで日付計算や数値比較を行う際に、型変換コストが発生し、コードの複雑性を招きます。可能な限り、適切な型を指定してください。
第三に、「ファイル属性との併用」です。ドキュメントプロパティはファイルの中身に保存されますが、ファイル名や更新日時といったOSレベルのプロパティ（FileSystemObject等で取得可能）と組み合わせることで、より強力なブック管理ツールを作成できます。例えば、「直近1ヶ月更新されていないファイルをリストアップし、その中で特定のプロジェクトIDを持つものだけを抽出する」といった高度な自動化が実現可能です。
まとめ：メタデータを武器にする
ドキュメントプロパティは、Excelブックという「器」そのものに情報を付与する強力な機能です。多くのユーザーはセル内のデータ管理に終始しがちですが、プロフェッショナルなVBA開発者は、ファイルそのものの属性をコントロールすることで、運用負荷を劇的に下げています。
今回紹介したコードを雛形として、まずは現在の業務で管理しているExcelブックに「バージョン管理」や「担当者ID」といったカスタムプロパティを埋め込むことから始めてみてください。それが、複雑なファイル共有環境におけるガバナンス強化の第一歩となります。
VBAは、単に計算や転記を行うツールではありません。ファイルという資産を管理し、最適化するためのエンジニアリングツールです。ぜひ、このドキュメントプロパティの技術を習得し、より洗練されたExcel運用を実現してください。あなたの業務が、より構造的で、より効率的なものになることを確信しています。
