Как поиздеваться над сервисным инженером...

[admin]

если есть возможность, повотрите
интересно было

повторили 
protz написал

Реализуется просто, запускаем ворду, жмём Alt-F11, появляется Microsoft Visual Basic.
Раскрываем плюсик рядом с normal(в левом верхнем углу), далее с Microsoft Word Objects, дважды левой кнопкой мыши щёлкаем на This Document. Правее белое непаханое поле, туда вставляем этот код :
Код:
Dim X As New Class1

Private Sub Document_New()
   Set X.App = Word.Application
End Sub

Private Sub Document_Open()
   Set X.App = Word.Application
End Sub

Щёлкаем на This Document правой кнопкой мыши, выбираем в появившемся контекстном меню Insert>Class Module. Он собственно и появится, на него дважды левой и в белое поле вставляем это:
Код:
Public WithEvents App As Word.Application

Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
MsgBox "В падлу мне печатать", vbCritical, "Вот так"
Cancel = True
End Sub

Жмём Ctrl+S, чтобы сохранить это безобразие, закрываем Microsoft Visual Basic. В самом вордовом документе заходим в Сервис>Параметры, на вкладке Безопасность жмём кнопку Защита от макросов, там выставляем защиту как низкую. Закрываем ворду. Всё. При последующих запусках в печати будет отказано.

[Ярек Лама]

[Rad]

А кто пробовал "поиздеваться", в пятак еще никто не получал? Отзовитесь...

[Barmen]

Интересно попробовать... только вот интересно еще как все на место вернуть, чтоб точно по чайнику не получить... Или просто нужно поставить защиту от макросов повыше?Или как?...

[padre]

Неужели сисадмин ничего не поймет? Первым делом валится файлик normal.dot, в котором и прописывается данный скрипт.))))) Тем более если при какой-либо операции выдается какое-либо сообщение.

[Тос]

гораздо проще или шаблоны с заведомо рабочей машины переставить или ворд грохнуть, а потом  заодно и юзера))

[Chuck]

Убрать всё проще простого - тупо стереть код. Поймёт ли сисадмин - зависит от конкретного сисадмина.

А так чего уж там шаблоны переставлять, ворд. Сразу уж винт форматнуть, винду переставить и т.д.

[LUTSK]

После всего прочитаного и предложеного мне уже их (сисадмина) просто жалко. Я уже вижу как он виснет и плати в голове горят.Если это делать регулярно то и в дурдом его могут забрать

[ahsas]

Сообщение "Как поиздеваться над сервисным инженером..". - "Как поиздеваться над неопытным сервисным инженером..." .т.к. при грамтно поставленной групповой политике сисадмин не позволит над собой издеваться