|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.05.2014, 12:31 | #1 |
Новичок
Джуниор
Регистрация: 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 Заранее спасибо) |
20.05.2014, 13:36 | #2 | |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
Цитата:
--- и пароль --один для всех или разные
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
|
20.05.2014, 16:38 | #3 |
Пользователь
Регистрация: 29.11.2011
Сообщений: 40
|
А почему нельзя создать шаблонный word документ в нем создать раздел 1 и 2.
И защищать только раздел 2. Или по другому написать макрос который будет вставлять раздел после заполнения шапки. Частичная зашита документа во вложении. |
23.05.2014, 14:37 | #4 |
Пользователь
Регистрация: 20.10.2009
Сообщений: 30
|
Дима, поясни, пожалуйста, как это реализовано. Спасибо, разобрался сам
Последний раз редактировалось Verbludov; 23.05.2014 в 16:46. |
21.10.2017, 19:07 | #5 |
Регистрация: 18.10.2017
Сообщений: 3
|
Скажите плиззз, код макроса который не дает редактировать второй раздел
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Защита документа 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 |