Шаг 1: Открытие редактора VBA

Первым делом нам нужно получить доступ к редактору VBA. Это можно сделать двумя способами:

• Нажмите сочетание клавиш Alt + F11.
• Перейдите на вкладку ‘Разработчик’ (если ее нет, активируйте через ‘Файл’ > ‘Параметры’ > ‘Настроить ленту’ > поставьте галочку напротив ‘Разработчик’) и нажмите кнопку ‘Visual Basic’.

Шаг 2: Выбор рабочего листа

В открывшемся окне редактора VBA слева вы увидите панель ‘Project Explorer’ (Обозреватель проектов). Найдите свою книгу Excel (например, ‘VBAProject (ИмяКниги.xlsm)’) и разверните ее. Затем разверните папку ‘Microsoft Excel Objects’.

Дважды кликните по имени листа, для которого вы хотите настроить открытие файлов (например, ‘Лист1 (Sheet1)’). Это откроет окно кода для выбранного листа.

Шаг 3: Вставка VBA-кода

В открывшееся окно кода вставьте следующий макрос:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim filePath As String
    Dim fso As Object ' Объект для проверки существования файла/папки

    ' Убедимся, что клик был по одной ячейке и она не пуста
    If Target.Cells.CountLarge > 1 Or IsEmpty(Target.Value) Then Exit Sub

    filePath = Trim(Target.Value) ' Получаем путь из ячейки и убираем лишние пробелы

    ' Проверяем, похоже ли содержимое ячейки на путь к файлу/папке или URL
    ' Поддерживаются локальные пути (C:\...), сетевые пути (\\server\share\) и веб-ссылки (http://, https://)
    If InStr(filePath, ":\", vbTextCompare) > 0 Or _
       InStr(filePath, "//", vbTextCompare) > 0 Or _
       InStr(filePath, "http", vbTextCompare) > 0 Then

        On Error GoTo ErrorHandler ' Включаем обработку ошибок для более надежной работы

        ' Попытка открыть как гиперссылку (для URL и некоторых локальных файлов)
        If InStr(filePath, "http", vbTextCompare) > 0 Then
            ThisWorkbook.FollowHyperlink Address:=filePath, NewWindow:=True
        Else
            ' Для локальных файлов/папок: проверяем существование перед открытием
            Set fso = CreateObject("Scripting.FileSystemObject")
            If fso.FileExists(filePath) Or fso.FolderExists(filePath) Then
                Shell "explorer.exe """ & filePath & """", vbNormalFocus
            Else
                MsgBox "Файл или папка не найдены по пути: " & filePath & vbCrLf & _
                       "Пожалуйста, проверьте корректность пути.", vbCritical, "Ошибка открытия файла"
            End If
        End If

        Cancel = True ' Отменяем стандартное действие двойного клика (редактирование ячейки)
    End If

    Exit Sub ' Выход из процедуры

ErrorHandler:
    MsgBox "Произошла непредвиденная ошибка при попытке открыть: " & filePath & vbCrLf & _
           "Возможно, путь некорректен, файл недоступен или отсутствуют необходимые разрешения.", vbCritical, "Ошибка открытия файла"
    Cancel = True ' Все равно отменяем стандартное действие
    Set fso = Nothing ' Освобождаем объект FileSystemObject
End Sub

Шаг 4: Сохранение книги с поддержкой макросов

Поскольку мы добавили VBA-код, вашу книгу Excel необходимо сохранить в формате, поддерживающем макросы. В противном случае макрос будет удален.

1. Перейдите в ‘Файл’ > ‘Сохранить как’.
2. В поле ‘Тип файла’ выберите ‘Книга Excel с поддержкой макросов’ (*.xlsm).
3. Нажмите ‘Сохранить’.

Шаг 5: Тестирование

Закройте редактор VBA и вернитесь в вашу книгу Excel. Введите в любую ячейку на листе, где вы вставили код, полный путь к файлу или папке на вашем компьютере (например, C:\МоиДокументы\Отчет.pdf или https://techworkplug.com). Теперь попробуйте дважды кликнуть по этой ячейке. Файл или ссылка должны открыться!