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

Question

我有一个与他们的电子邮件地址和网页的联系人共享数据库，但不希望他们超链接。我已经关闭了超链接的AutoFormat，并将它们从我自己的工作簿中全部删除，但它们对其他用户弹出。

有没有办法在其他用户打开工作簿时关闭它们的超链接或AutoFormatting？

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

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属性，将链接转换为纯文本，删除它，等等。