Вопрос № 39547: Здравствуйте уважаемые эксперты.
У меня возник следующий вопрос.
Можно ли средствами VBA закодировать информацию документа Word.
Как известно, когда мы ставим на файл пароль, информация кодируется. Мне надо, чтобы она кодировалась, но зак...
Вопрос № 39.547
Здравствуйте уважаемые эксперты.
У меня возник следующий вопрос.
Можно ли средствами VBA закодировать информацию документа Word.
Как известно, когда мы ставим на файл пароль, информация кодируется. Мне надо, чтобы она кодировалась, но закодированный файл бы открывался без запроса пароля.
Заранее благодарю.
Отправлен: 06.04.2006, 14:54
Вопрос задал: Art7 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: AlexanderZh
Здравствуйте, Art7!
это установка пароля на изменение файла
With ActiveDocument
.ReadOnlyRecommended = True
.WritePassword = "123456"
End With
Ответ отправил: AlexanderZh (статус: 5-ый класс)
Ответ отправлен: 06.04.2006, 16:31 Оценка за ответ: 3 Комментарий оценки: Требуется не запретить его изменять, а именно закодировать - чтобы текст не читался.
Отвечает: EPDSota
Здравствуйте, Art7!
такого еще не сделали, чтоб можно было видеть... можешь зашифровать и
расшифровать сам, например так:
sub Encode
For i = 30 To 254
ActiveDocument.Content = Replace(ActiveDocument.Content, Chr(i+1), Chr(i))
Next i
End Sub
sub Decode
For i = 255 To 31 step -1
ActiveDocument.Content = Replace(ActiveDocument.Content, Chr(i), Chr(i-1))
Next i
End Sub
--------- Открыть глаза навстречу солнцу
Ответ отправил: EPDSota (статус: Специалист)
Ответ отправлен: 07.04.2006, 11:35
