1 Тема от DarkJoker

  • DarkJoker
  • рядовой
  • Неактивен
  • Зарегистрирован: 23.02.2015
  • Сообщений: 1

Тема: Поставить пароль и снять пароль

Здравствуйте, подскажите макрос который поставит пароль 123
и макрос для снятия пароля.
стоит 2013 плюс офис
Спасибо.

2 Ответ от Alex_Gur

  • Поставить пароль и снять пароль
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Поставить пароль и снять пароль

DarkJoker пишет:

Здравствуйте, подскажите макрос который поставит пароль 123
и макрос для снятия пароля.
стоит 2013 плюс офис
Спасибо.

Пароль нужно поставить на открытие файла или на редактирование?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3 Ответ от Alex_Gur

  • Поставить пароль и снять пароль
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Поставить пароль и снять пароль

Установка пароля на редактирование:

Sub Protect_Edit()
    ActiveDocument.Protect Password:="123", NoReset:=False, Type:= _
        wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True
    ShowVisualBasicEditor = True
End Sub

Снятие пароля:

Sub Unprotect_Edit()
    ActiveDocument.Unprotect Password:="123"
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

4 Ответ от Alex_Gur

  • Поставить пароль и снять пароль
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Поставить пароль и снять пароль

Установка пароля на открытие:

Sub Protect_Open()
    Selection.TypeParagraph
    Selection.TypeBackspace
    ActiveDocument.SaveAs2 password:="123"
    ActiveWindow.Close
End Sub

Снятие пароля на открытие:

Sub Unprotect_Open()
    Selection.TypeParagraph
    Selection.TypeBackspace
    ActiveDocument.SaveAs2 password:=""
    ActiveWindow.Close
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.