ブック名に作成者名を付加。プロパティ変更とファイル保存

エクセルVBA、ブックの保存で作成者名を付加して保存するマクロを作成します。

「BuiltinDocumentProperties」でブックプロパティの取得と変更をします。

こんにちは、じゅんぱ店長（@junpa33）です。

自分が作成した書類を提出報告する時、その利用したフォーマットやテンプレートが他の人が作成したもの、ということが多くあります。

そういった場合、作成したファイル（ブック）のプロパティデータで、「作成者欄」のところが自分以外の他人名表示になったままということが多いです。作成日時も違っています。

これはテンプレ作成者と作成日ですので、書類作成者としては自己アピール的にも ” なんかイヤ ” ですよね。

考え抜いて作ったプランも「他人が作ったような」表記は許せない人も多いのでは・・・。

この記事では、その作成者名の問題対策と自己アピール有効対策を紹介します。

コンテンツ

ブックの作成者をプロパティ的にVBAで変更する

ブックのプロパティにある作成者名を確認、作成日時を確認して、マクロ（VBAコード）でデータ変更を行います。

ブックのプロパティを確認する

ブックプロパティの作成者は誰にクレジットされているかを一番簡単に調べる方法は、

ブックのアイコンを右クリックして、右メニューからプロパティをクリックします。

ブックのプロパティの詳細タブに表示されています。（●●●● の部分です）

この作成者の「●●●●」を自分の名前に変更します。

ブックのプロパティを変更する

ブックのプロパティを変更するには、ワークブックオブジェクトに対して、

「BuiltinDocumentProperties」を実行します。

BuiltinDocumentProperties(“Author”).Value

　　作成者名を取得したり変更したりできる

BuiltinDocumentProperties(“Creation Date”).value

　　この元々のブックが作成された日付日時を取得・変更できる。

VBA

Sub 作成者名を付加でブック保存1()
        With ActiveWorkbook
         .BuiltinDocumentProperties("Author").Value = "■■ ■"
         .BuiltinDocumentProperties("Creation Date").Value = _
            Format(Now, "yyyy/mm/dd hh:nn")
        End With
End Sub

実行結果はこのようになります。

ブックのプロパティ変更の注意点

初めの白紙のエクセルブックより、書類を作成している場合は、あえてプロパティを変更する必要は無いでしょう。

問題は、既にあるテンプレートや既定フォーマットを使用して書類を作成する場合です。

はじめに表示されているプロパティ項目で、以下の2つの項目が自分ではない別の人のデータ項目です。

詳細タブの「作成者」
詳細タブの「コンテンツの作成日時」

は、テンプレやフォーマットを作成した人と日付になっています。

この2点を変更するのが

⇒　BuiltinDocumentProperties(“Author”).Value = “■■ ■”
⇒　.BuiltinDocumentProperties(“Creation Date”).Value = Format(Now, “yyyy/mm/dd hh:nn”)

となります。

詳細タブの「前回保存者」は、このエクセルブックを開いて修正して最後に保存した人の名前が自動で表示されます。

全般タブの「作成日時」は、このエクセルブックで書類作成して初めて編集保存した日付時間

全般タブの「更新日時」は、このエクセルブックを最終更新した日付時間

となります。

目次へ戻る

作成者名を付けてブックを保存する

プロパティを変更する必要があることを前提に、作成者「”Author”」の項目は自分の名前を入れておきましょう。

VBAコードに埋め込みますので、一度書き込めばそれでOKです。（ “■■ ■”の部分です）

名前を付けて保存ダイアログ表示で、はじめに表示されるフォルダはカレントホルダになりますので、

あらかじめ保存先を決めている場合には、「ChDir・・・」でカレントフォルダを事前に変更しておきます。

VBA全コード

VBA

Sub 作成者名を付加でブック保存2()
    Dim Ans As Integer
    Dim ASNamea, ASNameb, ASNamec, BkName As Variant
'プロパティの変更
        Ans = MsgBox("ブックプロパティを変更しますか", vbYesNo + _
            vbExclamation, "作成者変更確認")
        If Ans = 6 Then
            With ActiveWorkbook
             .BuiltinDocumentProperties("Author").Value = "■■ ■"
             .BuiltinDocumentProperties("Creation Date").Value = _
                Format(Now, "yyyy/mm/dd hh:nn")
            End With
            ActiveWorkbook.Save
        Else
        End If
'プロパティの変更ここまで
'名前を付けて保存ダイアログ表示
    Const FFa As String = "Excel ブック,*.xlsx,Excel マクロ有効ブック, " & _
            "*.xlsm,"
    Const FFb As String = "Excelバイナリブック,*.xlsb," & _
            "Excel97-2003ブック,*.xls,"
    Const FFc As String = "CSVカンマ区切り,*.csv,すべてのファイル,*.*"
        ASNamea = ActiveWorkbook.BuiltinDocumentProperties("Author").Value
        ASNameb = Format(Now, "yymmdd")
        ASNamec = " -" & ASNamea & ASNameb
        ChDir "C:\Users\●●●\Documents\●●●\●●●\●●●" & _
                "\VBAブックの名前を付けて保存\シート名で名付ける"
        BkName = Application.GetSaveAsFilename(InitialFileName:=ASNamec, _
            filefilter:=FFa & FFb & FFc, FilterIndex:=1, _
                Title:="作成者名を付けて保存")
        If BkName = "False" Then
            Exit Sub
        End If
'名前を付けて保存ダイアログここまで
        ActiveWorkbook.SaveAs BkName
End Sub