Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2010, 08:33   #1
КаМММ
Почти "Чайник"
Форумчанин
 
Аватар для КаМММ
 
Регистрация: 09.06.2008
Сообщений: 134
По умолчанию Если файл заблокирован другим процессом

Ситуация: несколько пользователей одновременно работают периодически добавляя макросом данные в Экселевский файл. ("Отгрузка.xls")
Как в момент попытки открытия макросом файла определить, что он не заблокирован другим пользователем (процессом записи)
КаМММ вне форума Ответить с цитированием
Старый 19.05.2010, 09:07   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Код:
Sub test()
    On Error Resume Next
    Application.DisplayAlerts = False    ' отключаем вывод предупреждений
    Filename = "C:\Documents and Settings\Игорь\Рабочий стол\Range2JPG.xls"
    Dim wb As Workbook: Set wb = Workbooks.Open(Filename)
    ' а теперь проверяем, в каком режиме открылся файл
    If wb.ReadOnly Then
        MsgBox "Файл открылся только для чтения"
        wb.ChangeFileAccess xlReadWrite    ' пытаемся получить полный доступ к файлу
    Else
        MsgBox "Полный доступ к файлу"
    End If
    Application.DisplayAlerts = True    ' включаем снова вывод предупреждений
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 20.05.2010, 00:12   #3
КаМММ
Почти "Чайник"
Форумчанин
 
Аватар для КаМММ
 
Регистрация: 09.06.2008
Сообщений: 134
По умолчанию

Спасибо. Какраз то, что и было нужно.
Как всегда оперативно и по существу.
Теперь у меня всё работает как надо.
КаМММ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определить каким процессом занят файл SibBear Win Api 4 24.01.2020 01:50
Файл занят другим процессом Adonidi Общие вопросы Delphi 4 25.03.2010 21:38
Если файл отсутствует, то создать NSvirus Паскаль, Turbo Pascal, PascalABC.NET 3 18.05.2009 19:23
Работа с файлом, занятым другим процессом Viteef Общие вопросы Delphi 3 10.05.2007 20:45