ブックのプロパティを取得

Sub GetDocumentProperties()
    On Error Resume Next  ' エラーが発生しても次の行に進む

    With ThisWorkbook  ' 現在のブックに対して処理を行う
        Dim i As Long
        ' すべての組み込みドキュメントプロパティをループ処理
        For i = 1 To .BuiltinDocumentProperties.Count
            ' 組み込みドキュメントプロパティの名前をセルに設定
            Cells(i, 1) = .BuiltinDocumentProperties(i).Name
            ' 組み込みドキュメントプロパティの値をセルに設定
            Cells(i, 2) = .BuiltinDocumentProperties(i).Value
        Next i
    End With
End Sub

Sub SetBuiltinDocumentProperty()
    ' 現在アクティブなブックの組み込みドキュメントプロパティ「Author」に値を設定する
    ActiveWorkbook.BuiltinDocumentProperties("Author") = "おおた いちろう"
End Sub

Sub GetDocumentPropertiesByName()
    ' アクティブなブックの組み込みドキュメントプロパティを取得する
    With ActiveWorkbook.BuiltinDocumentProperties
        ' 組み込みドキュメントプロパティ「Last save time」の値をメッセージボックスで表示する
        MsgBox "最終更新日:" & .Item("Last save time")
    End With
End Sub