VBA Excel 2019：打开时为所有用户关闭工作簿的超链接

Question

我有一个共享的联系人数据库，其中包含他们的电子邮件地址和网页，但不希望它们超链接。我已经关闭了超链接的自动套用格式，并为自己从工作簿中删除了它们，但它们会为其他用户弹出。

有没有办法在其他用户打开工作簿时为他们关闭超链接或自动套用格式？

对于另一个工作簿，我让它在打开时自动启用迭代计算，但不确定如何或是否可以以相同的方式关闭超链接？

Dim SaveIteration As Boolean

Private Sub Workbook_Open()
SaveIteration = Application.Iteration
Application.Iteration = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Iteration = SaveIteration

End Sub

Answer 1

使用workbook open event 触发一个循环遍历所有工作表的子程序，使用hyperlinks object 循环遍历所有工作表的链接，然后使用单个hyperlink objects 的属性来执行您想要的操作。例如使用Range 属性并将链接转换为纯文本，删除它，无论如何。