Проверка есть ли кто-то в файле excel или нет!

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Проверка есть ли кто-то в файле excel или нет! (Формулы/Formulas)

otpbnvem

Дата: Суббота, 01.02.2025, 16:47 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

2148

Всем привет!

Суть такова, есть файл excel, он лежит на Яндекс.Диске к Яндекс.Диску имеют доступ много человек, если человек работает в файле excel и заходит другой человек с другого ПК создаётся задвоение файла.

Как быть чтобы если в файле кто то есть не пускать другого?

Файл не в общем доступе а просто лежит в облаке на ПК, и у других он также лежит на ПК в облаке!

От и ПБ

Ответить

2version

Дата: Суббота, 01.02.2025, 21:29 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте, предложу альтернативу - гугл таблицы. Таким образом все смогут заходить и редактировать кому Вы дадите доступ.

Ответить

2version

Дата: Суббота, 01.02.2025, 21:34 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 0% ±

Можно реализовать систему блокировки с помощью макроса VBA:

Когда пользователь открывает файл, создается скрытый временный файл (например, lock.txt).
Если файл уже открыт, новый пользователь увидит предупреждение и не сможет редактировать документ.
При закрытии Excel временный файл удаляется.

Пример VBA-кода для блокировки:

Код

Private Sub Workbook_Open()
    Dim lockFile As String
    lockFile = ThisWorkbook.Path & "\lock.txt"

    ' Проверяем, существует ли файл lock.txt
    If Dir(lockFile) <> "" Then
        MsgBox "Файл уже открыт другим пользователем!", vbExclamation, "Доступ запрещен"
        ThisWorkbook.Close False
        Exit Sub
    End If

    ' Создаем lock-файл
    Open lockFile For Output As #1
    Print #1, "Locked"
    Close #1
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Удаляем lock-файл при закрытии книги
    On Error Resume Next
    Kill ThisWorkbook.Path & "\lock.txt"
    On Error GoTo 0
End Sub

Ответить

Проверка есть ли кто-то в файле excel или нет! (Формулы/Formulas)

Страница 1 из 1
1