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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.06.2010, 08:49   #1
Saladin
Пользователь
 
Аватар для Saladin
 
Регистрация: 27.10.2008
Сообщений: 23
По умолчанию Общий доступ - конфликт изменений при сохранении

Суть вопроса - есть книга открытая в режиме общего доступа.
В книге есть лист, на котором заполняются заявки.
К книге написан макрос, который при изменении значения в 8 столбце заполняет дату, время и пользователя, создавшего строку - как реализовано - в конце темы.
Заполняется пользователем сначала 8-ой столбей, затем остальные.

А теперь вопрос - довольно часто возникает ситуация (2-3 раза в день точно) когда случается конфликт изменений при сохранении книги (почему возникает - понять не могу - если бы понял - было бы проще) - пишется что в эту же ячейку (в 8-ом столбце) внес изменения другой пользователь и предлагает либо сохранить свои изменения, либо изменения пользователя, либо отмена без сохранения.

Что можно сделать что бы конфликта не было - мож кто встречался с таким и знает как решить проблему, т.к. даже искуственно замоделировать такую ситуацию у меня не получилось...


Код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 8 Or Target.Value = "" Then Exit Sub
f = Заполнение(Target)
End Sub
Код:
Function Заполнение(Target As Range)
If Target.Column = 8 And Cells(Target.Row, 2) = "" Then
ActiveWorkbook.Save
on error resume next
        Cells(Target.Row, 2).NumberFormat = "h:mm"
    Cells(Target.Row, 2).Value = Time
        Cells(Target.Row, 1).NumberFormat = "DD.MM.YYYY"
    Cells(Target.Row, 1).Value = Date
    Cells(Target.Row, 4).Value = environ("Username")
End If
End Function
Saladin вне форума Ответить с цитированием
Старый 16.06.2010, 20:39   #2
MonsterBeer
 
Регистрация: 16.06.2010
Сообщений: 6
По умолчанию

поможет раздача прав на правку ячеек?
Или все равны?
MonsterBeer вне форума Ответить с цитированием
Старый 21.06.2010, 06:50   #3
Saladin
Пользователь
 
Аватар для Saladin
 
Регистрация: 27.10.2008
Сообщений: 23
По умолчанию

Цитата:
Сообщение от MonsterBeer Посмотреть сообщение
поможет раздача прав на правку ячеек?
Или все равны?
все равны.
а что имеется в виду под раздачей прав на правку ячеек?
Saladin вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
открыть общий доступ к папке. Chudo4258 Помощь студентам 7 18.02.2012 12:57
Общий доступ к защищенному листу zakv Microsoft Office Excel 0 16.10.2009 10:34
Вопрос о сохранении изменений Sebastian Microsoft Office Word 4 09.09.2009 09:43
Общий доступ к проекту DiamondCoder Софт 4 11.03.2009 13:49
Общий доступ в интернет HAMMAN Свободное общение 1 06.08.2007 20:41