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

Question

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

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

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

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

使用工作簿打开事件触发一个子程序，该子程序循环所有工作表，使用超链接 object循环所有工作表的链接，然后使用各个超链接对象的属性来执行您想要的操作。 例如，使用Range属性并将链接转换为纯文本，删除它等等。