Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Некорректно работает макрос у разных пользователей - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Некорректно работает макрос у разных пользователей (Макросы/Sub)
Некорректно работает макрос у разных пользователей
Антон2577 Дата: Вторник, 20.07.2021, 12:00 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте! Нужна помощь. Имею книгу excel (сводная таблица) на дистанционном терминале (сервере), книга работает автономно, подтягивает инфу из других таблиц и выгружает копию сводной на другой сервер. Иногда требуется ручное обновление и сохранение книги. Так вот, один пользователь входи в терминал, запускает макрос, всё обновляется и сохраняется. Второй с помощью того же макроса обновляет книгу, но сохранить не может. Настройки «цента безопасности» в книге у обоих пользователей одинаковые. В чём беда?

[vba]
Код
[font=Times][font=Arial][color=#00FFFF][vba][code]Sub сохранить() ' сохранение Макрос
Dim temp As String, LocationT As String, Fullname As String
On Error Resume Next
KillTask
LocationT = "C:\Temp\"
temp = "temp" & ".xlsm"
Fullname = LocationT & temp
ThisWorkbook.SaveCopyAs Fullname
Workbooks.Open Filename:=Fullname[font=Arial]
Worksheets("Лист1").Range("A1").Value = Format(Now, "hh:mm (dd/mm/yy)")
Активный
ActiveWorkbook.SaveAs Filename:= _
"Z:\папка\папка2\Книга.xlsx", FileFormat:=51, ReadOnlyRecommended:=True
ActiveWorkbook.Close
DoEvents
Kill Fullname
backup
Appl_True
End Sub
[/vba][/color][/font][/font][/code][/vba]


Сообщение отредактировал Антон2577 - Вторник, 20.07.2021, 14:26
 
Ответить
СообщениеЗдравствуйте! Нужна помощь. Имею книгу excel (сводная таблица) на дистанционном терминале (сервере), книга работает автономно, подтягивает инфу из других таблиц и выгружает копию сводной на другой сервер. Иногда требуется ручное обновление и сохранение книги. Так вот, один пользователь входи в терминал, запускает макрос, всё обновляется и сохраняется. Второй с помощью того же макроса обновляет книгу, но сохранить не может. Настройки «цента безопасности» в книге у обоих пользователей одинаковые. В чём беда?

[vba]
Код
[font=Times][font=Arial][color=#00FFFF][vba][code]Sub сохранить() ' сохранение Макрос
Dim temp As String, LocationT As String, Fullname As String
On Error Resume Next
KillTask
LocationT = "C:\Temp\"
temp = "temp" & ".xlsm"
Fullname = LocationT & temp
ThisWorkbook.SaveCopyAs Fullname
Workbooks.Open Filename:=Fullname[font=Arial]
Worksheets("Лист1").Range("A1").Value = Format(Now, "hh:mm (dd/mm/yy)")
Активный
ActiveWorkbook.SaveAs Filename:= _
"Z:\папка\папка2\Книга.xlsx", FileFormat:=51, ReadOnlyRecommended:=True
ActiveWorkbook.Close
DoEvents
Kill Fullname
backup
Appl_True
End Sub
[/vba][/color][/font][/font][/code][/vba]

Автор - Антон2577
Дата добавления - 20.07.2021 в 12:00
китин Дата: Вторник, 20.07.2021, 13:41 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6495
Репутация: 992 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Антон2577, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеАнтон2577, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 20.07.2021 в 13:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Некорректно работает макрос у разных пользователей (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!