在多个人在同一个工作簿上工作的环境中,您可能需要一种方法来跟踪人们上次更改工作簿的时间。

您可以通过两种方法来完成此任务。一种是简单地找出工作簿的最后保存时间。如果您假定对工作簿的任何更改始终都在更改,则此方法效果很好。 (当然,未保存的更改实际上根本不是持久的更改。)以下宏返回工作簿的保存日期,并将该日期存储在单元格A1中:

Sub DateLastModified()

Dim fs, f     Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("D:\MyFolder\MyFile.xls")

Cells(1, 1) = f.DateLastModified End Sub

要使用该宏,只需将D:\ MyFolder \ MyFile.xls文件规范替​​换为适合您的文件。

如果您想知道谁对您的工作簿做了什么的历史记录表,则需要使用另一种方法。也许最好的解决方案是尝试使用Excel的共享功能,该功能可以配置为保留工作簿的历史日志。请按照下列步骤操作:

。从工具菜单中选择共享工作簿。 Excel将显示“共享工作簿”对话框。

。确保显示“编辑”选项卡。

。选择“允许更改”复选框。

。显示“高级”选项卡。

。确保选中“保留更改历史记录”单选按钮。

。使用对话框中的其他控件,选择要用于工作簿的跟踪选项。

。单击确定。

。从“工具”菜单中选择“跟踪更改”,然后从子菜单中选择“突出显示更改”。 Excel将显示“突出显示更改”对话框。

。确保选中“在新工作表上列出更改”复选框。

。单击确定。

在对工作簿进行更改时,Excel会跟踪这些更改(以及进行更改的人员)并将它们放在单独的工作表中,以便您以后可以进行查看。

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(2935)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: