Как макросом защитить форму MicrosoftWord - VB

  1. Нужно при открытии документа если макросы не отключены то защитить форму... Очень нуна Долго ищу, может кто подскажет...


textual

Код к задаче: «Как макросом защитить форму MicrosoftWord - VB»

Word.ActiveDocument.Protect 2, , 'password'
Word.ActiveDocument.Protect 2, , '' 'без пароля

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.286 из 5



Похожие ответы
  1. Всем привет ! Хотелось бы усложнить жизнь гипотетическому исследователю, который не особо искушен в языке VB и отладчиках, чтобы тяжело было отследить логику работы программы, но в особенности чтобы нельзя было увидеть константных строк в явном виде, напрямую декомпилировав EXE. Какими средствами и опциями компиляции следует воспользоваться? Спасибо.

  1. Доброго времени суток! Нужна Ваша помощь! Есть UserForm1, сохраненная в двух файлах UserForm1.frm и UserForm1.frx . Нашел макрос на форуме, которым открывают форму

  1. Как сделать так чтобы при запуске WinWord с параметрами он загружал в своем пусковом макросе DOS'кий текстовый файл с конвертацией его в Windows'кий формат без всяких лишних вопросов ? Точнее - непонятно - как макросом Word'a загрузить DOS'ский файл с конвертацией и без всяких диалогов

  1. Извините, если вопрос тупой, но очень надо! В общем так: На одном листе есть форма 'Форма', а данные для нее на другом листе 'Данные'. Нужно с листа 'Данные' по ДВУМ критериям из первой 'А' и второй 'В' колонки взять числа из третьей 'С', их просуммировать и записать в ячейку на листе 'Форма'. Принципиально сделать это в макросе, а не функцией, но как это сделать не знаю! Пожалуйста, помогите советом или ссылкой!

  1. Здравствуйте. Мне необходимо переносить с листа Excel данные в другой шаблон. Ячейка, с которой начинается копирорование, всегда задана-"G13",количество строк одинаково, количество столбцов всегда разное. У меня такой вопрос-как выделить диапазон с этой заданной ячейки и до последней ячейки , например "G170" последнего заполненного столбца???Нашла макрос Sheets(1).Range("G13:h" & Cells(Rows.Count, 7).End(xlUp).Row).copy, но там вручную меняю букву последнего столба, можно ли обойтись без этого?Заранее спасибо)