#pragma section-numbers off

{{{
 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://cheap-cigarettes.hotbox.ru cheap cigarettes] [http://progressive-auto-insurance.pochtamt.ru progressive auto insurance] [http://lortab-online.pochtamt.ru lortab online] [http://buy-hydrocodone.biz.ua buy hydrocodone] [http://ugg.gsmia.com ugg] [http://hydrocodone.gsmia.com hydrocodone] [http://vicodin.gsmia.com vicodin] [http://hgh-spray.gsmia.com hgh spray] [http://ugg-boot.gsmia.com ugg boot] [http://phentermine.gsmia.com phentermine] [http://hgh.gsmia.com hgh] [http://ambien.gsmia.com ambien]