VBAを使用したドキュメントプロパティ処理について

Question

前提/やりたいこと

VBAを用いて、指定したディレクトリ及びその中にあるサブディレクトリ内の、
Excelファイルのドキュメントプロパティを設定したい。

〇設定したいドキュメントのプロパティ
→「分類項目」に任意の文字

参考URL

疑問点

1．サブディレクトリまで処理をする方法がわからない
2．処理ごとにファイルをオープンしない方法を知りたい

2番が不可能であれば、1番だけでも構いません。

現状

現状、指定したディレクトリのみ処理できています。
ですが、上記の疑問点の要件は満たせていません。

ソースコード

Sub propertySet()
    Dim Target As String, wb As Workbook
    Const Path As String = "C:\private\プロパティテスト\test\"
    Target = Dir(Path & "*.xlsx")
    Do While Target <> ""
        With Workbooks.Open(Path & Target)
            .BuiltinDocumentProperties("Category").Value = "任意の文字"
            .Close SaveChanges:=True
        End With
        Target = Dir()
    Loop
End Sub

以上、ご教授の程よろしくお願いします。

Answer 1

「1．サブディレクトリまで処理をする方法がわからない」のみ回答します。

指定したディレクトリ及びその中にあるサブディレクトリをすべて処理するためには、
FileSystemObjectを学習したうえで、再帰処理にて実装できます。

再帰処理でフォルダー一覧を作成するExcelマクロ