#pragma section-numbers off [http://proportal.jp/links/tep.htm Excel(エクセル)、Word(ワード)のテンプレート集] {{{ Dim myStamp As String Dim myFileName As String Dim myPath As String Dim Res As String myFileName = Me.Name myPath = ThisWorkbook.Path & "\" & myFileName 'Res = MsgBox("" & myPath) myStamp = Format(FileDateTime(myPath), "yyyy年mm月dd日") 'Res = MsgBox("更新日付・時刻 ⇒ " & MyStamp) }}} [http://support.microsoft.com/default.aspx?scid=kb;ja;402776 [XL2002]数式が入力されているセルだけを保護する方法] [http://www.freedownloadscenter.com/Best/excel-diagrams.html Excel diagrams software by Mark Uildriks and others] {{{ Content-Type: application/vnd.ms-excel Content-Disposition: attachment; filename="hoge.xls" }}} ----