Привязка шаблона к компьютеру для его неработоспособности на других

@Razvedka2020 · Регистрация: 01.01.2014

Студворк — интернет-сервис помощи студентам

Доброго времени суток уважаемые форумчане. В принципе сам вопрос изложен в теме. Сразу покаюсь-искал сам, но возможно плохо. Имеется шаблон Word (никакой коммерции) облегчающий жизнь мне и моей коллеги, но также имеются другие коллеги (редиски) которые хотят его себе заполучить. Я бы поделился, я не жадный, но они позволили себе высказаться о моей бесполезности в отделе и тунеядстве, а так же самовольно скопировали себе (в мое отсутствие) несколько моих наработок (шаблонов). Как можно привязать шаблон к конкретному компьютеру, чтобы на других он просто закрывался автоматом при открытии? Супер-пупер защита не нужна, достаточно примитива, так как не все мои коллеги знают что такое VBA и что дает Alt+F11

Заранее спасибо.

@Евгений С · 09.10.2014, 14:32

Razvedka2020, давай другой вопрос в другой теме?
не усложняй навигацию по форуму, пожалей тех, кто придёт позже.

@Surrogate · 09.10.2014, 14:38

Сообщение от Razvedka2020

Всем огромное человеческое спасибо!

можно я еще немного почешу здесь свое ЧСВ.
мой хрестоматийный пример.
наша контора выступала в качестве субподрядчика нужно было сделать типовую документацию на чуть менее, чем 2000 узлов.
Исходники из себя представляли 3 файла ворд и 1 файл визио.

код сидел в файле экселя, в этом же экселе была таблица со всей информацией которую нужно было запихать в документы ворд и визио.
Информация заполнялась, каждый файл экспортировался в pdf. из этих 4 файлов склеивался программно итоговый документ.

Выдали подрядчику (нашему непосредственному нанимателю) эти pdf-ки. Он в шоке, как вы смогли так быстро это сделать. Они равнозначный объем делали 2 месяца. А мы 3 недели. Кто-то из наших манагеров обмолвился про некие макросы. Наш наниматель затребовал исходники в ворде и визио. Ну скинули им на фтп (выкачивали сутки), записали на 3 DVD этих исходников объемом чуть более 10Гигов. А мое ноу-хау им не досталось

Добавлено через 4 минуты

Сообщение от Razvedka2020

А как отключать документ от шаблона?

Visual Basic
1
2
3
4
With ActiveDocument
        .UpdateStylesOnOpen = False
        .AttachedTemplate = ""
End With

@Евгений С · 09.10.2014, 15:00

Surrogate,

ты велик!!!
Razvedka2020, конкретно твой макрос неизвестен, но зафиксированы случаи, когда готовые документы отправлялись заказчику, содержа в себе макрос, пусть и без возможности запуска, но даже незапороленый.
При попытке открыть их появлялось сообщение "включить макросы? Доверяете ли?", после чего юзер шёл в яндекс, со словом "макрос" узнавал про альт+ф11, ни чего не понимал в прочитанном, но подогретый праздным любопытством создавал тут топик "что делает этот макрос" и сливал весь код, в котором были и имя подрядной организации и заказчика и идентификация пользователя с запросом прав куда более сложная и интимная, чем описанная тут...
Топик удаляли в течении суток, но до прихода админа он копипастился фор лулз)))

@Surrogate · 09.10.2014, 16:08

Не по теме:

Евгений С, пример из озвученного тобой

Сообщение от LIDOKK

Напишите, пожалуйста, подробнее где и как Alt+F11

. а того примера, когда код ломился на сервер очень серьезной компании я не успел сохранить :rofl:

@Razvedka2020 · 10.10.2014, 05:26 **[ТС]**

Всем еще раз огромное спасибо. Столько советов, что аж глаза разбегаются и слюни текут

Считаю что тему можно закрыть.

@dzug · 10.10.2014, 08:52

Можно привязать к видиокарте:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub видиокарта()
On Error Resume Next
strComputer$ = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_DisplayConfiguration")
For Each objItem In colItems
  MsgBox "Device Name: " & objItem.DeviceName
Next
End Sub

Вот целый "букет" параметров видиокарты.Выбирайте любой.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Видио_Картаа()
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set VideoController = objService.ExecQuery("SELECT * FROM Win32_VideoController")
For Each objVideo In VideoController
VidInfa$ = objVideo.SystemName 'имя компьютера
VidInfa$ = VidInfa$ & vbCrLf & objVideo.Caption 'наименование устройства
VidInfa$ = VidInfa$ & vbCrLf & objVideo.Description  'описание устройства
VidInfa$ = VidInfa$ & vbCrLf & objVideo.DeviceID  'идентификатор устройства
VidInfa$ = VidInfa$ & vbCrLf & objVideo.AdapterRAM  'размер памяти видеоадаптера
VidInfa$ = VidInfa$ & vbCrLf & objVideo.CurrentHorizontalResolution  'текущее разрешение экрана по горизонтали (точек)
VidInfa$ = VidInfa$ & vbCrLf & objVideo.CurrentVerticalResolution 'текущее разрешение экрана по вертикали (точек)
VidInfa$ = VidInfa$ & vbCrLf & objVideo.CurrentNumberOfColors  'число цветов в текущем разрешении экрана
VidInfa$ = VidInfa$ & vbCrLf & objVideo.VideoModeDescription  'текущее разрешение экрана и число цветов
VidInfa$ = VidInfa$ & vbCrLf & objVideo.CurrentBitsPerPixel  'качество цветопередачи (количество бит на пиксель)
VidInfa$ = VidInfa$ & vbCrLf & objVideo.CurrentRefreshRate  'частота обновления экрана, Гц
'(0 - по умолчанию, 0xFFFFFFFF - оптимальная)
VidInfa$ = VidInfa$ & vbCrLf & objVideo.DriverDate  'дата-время последней модификации текущего видеодрайвера
VidInfa$ = VidInfa$ & vbCrLf & objVideo.DriverVersion  'версия текущего видеодрайвера
VidInfa$ = VidInfa$ & vbCrLf & objVideo.PNPDeviceID  'идентификатор устройства Plug-and-Play
VidInfa$ = VidInfa$ & vbCrLf & objVideo.VideoProcessor  'описание видеопроцессора
Next
MsgBox VidInfa$
End Sub

@snipe · 10.10.2014, 09:24

можно привязаться к серийному номеру диска С
например так

Visual Basic
1
2
3
4
5
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DriveC = FSO.GetDrive("C:")
If DriveC.SerialNumber <> -1037302179 Then MsgBox "Прочь руки от моего файла"
Set DriveC = Nothing
Set FSO = Nothing

в данном случае прежде чем использовать этот код надо узнать номер диска
вместо

Visual Basic
1
If DriveC.SerialNumber <> -1037302179 Then MsgBox "Прочь руки от моего файла"

пишем

Visual Basic
1
Msgbox DriveC.SerialNumber

записываем то что выдаст сообщение и подставляем в условие

при сильном желании защиту можно обойти

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Razvedka2020 40 / 35 / 9 Регистрация: 01.01.2014 Сообщений: 202

	Привязка шаблона к компьютеру для его неработоспособности на других 09.10.2014, 12:26. Показов 3712. Ответов 26 Метки нет (Все метки) Доброго времени суток уважаемые форумчане. В принципе сам вопрос изложен в теме. Сразу покаюсь-искал сам, но возможно плохо. Имеется шаблон Word (никакой коммерции) облегчающий жизнь мне и моей коллеги, но также имеются другие коллеги (редиски) которые хотят его себе заполучить. Я бы поделился, я не жадный, но они позволили себе высказаться о моей бесполезности в отделе и тунеядстве, а так же самовольно скопировали себе (в мое отсутствие) несколько моих наработок (шаблонов). Как можно привязать шаблон к конкретному компьютеру, чтобы на других он просто закрывался автоматом при открытии? Супер-пупер защита не нужна, достаточно примитива, так как не все мои коллеги знают что такое VBA и что дает Alt+F11 Заранее спасибо. 0

@Евгений С самый вменяемый тролль 564 / 52 / 8 Регистрация: 19.09.2012 Сообщений: 193
	09.10.2014, 14:32
	Razvedka2020, давай другой вопрос в другой теме? не усложняй навигацию по форуму, пожалей тех, кто придёт позже. 0

@Евгений С самый вменяемый тролль 564 / 52 / 8 Регистрация: 19.09.2012 Сообщений: 193
	09.10.2014, 15:00
	Surrogate, ты велик!!! Razvedka2020, конкретно твой макрос неизвестен, но зафиксированы случаи, когда готовые документы отправлялись заказчику, содержа в себе макрос, пусть и без возможности запуска, но даже незапороленый. При попытке открыть их появлялось сообщение "включить макросы? Доверяете ли?", после чего юзер шёл в яндекс, со словом "макрос" узнавал про альт+ф11, ни чего не понимал в прочитанном, но подогретый праздным любопытством создавал тут топик "что делает этот макрос" и сливал весь код, в котором были и имя подрядной организации и заказчика и идентификация пользователя с запросом прав куда более сложная и интимная, чем описанная тут... Топик удаляли в течении суток, но до прихода админа он копипастился фор лулз))) 1

@Razvedka2020 40 / 35 / 9 Регистрация: 01.01.2014 Сообщений: 202
	10.10.2014, 05:26 [ТС]
	Всем еще раз огромное спасибо. Столько советов, что аж глаза разбегаются и слюни текут Считаю что тему можно закрыть. 0