Некорректно работает макрос у разных пользователей

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Некорректно работает макрос у разных пользователей (Макросы/Sub)

Антон2577

Дата: Вторник, 20.07.2021, 12:00 | Сообщение № 1

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

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

Сообщений: 2

Репутация: 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]