Проверка открыт ли XLS другим пользователем - Страница 2

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка открыт ли XLS другим пользователем (Макросы/Sub)

Проверка открыт ли XLS другим пользователем

Alex_ST

Дата: Вторник, 25.03.2014, 21:00 | Сообщение № 21

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3206

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

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

2003

Цитата Hugo, 25.03.2014 в 14:09, в сообщении № 19

В B9 путь к файлу.

ПОЛНЫЙ путь!!!

P.S. Игорь, спасибо за ответ вместо меня - я весь день на объекте сидел, к компу не подходил.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

RAN

Дата: Вторник, 25.03.2014, 23:14 | Сообщение № 22

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата Hugo, 25.03.2014 в 14:09, в сообщении № 19

но кажется это ZVI

Макрос ZVI в той теме, что я не нашел
[vba]

Код

Function IsOpen(File$) As Boolean
     Dim FN%, FF$, a
     FN = FreeFile
     On Error Resume Next
     FF = Dir(File)
     If Err Then IsOpen = False: Exit Function
     If FF = "" Then IsOpen = False: Exit Function
     Open File For Random Access Read Write Lock Read Write As #FN
     Close #FN
     IsOpen = Err
End Function

[/vba]

А я у себя чуть подправил.

Быть или не быть, вот в чем загвоздка!

Ответить

Alex_ST

Дата: Воскресенье, 11.12.2016, 11:57 | Сообщение № 23

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3206

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

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

2003

Цитата RAN, 25.03.2014 в 23:14, в сообщении № 22 ()

Макрос ZVI в той теме, что я не нашел
[vba]

Код

Function IsOpen(File$) As Boolean
    Dim FN%, FF$, a
    FN = FreeFile
    On Error Resume Next
    FF = Dir(File)
    If Err Then IsOpen = False: Exit Function
    If FF = "" Then IsOpen = False: Exit Function
    Open File For Random Access Read Write Lock Read Write As #FN
    Close #FN
    IsOpen = Err
End Function

[/vba]
А я у себя чуть подправил.

Андрей, случайно наткнулся на твой код. Заинтересовался. У меня-то урезанный вариант.
Разбираю код. Не пойму, в каком случае возникнет ошибка при попытке назначения FF = Dir(File) :'(

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

GrIsle

Дата: Суббота, 15.02.2020, 02:17 | Сообщение № 24

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

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

Сообщений: 1

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

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

Excel 2019

У Гарнаева нашел функцию CanCheckOut. Вот пример кода из книги:
[vba]

Код

Sub q()
Debug.Print ActiveWorkbook.FullName
If Excel.Workbooks.CanCheckOut(sDir & "\" & sFile) Then
Debug.Print "Редактирование разрешено"
Else
Debug.Print "Редактирование запрещено"
End If
End Sub

[/vba]
sDir - путь к проверяемому файлу
sFile - имя проверяемого файла
P.S. для проверки режима доступа на домашнем компе можно создать нового пользователя, зайти в систему под новым пользователем и открыть проверяемый файл.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка открыт ли XLS другим пользователем (Макросы/Sub)

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