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

使用工作簿打开事件触发一个子循环通过所有工作表，使用超链接对象循环通过所有表的链接，然后使用单个超链接对象的属性执行所需操作。例如，使用Range属性并将链接转换为纯文本，删除它，等等。