#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://zyrtec.20to.com zyrtec] [http://diovan.webserve.us diovan] [http://flonase.00server.com/ flonase] [http://metformin.coms.ph/ metformin] [http://motrin.00go.com/ motrin] [http://nexium.20fr.com/ nexium] [http://plavix.coms.ph/ plavix] [http://premarin.00go.com/ premarin] [http://prilosec.webserve.us/ prilosec] [http://accutane.00it.com/ accutane] [http://acyclovir.20fr.com/ acyclovir] [http://buspar.digitalzones.com/ buspar]