Нужна помощь по макросу VBA - Microsoft Office Word - Страница 2

viter.alex · 26.02.2009, 23:06

Эта строка устанавливает защиту докумета, позволяя его только читать.
Замени ее на эту и тот же пароль будет установлен и на защиту от редактирования

Код:

.Protect Type:=wdAllowOnlyReading, Password:=sPass

corematt · 26.02.2009, 23:46

Хм... точно так? все равно не позволяет редактировать.

viter.alex · 27.02.2009, 09:19

Цитата:

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

Хм... точно так? все равно не позволяет редактировать.

Теперь, чтобы редактировать, нужно снять защиту с документа. А чтобы ее снять, нужно знать пароль.
Т.е. в документе два пароля. Один на открытие документа, другой — на снятие защиты от редактирования. Первый пароль запрашивается всегда при открытии, второй — только при попытке снять защиту. При попытке редактировать ничего происходить не будет, пароль тоже не будет запрашиваться.

corematt · 27.02.2009, 11:01

О! Да, действительно так. Спасибо! Спасибо! Спасибо!
Но сейчас пароль один и тот же и на открытие и на защиту.

Как я понимаю, если вставить:

Код:

sPass2 = InputBox("Введите пароль на снятие защиты ", "Ввод пароля")

и

Код:

.Protect Type:=wdAllowOnlyReading, Password:=sPass2

то можно задать пароль на защиту отдельно. Прелестно!

viter.alex · 27.02.2009, 11:03

Цитата:

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

…Как я понимаю,…

Приятно с умным человеком поговорить

Но хочу заметить, что такая защита ломается на раз-два

26.02.2009, 23:06	#11
viter.alex Балуюсь кодами Участник клуба Регистрация: 09.01.2009 Сообщений: 1,837	Эта строка устанавливает защиту докумета, позволяя его только читать. Замени ее на эту и тот же пароль будет установлен и на защиту от редактирования Код: `.Protect Type:=wdAllowOnlyReading, Password:=sPass` Лучше день потерять — потом за пять минут долететь!©

27.02.2009, 11:01	#14
corematt Регистрация: 26.02.2009 Сообщений: 7	О! Да, действительно так. Спасибо! Спасибо! Спасибо! Но сейчас пароль один и тот же и на открытие и на защиту. Как я понимаю, если вставить: Код: `sPass2 = InputBox("Введите пароль на снятие защиты ", "Ввод пароля")` и Код: `.Protect Type:=wdAllowOnlyReading, Password:=sPass2` то можно задать пароль на защиту отдельно. Прелестно!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Работа с MS Word с помощью VBA. Нужна помощь.	ereality	Microsoft Office Word	5	28.05.2008 18:50
Пользовательская форма к макросу	Flangini	Microsoft Office Excel	6	23.04.2008 13:39
Нужна помощь!	Teodor_Bagwell	Общие вопросы Delphi	6	11.02.2007 16:45

26.02.2009, 23:46	#12
corematt Регистрация: 26.02.2009 Сообщений: 7	Хм... точно так? все равно не позволяет редактировать.