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

Вход

Регистрация

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

 

= Мир MS Excel/Код макроса в листе excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Код макроса в листе excel
LepreX Дата: Вторник, 07.05.2019, 12:51 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2016
Всем привет.
У меня есть файл с макросами, которым пользуется несколько человек на разных ПК.
Файл имеет связь с другим файлом общего диска и подтягивает оттуда данные.
Возможно ли сделать так, чтобы в скрытых листах были эти самые макросы.
В свою очередь эти макросы были бы в файле на общем диске.
И тогда, при внесении изменений в макрос, не нужно было бы рассылать новую версию, а просто в макрос подтягивался нужный код из общего диска.
Или же есть иной способ?


Сообщение отредактировал LepreX - Вторник, 07.05.2019, 13:00
 
Ответить
СообщениеВсем привет.
У меня есть файл с макросами, которым пользуется несколько человек на разных ПК.
Файл имеет связь с другим файлом общего диска и подтягивает оттуда данные.
Возможно ли сделать так, чтобы в скрытых листах были эти самые макросы.
В свою очередь эти макросы были бы в файле на общем диске.
И тогда, при внесении изменений в макрос, не нужно было бы рассылать новую версию, а просто в макрос подтягивался нужный код из общего диска.
Или же есть иной способ?

Автор - LepreX
Дата добавления - 07.05.2019 в 12:51
and_evg Дата: Вторник, 07.05.2019, 12:57 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 465
Репутация: 79 ±
Замечаний: 0% ±

Excel 2007
Добрый день
Или же есть мной способ?

Сохранить данный файл на общем диске как надстройку. А у пользователях прописать этот каталог в автозагрузке Экселя. и при надобности подменять его
 
Ответить
СообщениеДобрый день
Или же есть мной способ?

Сохранить данный файл на общем диске как надстройку. А у пользователях прописать этот каталог в автозагрузке Экселя. и при надобности подменять его

Автор - and_evg
Дата добавления - 07.05.2019 в 12:57
LepreX Дата: Вторник, 07.05.2019, 12:59 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2016
К сожалению нет доступа к пользовательским ПК...
 
Ответить
СообщениеК сожалению нет доступа к пользовательским ПК...

Автор - LepreX
Дата добавления - 07.05.2019 в 12:59
boa Дата: Вторник, 07.05.2019, 14:52 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 559
Репутация: 167 ±
Замечаний: 0% ±

365
К сожалению нет доступа к пользовательским ПК...

Но пользователи ж запускают ваш файл с макросами?
пропишите в макросах автозагрузку нужного файла или подключите сетевой файл с макросами в референсах рабочих файлов. Только в настройках файла с макросами пропишите, что бы он открывался у пользователей только в чтении, или же не сможете его потом править.
Например:
[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]




Сообщение отредактировал boa - Вторник, 07.05.2019, 14:53
 
Ответить
Сообщение
К сожалению нет доступа к пользовательским ПК...

Но пользователи ж запускают ваш файл с макросами?
пропишите в макросах автозагрузку нужного файла или подключите сетевой файл с макросами в референсах рабочих файлов. Только в настройках файла с макросами пропишите, что бы он открывался у пользователей только в чтении, или же не сможете его потом править.
Например:
[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]

Автор - boa
Дата добавления - 07.05.2019 в 14:52
  • Страница 1 из 1
  • 1
Поиск:

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