excel中如何取得工作簿上次修改时间和修改者信息？

shmilyyxc

excel中如何取得工作簿上次修改时间和修改者信息？即想在每次打开工作薄时，知道上次最后编辑时间是什么，谁更改编辑的；用什么函数或其他办法可以取得这些信息？或者有什么办法能自动纪录每次哪个用户什么时候做了修改？
谢谢

pureshadow

Private Sub Workbook_beforeclose()
  Range("a65536").End(xlUp).Offset(1, 0) = Now
End Sub

以上是记录时间的，谁修改的很麻烦，如果只是记电脑名还好一点，但实际使用的人与电脑名未必一致。

[ 本帖最后由 pureshadow 于 2008-1-23 09:49 编辑 ]

liwen

Function ShowFileAccessInfo(filespec)
filespec=thisworkbook.fullname
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(filespec) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified & vbCrLf
    MsgBox s, 0, "File Access Info"
End Function

这个FSO也好象取不到修改者信息。但http://www.microsoft.com/china/t ... scripts/sg0305.mspx
提到的这个DsoFile却可以，但需下载文件
http://www.microsoft.com/downloa ... &DisplayLang=en