Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
После "Общего доступа" не сохраняются изменения в VBA
 
#1
01.11.2016 12:46:00
Всем привет!
Делаю *.xlsm файл для общего доступа. Поскольку с общим доступом раньше никогда не сталкивался, каждый шаг проверяю на работоспособность.
Так вот, столкнулся с такой проблемой: открываю файл, снимаю общий доступ, делаю изменения в макросах, сохраняю, ставлю общий доступ.
Открываю снова - изменение нет. Единственный выход, после изменений "Сохранить как".
От этого можно уйти?
 
 
 
#2
01.11.2016 13:02:31
Проверил: изменения в макросе сохраняются.
 
 
 
#3
01.11.2016 13:04:49
Может это файл такой?
 
 
 
#4
01.11.2016 13:17:27
Файл при открытие дёргается и открывается не сразу.
Миш, проверь, КУДА у тебя происходит сохранение после изменений макроса? Есть подозрение, что открываешь старую версию файла - посмотри по времени ))
Я первый раз тоже не увидел изменений, а потом обнаружил, что сохранение происходит в папку по умолчанию. Т.е., у тебя две версии файла ))
 
 
 
#5
01.11.2016 13:18:56
Цитата
Михаил С. написал:
ставлю общий доступ.
Открываю снова - изменение нет
Где смотрим, Михаил? Для книг в общем доступе проект VBA не доступен ни для просмотра, ни для редактирования. Он Project is unviewiable.
Поэтому вряд ли Вы могли сравнить коды книги до установки общего доступа и после. Скорее всего, книга с кодами и книга с общим доступом - разные книги...Или я не так понял.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#6
01.11.2016 13:20:38
Дим, Миша сначала снимает общий доступ, а потом редактирует )
 
 
 
#7
01.11.2016 13:38:05
Цитата
Юрий М написал:
сохранение происходит в папку по умолчанию
Точно, сохраняет в документах.
Спасибо!

зы. Значит придется "Сохранить как" и указывать тот же файл...
Изменено: Михаил С. - 01.11.2016 13:42:32
 
 
 
#8
01.11.2016 13:46:25
Цитата
Михаил С. написал:
Значит придется "Сохранить как" и указывать тот же файл
Или переместить сохранённый  )
 
 
 
#9
01.11.2016 14:16:13
Наверно надо как-то переписать вот эту строчку
Код
ActiveWorkbook.SaveAs AccessMode:=xlShared
что бы сохранял по своему пути.
Пока не знаю как.
вот так:
Код
Sub DatDstup()
    'расшарить книгу
    Dim MyPath$, MyName$
    MyPath = ThisWorkbook.Path
    MyName = ThisWorkbook.Name
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs MyPath & "\" & MyName, AccessMode:=xlShared
End Sub
Изменено: Михаил С. - 01.11.2016 14:31:02
 
 
 
Страницы: 1
Наверх