[[20170613093054]]　『bookのプロパティを変更』（５５）　ページの最後に飛ぶ

『bookのプロパティを変更』（５５）

bookのプロパティを変更する方法を教えてください。

Last Save Timeを変更したいです。

With ActiveWorkbook

        With .BuiltinDocumentProperties
            .Item("Last Author").Value = Empty
        End With
End With

これで最終更新者の名前を空にすることはできたのですが、更新日時は変更できませんでした。
例えば、"2017/06/03 17:17:17"に変更したい場合、どのように記述すれば良いでしょうか。教えてください。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 パソコンのシステム時刻を変えるしかないのでは？と思ったらFileSystemObjectを
 使ってファイルの更新日時を変更できるようですね。

 ※改竄にあたる可能性がありますので自己責任でお願いします。くれぐれもこのサイト
 に迷惑がかかることがないように。
（カエムワセト） 2017/06/13(火) 09:59

 With ActiveWorkbook
     With .BuiltinDocumentProperties
         .Item("Last Save Time").Value = "2017/06/03 17:17:17"
     End With
 End With
 でExcel上で見るブックのプロパティは変更される。
（ねむねむ） 2017/06/13(火) 10:14

 続き。
 ただしそのブックを保存した段階でその保存時の日時になる。
 最終的におこないたいことが保存したブックの更新日時の変更で有ればカエムワセトさんの書くようにFileSystemObjectを
 使うことになるのでは。

（ねむねむ） 2017/06/13(火) 10:17

まず、ブック自身でプロパティを変えても、保存しようとすると勝手に更新されてしまうので、意味ないでしょうね。
外部からの場合、ブック内の \docProps\core.xml を直接更新する（dcterms:modifiedタグ）ことで実現可能でしょう。

これだけ聞いて、ピンと来ないようであれば、内部情報変更なんて手を出さない方が良いですよ。見る人が見れば、このファイルの更新日時と、内部情報のアンマッチを見ると、改変されたことに気がつきますから。
（???） 2017/06/13(火) 15:48

コメント返信：

[ 一覧(最新更新順) ]

[[20170613093054]] 『bookのプロパティを変更』（５５） ページの最後に飛ぶ

[[20170613093054]]　『bookのプロパティを変更』（５５）　ページの最後に飛ぶ