Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2014, 12:31   #1
GPotom
Новичок
Джуниор
 
Регистрация: 16.05.2014
Сообщений: 1
По умолчанию Защита документа Word

Добрый день!
Помогите пожалуйста решить задачу. Данные из EXCEL тянутся в WORD, и сразу ставится зашита на документ WORD. Как сделать(средствами VBA), чтобы под защиту не попадала часть документа(шапка с наименованием контрагентов будет меняться). Документов код генерирует около 100 и открывать каждый ставить частичную защиту руками с ума сойдешь.
Есть код:
Sub OpenWord()
Dim objWrdApp As Object, objWrdDoc As Object

Set objWrdApp = CreateObject("Word.Application")

objWrdApp.Visible = True

Set objWrdDoc = objWrdApp.Documents.Open("\\....... .com\dfs\Desktop\sanalyt\такой-то.docx")

objWrdDoc.Bookmarks("Period1").Rang e.Text = Range("B2")
objWrdDoc.Bookmarks("Period2").Rang e.Text = Range("C2")

objWrdDoc.Bookmarks("Plan1").Range. Text = Range("C39")
objWrdDoc.Bookmarks("Plan2").Range. Text = Range("B39")
objWrdDoc.Bookmarks("Plan3").Range. Text = Range("D39")


objWrdDoc.Protect Password:="1", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False


objWrdDoc.SaveAs ("\\........com\dfs\Desktop\sanalyt \такой-то.docx")


objWrdApp.Quit
Set objWrdDoc = Nothing
Set objWrdApp = Nothing

End Sub



Заранее спасибо)
GPotom вне форума Ответить с цитированием
Старый 20.05.2014, 13:36   #2
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

Цитата:
чтобы под защиту не попадала часть документа(шапка с наименованием контрагентов будет меняться).
вы бы примерчик приложили, а то туго понимаются ваши желания
---
и пароль --один для всех или разные
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 20.05.2014, 16:38   #3
Dima_com
Пользователь
 
Регистрация: 29.11.2011
Сообщений: 40
По умолчанию

А почему нельзя создать шаблонный word документ в нем создать раздел 1 и 2.
И защищать только раздел 2.
Или по другому написать макрос который будет вставлять раздел после заполнения шапки. Частичная зашита документа во вложении.
Вложения
Тип файла: doc Пример.doc (19.5 Кб, 26 просмотров)
Dima_com вне форума Ответить с цитированием
Старый 23.05.2014, 14:37   #4
Verbludov
Пользователь
 
Регистрация: 20.10.2009
Сообщений: 30
По умолчанию

Цитата:
Сообщение от Dima_com Посмотреть сообщение
Частичная зашита документа во вложении.
Дима, поясни, пожалуйста, как это реализовано. Спасибо, разобрался сам

Последний раз редактировалось Verbludov; 23.05.2014 в 16:46.
Verbludov вне форума Ответить с цитированием
Старый 21.10.2017, 19:07   #5
elanskie
 
Регистрация: 18.10.2017
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Dima_com Посмотреть сообщение
А почему нельзя создать шаблонный word документ в нем создать раздел 1 и 2.
И защищать только раздел 2.
Или по другому написать макрос который будет вставлять раздел после заполнения шапки. Частичная зашита документа во вложении.
Скажите плиззз, код макроса который не дает редактировать второй раздел
elanskie вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Защита документа ms word 2003 Hant111 Microsoft Office Word 0 16.10.2012 20:21
Защита документа word от распечатывания и копирования Святой Дьявол Microsoft Office Word 11 18.11.2010 11:57
Защита документа от копирования. stas77 Microsoft Office Excel 8 22.02.2010 14:45