Возможно тема уже неактуальна, но можно вообще забить на проблему юзер-агента и тугодумство офиса.
Сначала нужно отключить автозамену адресов интернета гиперссылками – при вставке новых адресов и изменении ячеек с существующими они не будут преобразовываться в гиперссылки (скриншот Excel 2013):
» Спойлер (нажмите, чтобы прочесть) «
Затем запускается макрос (в
стандартном модуле), удаляющий все гиперссылки в книге (стиль гиперссылок для ячеек сохраняется):
(На месте
FireFox(x86) в
BrowserPath, понятное дело, может быть указан любой другой)
Код
Option Explicit
Public Const BrowserPath As String = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
Sub DeleteLinks()
Dim CellAdr As String
Dim LinkItem As Hyperlink
Dim SheetItem As Worksheet
For Each SheetItem In Worksheets
For Each LinkItem In SheetItem.Hyperlinks
CellAdr = LinkItem.Range.Address
LinkItem.Delete
SheetItem.Range(CellAdr).Style = "Hyperlink"
Next
Next
End Sub
Во все
модули листа (увы, вручную) вставляется следующий код:
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Left(LTrim(Target.Value), 7) = "http://" Or Left(LTrim(Target.Value), 8) = "https://" Then
Shell BrowserPath & " " & Target.Value
Cancel = True
End If
End Sub
Теперь при двойном клике по ссылке последняя откроется непосредственно в браузере, без лишних офисных выкрутасов. Двойной клик по ячейке со ссылкой теперь не будет переводить её в режим редактирования, впрочем, F2 работает, как и раньше.