Всем привет. У меня есть файл с макросами, которым пользуется несколько человек на разных ПК. Файл имеет связь с другим файлом общего диска и подтягивает оттуда данные. Возможно ли сделать так, чтобы в скрытых листах были эти самые макросы. В свою очередь эти макросы были бы в файле на общем диске. И тогда, при внесении изменений в макрос, не нужно было бы рассылать новую версию, а просто в макрос подтягивался нужный код из общего диска. Или же есть иной способ?
Всем привет. У меня есть файл с макросами, которым пользуется несколько человек на разных ПК. Файл имеет связь с другим файлом общего диска и подтягивает оттуда данные. Возможно ли сделать так, чтобы в скрытых листах были эти самые макросы. В свою очередь эти макросы были бы в файле на общем диске. И тогда, при внесении изменений в макрос, не нужно было бы рассылать новую версию, а просто в макрос подтягивался нужный код из общего диска. Или же есть иной способ?LepreX
Сообщение отредактировал LepreX - Вторник, 07.05.2019, 13:00
Сохранить данный файл на общем диске как надстройку. А у пользователях прописать этот каталог в автозагрузке Экселя. и при надобности подменять егоand_evg
Но пользователи ж запускают ваш файл с макросами? пропишите в макросах автозагрузку нужного файла или подключите сетевой файл с макросами в референсах рабочих файлов. Только в настройках файла с макросами пропишите, что бы он открывался у пользователей только в чтении, или же не сможете его потом править. Например: [vba]
Код
Private Sub Workbook_Open() If not Environ("USERNAME") = "Имя авторизации в винде" Then Me.ChangeFileAccess xlReadOnly End If Debug.Print "Файл " & ThisWorkbook.FullName & vbCrLf & "открыт на компьютере " & Environ("ComputerName") & "(User:" & _ Environ("UserName") & ") Пользователем " & Application.UserName & IIf(ThisWorkbook.ReadOnly, " для чтения", " для записи") End Sub
Но пользователи ж запускают ваш файл с макросами? пропишите в макросах автозагрузку нужного файла или подключите сетевой файл с макросами в референсах рабочих файлов. Только в настройках файла с макросами пропишите, что бы он открывался у пользователей только в чтении, или же не сможете его потом править. Например: [vba]
Код
Private Sub Workbook_Open() If not Environ("USERNAME") = "Имя авторизации в винде" Then Me.ChangeFileAccess xlReadOnly End If Debug.Print "Файл " & ThisWorkbook.FullName & vbCrLf & "открыт на компьютере " & Environ("ComputerName") & "(User:" & _ Environ("UserName") & ") Пользователем " & Application.UserName & IIf(ThisWorkbook.ReadOnly, " для чтения", " для записи") End Sub