Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


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

Новости:

Из правил форума: Тема должна отражать суть вопроса, топики типа "help please" будут удаляться!

Автор Тема: автоматическая установка пароля на открытие...  (Прочитано 2140 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Jim

  • Постоялец
  • ***
  • Уважение: +0/-1
  • Оффлайн Оффлайн
  • Сообщений: 269
    • Сайт клуба Друзья

Доброго времени суток...

У меня есть макрос на автоматическое закрытие файла через несколько минут... можно ли его как то изменить или добавить что то, чтобы также после закрытия файла автоматически устанавливался пароль на открытие....

Заранее спасибо...

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
  If Target.TextToDisplay = "РЕГИСТРАЦИЯ" Then
    Application.OnTime Now + TimeValue("00:00:10"), "ЭтаКнига.StopWork"
  End If
End Sub

Private Sub StopWork()
  Application.EnableCancelKey = 0
  If MsgBox("Книга будет закрыта. Сохранить?", 4) - 7 Then ThisWorkbook.Save
  'Application.Interactive = 1
  If Application.Workbooks.Count = 2 Then Application.Quit
  ThisWorkbook.Close
End Sub
Записан

Шпец Докапыч

  • Ветеран
  • *****
  • Уважение: +189/-4
  • Оффлайн Оффлайн
  • Сообщений: 1 919
  • ОБЛАДАТЕЛЬ УНИКАЛЬНЫХ НАВЫКОВ!!! :)

можно ли его как то изменить или добавить что то, чтобы также после закрытия файла автоматически устанавливался пароль на открытие...

Вот что макрорекордер подсказал:
ActiveWorkbook.Password = "123"
Осталось придумать куда это воткнуть. ;)
Записан
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

boa

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +32/-0
  • Оффлайн Оффлайн
  • Сообщений: 596
  • Доброта спасет мир...

Может так?
        'Паролирование активного файла
        With ActiveWorkbook
          .SetPasswordEncryptionOptions _
          "Microsoft Strong Cryptographic Provider", "RC4", 128, True
          .Password = "123"
          .Save
        End With
Записан
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра
 



Темы без ответов

09.08.2019 14:09 Макрос для заполнения таблиц через форму 4991
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4407
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 5964
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 3110
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 4911
15.03.2017 15:45 автозамена картинок PowerPoint 3833
11.03.2017 13:43 Изменить нумерацию страниц 3761
07.02.2017 18:43 Блокировка ячеек по наступлению даты 2870
28.08.2016 19:29 Одинаковые заголовки после обновления оглавления 3374
07.08.2016 17:33 Определить нумерацию как элемент стиля 3587





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.141 секунд. Запросов: 98.