杰克喜欢他的Excel超链接以显示它们已被访问。

不幸的是，当他保存工作簿时，它们都将重置为未访问状态。杰克想知道是否有某种方式可以使“访问”

他的超链接的状态在保存操作后仍然有效。

我们无法发现这样做的方法。我们能找到的最接近的方法是检查是否跟随超链接，然后以某种方式指示具有条件或值的状态，该状态或值在保存操作后仍然有效。例如，考虑以下宏：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim wks As Worksheet     Dim hl As Hyperlink     Application.ScreenUpdating = False     For Each wks In ThisWorkbook.Worksheets         For Each hl In wks.Hyperlinks             If hl.Parent.Interior.ColorIndex = 37 Then                 hl.Parent.Interior.ColorIndex = xlNone                 hl.Parent.Style = "Followed Hyperlink"

End If         Next hl     Next wks     Application.ScreenUpdating = True End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Target.Parent.Interior.ColorIndex = 37 End Sub

每次跟随超链接时，都会运行第二个宏。它设置包含超链接的单元格的颜色。然后，在保存工作簿时，运行第一个宏。它检查所有包含超链接的单元格，如果它们的内部颜色是“键”色（颜色值为37），则该单元格的样式将设置为名为“跟随的超链接”的样式。单元格的这种样式设置将在保存操作后继续有效；唯一需要做的就是确保已定义要显示的样式，以使您想要的跟随的超链接出现。

应该指出，这两个宏应添加到工作簿的ThisWorkbook模块中。为此，显示Visual Basic编辑器，然后在项目资源管理器中双击ThisWorkbook模块。然后，您可以将宏粘贴到结果代码窗口中。

注意：

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

点击此处在新的浏览器标签中打开该特殊页面。

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

本技巧（7198）适用于Microsoft Excel 2000、2002和2003。