Запрет на сохранение и печать (word,excel)

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
zippers
Сообщения: 1
Зарегистрирован: 25 авг 2010, 02:00

Здрасвуйте,хотел бы поинтересоваться как это можно реализовать!!?? и можно ли вообще...
P.s с макросами сталкиваюсь в первые если можно то все разжевать..
Аватара пользователя
EducatedFool
Сообщения: 197
Зарегистрирован: 06 апр 2008, 14:03
Откуда: Россия, Урал
Контактная информация:

Реализовать можно - если включены макросы.
Достаточно их отключить (или забыть включить) - и запреты действовать не будут.

Проще попробовать организовать эти запреты средствами Windows.
Макросы для Excel, Word, CorelDRAW. Быстро, профессионально, недорого. http://ExcelVBA.ru/

Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Аватара пользователя
AlexZZZ
Сообщения: 237
Зарегистрирован: 01 июн 2007, 00:27
Откуда: Москва и область

Для Excel: в модуль книги ("ЭтаКнига") поместите нижеприведённый код.

Код: Выделить всё

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   MsgBox "Нельзя сохранить эту книгу!"
   Cancel = True
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
   MsgBox "Печать этой книги запрещена!"
   Cancel = True
End Sub
Ответить