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)

[XL2002数式が入力されているセルだけを保護する方法]

buy hydrocodone buy fioricet cheap cigarettes progressive auto insurance lortab online buy phentermine online vicodin celebrex buy tramadol ambien ugg soma phentermine hydrocodone buy vicodin order phentermine vicodin propecia hgh spray vicodin side effects vicodin buy phentermine cheap phentermine ugg boot carisoprodol buy carisoprodol buy hydrocodone phentermine online hydrocodone phentermine buy fioricet hgh cheap carisoprodol ambien didrex carisoprodol